PureBasic

Bonjour,

Je sais que ce sujet est assez vieux, mais j'ai trouvé intéressant de rajouter une version plus complète qui donnera peut-être quelques idées à certains.
Les 5 premières constantes peuvent être directement renseignées dans les options du compilateur sans avoir besoin de les déclarer dans ...

Le caret est le "curseur" clignotant après d'une zone de saisie qui indique l'emplacement du prochain caractère à insérer.
Lance le programme et tu le verras.

F.R.

Bonjour à tous,

Ayant galéré depuis plusieurs jours en essayant de changer la couleur du caret sous W10 je suis tombé sur des articles plus ou moins complets et surtout plus ou moins justes. Alors je vous partage mon modeste programme de test, qui j'espère contribuera à vous aider dans cette ...

C'est ce que j'ai commencé à faire pour une partie de mon code :
Structure VOITURE
Marque.s
Model.s
EndStructure

Procedure Criteres(MonChoix.s)
Static MaVoiture.VOITURE

Select MonChoix
Case "Ford"
MaVoiture\Marque = "Ford"
MaVoiture\Model = "Mustang"
ProcedureReturn @MaVoiture
Case ...

Un grand merci pour vos réponses. Effectivement, je n’avais pas remarqué la note dans la documentation sur l’usage du goto :
Note : Pour sortir d’une boucle en toute sécurité, vous devez toujours utiliser Break à la place de Goto et ne l’utilisez pas dans un bloc Select/EndSelect, à moins que vous ...

Bonjour à tou(te)s,

Structure VOITURE
Marque.s
Model.s
EndStructure

Procedure Ford()
Static MaVoiture.VOITURE

MaVoiture\Marque = "Ford"
MaVoiture\Model = "Mondeo"

hWnd_InputBox = OpenWindow(#PB_Any, 0, 0, 300, 200, "Ma bagnole.", #PB_Window_SystemMenu | #PB_Window_ScreenCentered ...

Bonjour et merci d’avoir donné ton avis.
En effet, il est étrange que cette simple fonctionnalité ne soit pas implémentée de base.
Mais il est également possible de recréer cette fonction avec une simple fenêtre et un TextGadget. Le message à afficher devra contenir des #CRLF$ pour passer à la ligne ...

Merci pour l'exemple.

Bonne journée.

F.R.

Bonjour,
Désolé si le sujet a déjà été abordé, en tout cas je n'ai rien trouvé sur le forum.
Y a-t-il une raison pour que la commande InputRequester ne prenne pas en charge le retour à la ligne dans l'affichage du texte ?
Txt$ = "Hello " + #CRLF$ + "World!"
MessageRequester("",Txt$)
bidon ...

Merci beaucoup, cela fonctionne. Je n'y avais pas pensé.
Un grand merci.

Bonjour,

Je n'arrive pas dans un CallBack à coloriser la dernière ligne d'une ListIconGadget si j'utilise la fonction SetGadgetState.
Pour illustrer mon soucis, j'ai largement épuré mon code pour aller à l'essentiel, ce qui peut expliquer certaines lourdeurs comme l'emploi d'un callback ...

YES, merci beaucoup, cela fonctionne !
Honnêtement, je n’avais pas cherché de ce côté là.
Encore merci et bonne journée.
François

Bonjour,

J'ai un petit problème avec ce dernier code, et j'avoue ne l'avoir pas vu de suite :
Si tu passes en bleu le texte SetTextColor_(hDC, RGB(0, 0, 255)) tu t'apercevras que chaque caractère est entouré d'un liseré rouge.
Actuellement, je n'arrive pas à supprimer cette bordure. À quoi est-ce ...

Bonsoir,
Super cette solution c’est exactement ce que je recherchais. Merci beaucoup, car j’étais resté « coincé » sur les régions. Cette solution est de loin plus élégante.
François.

Merci pour ta solution qui fonctionne parfaitement, mais qui ne m’explique pas pourquoi SetWindowRgn ne me permet pas ni de peindre la fenêtre ni d’écrire dessus. Je pensais, a priori que mon raisonnement était le bon :
OpenWindow -> crée une fenêtre.
CreateRectRgn -> crée une région de dimensions ...