MESSAGEBOX MAKER - GÉNÉRATEUR DE MESSAGEBOX EN DELPHI

Commentaire de cirec le 10/08/2005 12:03:05 administrateur CS

Bravo freetai Simple falleit y penser.
j'ai toute fois quelques petit bugs

1 - dans la config 3 Btn Annuler Réessayer Continuer.
Réessayer à le code retour de 10 et non 4

2 - dans la même config le Code Retour de Continuer
    est manquant.

3 - dans toutes les config chez moi du moins
    Réessayer et remplacer par Recommencer

si tu le désirs je peut envoyer la correction
qui comporte aussi une rationalisation du Code
(2/3 en Moins) et il fait toujours la même chose.
Cirec@aol.com

Voilà je met quand même 7/10 pour y avoir pensé

ps :
L'unité JvGIF je ne connais pas, du coup l'image que tu as mis dans Image2 (qui est de type Gif je supose) n'est pas reconu comme format valide et donc ne s'affiche pas.

Si tu pouvais préciser ou l'on peut se la procurer.

Commentaire de assemple le 15/08/2005 11:08:05

En effet pour l'unité JvGif !
C'est un gros problème pour le partage des sources !
On a tous nos petites habitudes ou unités spécifiques piochées ici ou là, ou développées par soi-même.
Autrement, à part les beugs signalés par cirec, que je n'ai pas eu le temps de constater, j'ai trouvé MessageBox Maker pas mal du tout.
Mais, il s'avère que j'ai eu besoin de travailler sur le thème de la message box.
Galère pour retrouver les mtXXXX et les mbYYYY quand on est plongé dans la rédaction de source. Est-ce que MessageBox Maker est assez souple d'emploi ? Le lancer, retaper le titre et le message, puisque qu'on a été bloqué au stade :

Application.MessageBox('Le blabla que vous avez schtroumphé...',
                       'Voulez-vous continuer ?',
                       mt????

et enfin choisir icône et bouton et copier puis coller.
Ok

Pour que messagebox maker soit efficace, il faut impérativement penser à s'en servir AVANT qu'on se rappelle qu'on en a besoin, c'est à dire avant d'avoir tapé le titre et le message.

Cela étant dit, comment choisir en toute liberté les noms des boutons ? Par exemple Oui/Non/Peut-être (humour) ou plus sérieusement : Tous/Aucun/Choisir. Ces trois boutons n'existent pas avec MessageBox.
Alors, j'ai eu l'iddée d'ecrire une fonction qui permet d'afficher une boite de message comportant un nombre libre de boutons aux noms (caption) libres.

Function MB ( Titre, Message, Boutons : String ) : Byte ;


Exemple :

...
  Reponse := MB ( 'Certaines fiches n''ont pas été enregistrées.'
                  'Voulez-vous les enregistrer toutes,aucunes,
                                                     ou choisir'
                  'Toutes'#13'Aucunes'#13'Choisir'
                 ) ;  // #13 sépare les bouton
  Case Reponse of
    1 : SaveAll(Self) ; // bouton 1 = toutes
    3 : While Choix do Save(FicheChoisie) ;// bt3 = choisir
  End ; // case              // nota bt2 = aucunes ne fait rien !
...

Dès que j'ai eu l'iddée de faire cette fonction, j'ai pensé que ce serait un truc sympa pour CodeSource.

Je vais aller le mettre

Salut à tous

Commentaire de assemple le 21/08/2005 20:10:00

Ne cherche pas, je l'ai fait.
Je l'ai mis sur code source, mais ça a planté à un moment donc je lme copie ici :

le PAS :
unit UBM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Buttons, StdCtrls;

Const LargeurBouton = 120 ;
      HauteurBouton =  27 ;

type
  TFBM = class(TForm)
    LabelMessage: TLabel;
    procedure LesSpeedButtonsClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    BoutonChoisi : integer ;
    Raccourcis : ShortString ;
  end;

Function BM(LeTitre, LeMessage : String ; ListeDesBoutons : String = 'Ok' ) : integer ;
var
  FBM: TFBM;

implementation

{$R *.dfm}
             // pour CODESOURCE
uses DDU ;  // Supprimer cette clause et la ligne Remplace...


Function BM(LeTitre, LeMessage : String ; ListeDesBoutons : String) : integer ;
Var S : String ;
    BN : ShortString ;
    Count : integer ;
    I, X, Y : Integer ;
    UnSB : TSpeedButton ;
    Ok : Boolean ;
Begin
  // Init
  X := 10 ;
  Y := 72 ;
  Count := 1 ;
  // Premier appel à BM
  If FBM=Nil then FBM := TFBM.Create(application) ;
  // Titre
  FBM.Caption := LeTitre ;
  // Message
  FBM.LabelMessage.Caption := LeMessage ;
  // Liste des Boutons
  S := ListeDesBoutons ;
  Remplace('#13',#13,S) ;   // Supprimer cette ligne et la clause Uses DDU ;
  //----------------------------------------------------------------------------
  // Boucle de création des boutons
  While S<>'' do
  Begin
    //--------------------------------------------------------------------------
    // Détermination du Nom du Bouton (BN : Button Name)
    If Pos(#13,S)>0 then
    Begin
      BN := Copy(S,1,Pos(#13,S)-1) ;
      Delete(S,1,Pos(#13,S)) ;
    End Else
    Begin
      BN := S ;
      S := '' ;
    End ;
    While Copy(BN,1,1)=' ' do BN := Copy(BN,2,255) ;
    While Copy(BN,Length(BN),1)=' ' do BN := Copy(BN,1,Length(BN)-1) ;
    If BN<>'' then
    Begin
      If X>FBM.Width-LargeurBouton-10 then
      Begin
        X := 10 ;
        Inc(Y,HauteurBouton+3) ;
        FBM.LabelMessage.Height := FBM.LabelMessage.Height - HauteurBouton - 3 ;
        For I := 1 to FBM.ComponentCount do
        Begin
          If FBM.Components[i-1] is TSpeedButton then TSpeedButton(FBM.Components[i-1]).Top := TSpeedButton(FBM.Components[i-1]).Top - HauteurBouton - 3 ;
        End ;
        FBM.Height := FBM.Height + HauteurBouton + 3 ;
      End ;
      UnSB := TSpeedButton.Create(FBM) ;
      UnSB.Parent := FBM ;
      If Pos('&',BN)=0 then
      Begin
        FBM.Raccourcis := FBM.Raccourcis + upcase(BN[1])  ;
        BN := '&'+BN ;
      End Else FBM.Raccourcis := FBM.Raccourcis + upcase(BN[Pos('&',BN)+1]) ;
      UnSB.Caption := BN ;
      UnSB.Name := 'B'+IntToStr(Count) ;
      Inc(Count) ;
      UnSB.Anchors := [akLeft,akBottom] ;
      UnSB.Left := X ;
      UnSB.Top := Y ;
      UnSB.Width := LargeurBouton ;
      UnSB.Height := HauteurBouton  ;
      UnSB.OnClick := FBM.LesSpeedButtonsClick ;
      // GLYPH !!!!!!
      If FileExists(BN+'.BMP') then UnSB.Glyph.LoadFromFile(BN+'.BMP') ;
      Inc(X,largeurBouton + 10 ) ;
    End ;
  End ;
  // Boucle de création des boutons
  //----------------------------------------------------------------------------

  // Init resultat (BoutonChoisi) à AUCUN
  FBM.BoutonChoisi := 0 ;

  // Affichage de la Boîte de Message (FBM) en MODAL
  FBM.ShowModal ;

  // Report du Résultat
  Result := FBM.BoutonChoisi ;

  // Réinit : Dimension initiale
  FBM.ClientHeight := 100 ;
  FBM.LabelMessage.Height := 50 ;
  // Réinit : suppression des speedbuttons
  // Double boucle "breakée" car button.free décale les indices de FBM.Component
  // mais je viens de me rendre compte qu'un DOWNTO aurait p'têt fait l'affaire
  While Not OK do
  Begin
    Ok := True ;
    For I := 1 to FBM.ComponentCount do
    Begin
      If FBM.Components[i-1] is TSpeedButton then
      Begin
        TSpeedButton(FBM.Components[i-1]).Free ;
        Ok := False ;
        BREAK ;
      End ;
    End ;
  End ;
End ;



procedure TFBM.LesSpeedButtonsClick(Sender: TObject);
var s : ShortString ;
begin
  If Sender is TSpeedButton then
  Begin
    S := TSpeedButton(sender).Name ;
    BoutonChoisi := StrtoInt(S[2]) ;
  End ;
  ModalResult := mrOk ;
end;

procedure TFBM.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Key := UpCase(key) ;
  BoutonChoisi := Pos(Key,raccourcis) ;
  If BoutonChoisi<>0 then Modalresult := mrOk ;
end;

procedure TFBM.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key=13 then
  Begin
    BoutonChoisi := 1 ;
    ModalResult := mrOk ;
  End ;
  If Key=27 then
  Begin
    BoutonChoisi := 1 ;
    ModalResult := mrOk ;
  End ;
end;

end.

le DFM :
object FBM: TFBM
  Left = 291
  Top = 314
  Width = 418
  Height = 127
  Caption = 'FBM'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object LabelMessage: TLabel
    Left = 0
    Top = 15
    Width = 410
    Height = 50
    Align = alCustom
    Alignment = taCenter
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoSize = False
    Caption = 'LabelMessage'
  end
end

Commentaire de cirec le 23/08/2005 12:51:06 administrateur CS

Bonjour freetai
as tu recu le correctif de t'on MessageBox Maker que je t'ai envoyer il y a trois semaine.(Boite privé )
Voilà donc depuis j'attend :-).

Et si tu es toujours interessé je peut envoyer la suite .
j'ai débusqué d'autres erreurs:
si le message comporte plus d'une ligne il est impossible d'utiliser le code généré directement
(sans correction)
et d'autres petites chose ...
voilà @+

ps : loin de moi l'idée de te critiquer où autre, non,
ma seul intention est de de t'aider a améliorer t'on
Prog qui je pense une fois terminé sera très utile.

@+ Cirec