incrémenter TProgressBar d'un autre form

Version imprimable

bonjour,

depuis ce matin je cherche à réaliser une progressbar dans la bare de status de mon formulaire principal. jusque là pas de soucis.

les choses se compliquent au moment d'incrémenter la valeur de ma progressBar. en effet l'endroit où j'aimerais appliquer cette incrémentation est au niveau de l'affichage d'un autre form qui est assez long(car beaucoup de composants)

ma question : comment realiser cette incrémentation ? (on m'a parlé de threads mais je n'ai pas encoure touché à ça)

formPrincipal (au moment d'afficher la deuxieme form) :
Code:

1 2 3 4 procedure TfrmMain.mnuPlanMoisClick(Sender: TObject); begin frmPlanMois.Show; end;
deuxieme form qui au niveau de la méthode 'show' realise une boucle pour creer des composants graphiques
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 procedure TfrmPlanMois.FormShow(Sender: TObject); var month : integer; year : integer; i : integer; day : integer; item : TPlannerItem; begin plMonth.Caption.Title := ' Planning du mois de '+ FormatDateTime('mmmm', Now); day := StrToInt(FormatDateTime('dd',Now)); month := StrToInt(FormatDateTime('mm',Now)); year := StrToInt(FormatDateTime('yyyy',Now)); plMonth.Positions := MonthDays[isLeapYear(year)][month]; plMonth.Header.Captions.Clear; plMonth.Footer.Captions.Clear; for i := 0 to plMonth.Positions do begin if i = 0 then plMonth.Header.Captions.Add('') else plMonth.Header.Captions.Add(FormatDateTime('dd/mm/yyyy', Now - day + i)); end; plannerCreateItems; end;

et Quel est le problème ?
pour ne pas mettre dans la TfrmMain une fonction
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TfrmMain.ChangeProgressBar(Pourcent: Integer); begin StatusBar.Panels[2].Text := IntToStr(Pourcent); StatusBar.Refresh(); // va forcer un OnDrawPanel, et c'est moins lourd qu'un Application.ProcessMessages(); end; procedure TfrmMain.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); var MyRect: TRect; begin MyRect.Left := Rect.Left; MyRect.Right := Rect.Left + Round((Rect.Right - Rect.Left) * StrToInt(StatusBar.Panels[2].Text) / 100); MyRect.Top := Rect.Top; MyRect.Bottom := Rect.Bottom; StatusBar.Canvas.Pen.Color := clNavy; StatusBar.Canvas.Brush.Color := clNavy; StatusBar.Canvas.FillRect(MyRect); end;
et dans le code TfrmPlanMois, l'appeler via son pseudo-singleton (la variable automatiquement créé frmMain: TfrmMain)

Code:

frmMain.ChangeProgressBar(1);

utiliser un Thread pour manipuler la VCL c'est exactement ce qu'il ne faut pas faire ... très mauvais conseils !

12/05/2009, 15h46
vpourchet

le probleme c'est que le pseudo-singleton n'est pas crée, je n'ai pas acces à la fenetre frmMain depuis la fenetre frmPlanMois :bug:
12/05/2009, 16h55
chaplin

Je créérais un événement dans la forme principale que je brancherais à une méthode la 2ème fiche. Donc si la deuxième fiche doit faire des modifications, elle le faira à travers cette méthode.

Il n'est pas créé ? c'est rare, normalement, il est indispensable si l'on fait un Application.CreateForm dans le DPR ?
Surtout que je n'ai pas vu d'instanciation de frmPlanMois, on peut supposer qu'il est aussi créer ...

si tu ne veux pas passer par une variable globale tu peux faire, ou que tu ne veux pas que frmPlanMois fasse un uses de frmMain ...
Code:

1 2 3 4 5 procedure TfrmMain.mnuPlanMoisClick(Sender: TObject); begin frmPlanMois.StatusBarExterne := StatusBar1; frmPlanMois.Show; end;
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 type TfrmPlanMois = class(TForm) ... private FStatusBarExterne: TStatusBar; procedure ChangeProgressBar(Pourcent: Integer); public property StatusBarExterne: TStatusBar read FStatusBarExterne write FStatusBarExterne; end; ... procedure TfrmPlanMois.ChangeProgressBar(Pourcent: Integer); begin StatusBarExterne.Panels[2].Text := IntToStr(Pourcent); StatusBarExterne.Refresh(); // va appeler frmMain.OnDrawPanel end;

j'ai implémenté votre solution mais la progress bar ne progresse pas, pourtant avec des show message j'ai bien vu que l'incrémentation se faisait au bon endroit ... je pense que le probleme est du au refresh ...

mon code :

Code:

1
2
3
4
5
6
7
8
9
 
procedure TfrmMain.FormShow(Sender: TObject);
begin
lblDate.Caption := lblDate.Caption +  ' ' + DateToStr(Now);
lblBvnu.Caption := 'NOM Prénom, '+ lblBvnu.Caption;
pbStatus.Parent:=stsBar;
stsBar.Panels[1].style := psOwnerDraw;
pbStatus.SetBounds(stsBar.Panels[0].Width, 2, 200, stsBar.Height-2);
end;

Code:

1
2
3
4
5
6
 
procedure TfrmMain.mnuPlanMoisClick(Sender: TObject);
begin
frmPlanMois.StatusBarExterne := stsBar;
frmPlanMois.Show;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
type
  TfrmPlanMois = class(TForm)
    plMonth: TPlanner;
    FStatusBarExterne: TStatusBar;
    procedure FormShow(Sender: TObject);
    procedure setInactiveDays;
    procedure plannerCreateItems;
    procedure plMonthItemDblClick(Sender: TObject; Item: TPlannerItem);
    procedure ChangeProgressBar(Pourcent: Integer);
    private
    { Déclarations privées }
  public
     property StatusBarExterne: TStatusBar read FStatusBarExterne write FStatusBarExterne;
  end;

Code:

1
2
3
4
5
6
 
procedure TfrmPlanMOis.ChangeProgressBar(Pourcent: Integer);
begin
   StatusBarExterne.Panels[1].Text := IntToStr(Pourcent);
   StatusBarExterne.Refresh;
end;

18/05/2009, 08h46
Andnotor

Ce n'est pas en affichant du texte sur la StatusBar que ça va incrémenter ta ProgressBar :aie:

Il te faut une référence à la ProgressBar atteignable depuis ta 2ème fiche.
18/05/2009, 09h10
vpourchet

bonjour, je suis novice en delphi, pourriez vous m'indiquer comment proceder ?

Même principe que la StatusBar:

Code:

1
2
3
4
5
6
procedure TfrmMain.mnuPlanMoisClick(Sender: TObject);
begin
frmPlanMois.StatusBarExterne   := stsBar;
frmPlanMois.ProgressBarExterne := pbStatus;
frmPlanMois.Show;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
type
  TfrmPlanMois = class(TForm)
    FStatusBarExterne: TStatusBar;
    FProgressBarExterne: TProgressBar;
    ...
    private
    { Déclarations privées }
  public
     property StatusBarExterne: TStatusBar read FStatusBarExterne write FStatusBarExterne;
     property ProgressBarExterne: TProgressBar read FProgressBarExterne write FProgressBarExterne;
  end;

Code:

1
2
3
4
5
6
procedure TfrmPlanMOis.ChangeProgressBar(Pourcent: Integer);
begin
   ProgressBar.Position := Pourcent;
   StatusBarExterne.Panels[1].Text := IntToStr(Pourcent);
   StatusBarExterne.Refresh;
end;

18/05/2009, 09h32
vpourchet

merci beaucoup cela fonctionne :king:
18/05/2009, 10h07
anapurna

salut

plutot que de passer un Tprogressbar
j'aurai joué avec les événements

si tu fait tes traitement dans un datamodule ou un objet non graphique
tu va avoir du mal a utiliser cette technique

@+ Phil
18/05/2009, 10h16
ShaiLeTroll

Citation:

Envoyé par Andnotor

Ce n'est pas en affichant du texte sur la StatusBar que ça va incrémenter ta ProgressBar :aie:

Il te faut une référence à la ProgressBar atteignable depuis ta 2ème fiche.

L'Exemple montrait comment dessiné directement une barre de progression via TStatusBar.OnDrawPanel (appelé indirectement par le Refresh) dans une TStatusBar ... j'aurais du répéter systématiquement ce gestionnaire, semble que Values25 n'avait pas suivi l'affaire ...
18/05/2009, 10h43
Andnotor

J'avais pas tout lu non plus. Je n'ai réagis que sur son dernier post ;)