6
uses FPgtk, gtk, classes;
10
TProgressWindow = class (TFPgtkWindow)
12
Bar : TFPgtkProgressbar;
13
procedure ComposeWindow;
16
procedure SetMax (max : integer);
24
procedure TProgressWindow.ComposeWindow;
26
Title := ProgressWinTitle;
29
bar := TFPgtkProgressBar.Create (nil);
30
bar.FormatString := '- %p%% -';
35
procedure TProgressWindow.StepIt;
38
CurrentValue := CurrentValue + 1.0;
41
procedure TProgressWindow.SetMax (max : integer);
43
bar.Configure (0.0,0.0,max);
46
constructor TProgressWindow.create;
48
inherited create (gtk_window_dialog);