MESSAGEDLG : VERSION TOOLS
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
20 sept. 2002 à 23:58
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 9 juin 2004 à 16:42
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 9 juin 2004 à 16:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12158-messagedlg-version-tools
https://codes-sources.commentcamarche.net/source/12158-messagedlg-version-tools
9 juin 2004 à 16:42
Il faut remplacer :
Clipboard.SetTextBuf(PChar('MessageDlg(''' + Message_Txt + ''', Type_Image, ' + Buttons_Export + ', 0)'));
par :
Clipboard.SetTextBuf(PChar('MessageDlg(''' + Message_Txt + ''', ' + Type_Image + ', ' + Buttons_Export + ', 0)'));
Sans doute un peu de hâte dans la mise à jour ? (bah, si y'avait un match le soir ;)
22 sept. 2002 à 13:17
En fait, j'ai développé ce prog parce que j'utilise souvent cette fonction et que je ne me souviens pas toujours des possibilités, maintenant avec cela, en 3 secondes, le code de cette fonction est créé sans que j'aille dans l'aide de Delphi.
Il me facilite énormément la tâche. C'est le but pour mais code-source en version tools.
Si ça peut vous aider, tant mieux, moi ça m'aide.
Bonne prog à tous
21 sept. 2002 à 13:35
En continuant dans ta logique, tu devrais réaliser un programme qui programme à notre place...
Nono.
21 sept. 2002 à 13:24
abc
d'e'f
vous obtenez :
MessageDlg('abc' + #13#10 + 'd''e''f', Type_Image, [mbOk], 0)
J'ai également modifier la façon d'afficher les images, dans la première version il allait les chercher sur le disque maintenant j'inclus les images dans le programme de façon caché je pense que c'est bon maintenant
21 sept. 2002 à 12:07
Pour les bitmaps que j'incère dans le zip c'est juste pour ceux qui amélioreraient le prog de leur côté de façon à garder l'interface mais c'est vrai cela l'alourdi. Alors ce que je vais faire c'est le juste le projet Delphi et pour les autres qui voudrais continuer, qu'ils me fassent signe.
Je corrige pour cette après-midi ou pour la nuit ( j'ai match ce soir pas le temps )
Encore une fois merci et dites-moi si ce code vous est utile pour que j'envisage d'autres projets de la sorte.
Bonne prog à tous
Bruto le petit belge
21 sept. 2002 à 11:29
le voila :
procedure TForm_MessageDlg.SpeedButton_VisualiseClick(Sender: TObject);
var
a: Integer;
str: String;
begin
Construc_Msg();
MessageDlg(Memo_Msg.Text, Type_Msg, Buttons_Msg, 0);
for a := 1 to length(Memo_MSG.text) do
begin
str := str + Memo_Msg.Text[a];
if Memo_Msg.Text[a] = '''' then str := str + '''';
end;
Edit_Const.Text := 'MessageDlg(''' + str + ''', ' + Type_Image + ', ' + Buttons_Export + ', 0)';
end;
j'pense ke se serais bien ossi de le faire se changer avec un onChange du Memo_Dlg
et ossi un le changer avec le onClick des btn radio
y faudrais ossi :) metre la couleur direct pour le Edit_const ex: du clLime sur du clBlack psk moi j'vois rien alors...
20 sept. 2002 à 23:58
Nono.
P.S. : ce n'est pas la peine de mettre les BMP dans le source... Cela augmente beaucoup la taille du zip pour rien.