Discussion :

[vpourchet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[ShaiLeTroll]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

frmMain.ChangeProgressBar(1);

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

[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

[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.

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[vpourchet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Andnotor]

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

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

[vpourchet]

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

[Andnotor]

Même principe que la StatusBar:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vpourchet]

merci beaucoup cela fonctionne

[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

[ShaiLeTroll]

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

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 ...

[Andnotor]

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