Procedure avec pointeur vers un string en paramètre

[Thyphoon]

Tu as raison !

[GeBonet]

@Dobro
Bonjour,
Toujours dans les Iles Profite en... du moins du soleil !

Un sujet qui pourrait passer dans les tutos !!

non !

Personnellement je n'ai pas placé cela comme un "Tuto"... ni prétendu le faire !
Ni même être une confrontation avec qui que ce soit, mais une forme de traiter le problème
qui par ailleurs pourrait encore être simplifié !
Et simplement suffisamment commenté pour qui comprend
Car c'est transformer une chose "compliqué" en chose "simple"...

Entre autre, la forme que je présente et utilise (les tableaux), éffectivement pourrait faire l'objet d'un Tuto...
Ou entrer en complément des pointeurs comme exemple d'utilisation. Mais éffectivement à faire !
Et c'est une approche qui simplement découle de la lecture de la DOC, mais qui n'a pas d'exemple complet, concret et liant les choses entre elles (causes à effets) !
Je trouve par exemple dans "PureBasic Survival Guide" une plus grande liaison entre le documentaire et l'application de la doc. Malheureusement en anglais. Comme le livre de Kale aussi, mais là c'est le but !

Et c'est d'ailleurs pour cela aussi, du moins je le crois que VOUS avez créer le point [TUTOS] !
et ce bien longtemps avant que je ne connaisse PureBasic (et quand je dis "connaisse", j'entends en avoir la connaissance de son existence et non sa "pratique"). Et qui m'aura aidé à accélérer ma modeste compréhension des choses

Voilà, voilà et bonne continuation !

[Le Soldat Inconnu]

Bon, je galère vraiment avec ces histoires

Je souhaite passer une structure avec des textes à une procedure et pouvoir lire chaque texte à partir de la procedure, mais sans les modifier

Code : Tout sélectionner

Structure SkinWindowLanguage
		Title.s
		Item_list.s
		Item_color.s
		Item_action.s
		Item_font_size.s
		bold.s
		Italic.s
		Underline.s
		Font_Name.s
		Font_preview.s
		Draw_item_without_text_if_font_size_is_equal_to_0.s
		Skin_preview.s
		Normal_state.s
		Hot_state.s
		Selected_state.s
		Selected_and_hot_state.s
		Disable_state.s
		Item_position.s
		Browse.s
		Use_state.s
		Reload_image.s
		Error.s
		Normal_state_image_and_item_position_image_are_missing.s
		Image_dont_have_correct_size.s
	EndStructure

ProcedureDLL EditSkinWindowTheme(ThemeDirectory.s, *Language.SkinWindowLanguage, *ActionList.SkinWindowAction, ActionListSize) ; Create a theme to do skinned window
	
	
EndProcedure







;- Test de la librairie
SWL.SkinWindowLanguage
With SWL
	Title.s = "Editer l'apparence"
	Item_list.s = "Liste des objets"
	Item_color.s = "Couleur"
	Item_action.s = "Action"
	Item_font_size.s = "Taille de police"
	bold.s = "Gras"
	Italic.s = "Italique"
	Underline.s = "Souligné"
	Font_Name.s = "Police"
	Font_preview.s = "Aperçu"
	Draw_item_without_text_if_font_size_is_equal_to_0.s = "Si la taille de police est égale à 0, l'objet n'aura pas de texte"
	Skin_preview.s = "Aperçu de l'apparence"
	Normal_state.s = "Etat normal"
	Hot_state.s = "Etat survolé"
	Selected_state.s = "Etat sélectionné"
	Selected_and_hot_state.s = "Etat sélectionné et survolé"
	Disable_state.s = "Etat désactivé"
	Item_position.s = "Position des objets"
	Load_normal_state_image.s = "Charger l'image de l'état normal"
	Load_hot_state_image.s = "Charger l'image de l'état survolé"
	Load_selected_state_image.s = "Charger l'image de l'état sélectionné"
	Load_selected_and_hot_state_image.s = "Charger l'image de l'état sélectionné et survolé"
	Load_disable_state_image.s = "Charger l'image de l'état désactivé"
	Load_item_position_image.s = "Charger l'image de la positon des objets "
	Reload_image.s = "Recharger les images"
	Browse.s = "Parcourir"
	Use_state.s = "Utiliser cet état"
	Reload_image.s = "Recharger les images"
	Error.s = "Erreur"
	Normal_state_image_and_item_position_image_are_missing.s = "L'image de l'état normal et l'image de la position des objets sont manquantes"
	Image_dont_have_correct_size.s = "L'image n'a pas la bonne dimension"
EndWith

EditSkinWindowTheme("Calculette", @SWL, 0, 0) ; Create a theme to do skinned window

Et je n'y arrive pas

[Kwai chang caine]

Bonjour mon ami soldat

Alors attention, KCC y va faire quelque chose qu'il ose jamais faire...c'est essayer d'aider alors qu'il y connais rien.
Mais pour toi....je me lance

Alors je sais pas si je dit une connerie...surement
Mais j'ai voulu essayer de t'aider, alors j'ai commencé simplement a vouloir faire un debug de la premiere ligne de ta variable structurée
Et la rien n'est revenu
Alors j'm'ai dit que c'etait de ma faute...que j'y comprenais rien comme dab
Mais j'ai lu la doc...et FRED y met un anti-slash dans le WITH, regarde l'exemple de FRED

Code : Tout sélectionner

Exemple: 

  Structure Personne
    Nom$
    Age.l
    Taille.l
  EndStructure

  Ami.Personne
  
  With Ami
    \Nom$ = "Yann"
    \Age   = 30
    \Taille  = 196
    
    Debug \Taille+\Taille
  EndWith

Et quand on met l'anti-slash ça marche
Regarde ta premiere ligne ou j'ai rajouté à ton code l'anti-slash, elle remonte la valeur et celle ou j'ai rien touché rien
Si y'a rien au debut, c'est peut etre deja normal qu'il y ai rien dans la procedure, sans aller plus loin ???

J'ai viré l'autre structure dans la procedure car tu ne l'avais pas donné, et raccourci le code pour te montrer ce que je crois avoir trouvé pour commencer

A mon avis tu le sais deja.....mais bon ...

Code : Tout sélectionner

Structure SkinWindowLanguage
   Title.s
   Item_list.s
   Item_color.s
   Item_action.s
   Item_font_size.s
   bold.s
   Italic.s
   Underline.s
   Font_Name.s
   Font_preview.s
   Draw_item_without_text_if_font_size_is_equal_to_0.s
   Skin_preview.s
   Normal_state.s
   Hot_state.s
   Selected_state.s
   Selected_and_hot_state.s
   Disable_state.s
   Item_position.s
   Browse.s
   Use_state.s
   Reload_image.s
   Error.s
   Normal_state_image_and_item_position_image_are_missing.s
   Image_dont_have_correct_size.s
EndStructure

ProcedureDLL EditSkinWindowTheme(ThemeDirectory.s, *Language.SkinWindowLanguage, ActionListSize) ; Create a theme to do skinned window
   
   
EndProcedure

;- Test de la librairie
SWL.SkinWindowLanguage

With SWL
   \Title.s = "Editer l'apparence" ; <<<< Avec anti-slash
   Item_list.s = "Liste des objets" ; <<<< Sans anti-slash
EndWith

Debug SWL\Title
Debug SWL\Item_list

EditSkinWindowTheme("Calculette", @SWL, 0) ; Create a theme to do skinned window

[Kwai chang caine]

Bon j'continue dans mon delire, parce que tant qu'a dire des conneries...autant continuer tant qu'on ne m'arrette pas....
Et comme ce soir c'est un autoroute

Voila ça passe dans la procedure....

Code : Tout sélectionner

Structure SkinWindowLanguage
   Title.s
   Item_list.s
   Item_color.s
   Item_action.s
   Item_font_size.s
   bold.s
   Italic.s
   Underline.s
   Font_Name.s
   Font_preview.s
   Draw_item_without_text_if_font_size_is_equal_to_0.s
   Skin_preview.s
   Normal_state.s
   Hot_state.s
   Selected_state.s
   Selected_and_hot_state.s
   Disable_state.s
   Item_position.s
   Browse.s
   Use_state.s
   Reload_image.s
   Error.s
   Normal_state_image_and_item_position_image_are_missing.s
   Image_dont_have_correct_size.s
EndStructure

ProcedureDLL EditSkinWindowTheme(ThemeDirectory.s, *Language.SkinWindowLanguage, ActionListSize) ; Create a theme to do skinned window
 Debug *Language\Title
 Debug *Language\Item_list
EndProcedure

;- Test de la librairie
SWL.SkinWindowLanguage

With SWL
   \Title.s = "Editer l'apparence"
   \Item_list.s = "Liste des objets"
EndWith

Debug SWL\Title
Debug SWL\Item_list
Debug ""

EditSkinWindowTheme("Calculette", @SWL, 0) ; Create a theme to do skinned window

[Le Soldat Inconnu]

ben non, tu as raison, c'est une grosse connerie de ma part d'avoir oublier le "\"

Merci KCC

[Kwai chang caine]

Ouaaah j'sui drolement content d'avoir pu aider un MAITRE
Comme quoi les cours de SROD portent leur benefices

J'ai le palpitant qui palpite...en fait pour toi c'est une "connerie" comme tu dit, pour moi c'etait une epreuve...prendre le courage de repondre....bravant ma peur pour un copain soldat dans la tranchée .....et pour une fois essayer de ne pas dire de conneries

Si tu as une autre question...compte pas sur moi.....j'ai tellement eu peur que je vais me coucher