paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 14:16:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: do not animate progress bar during design time if pbstMarquee progress bar style enabled.

Browse Source 
git-svn-id: trunk@23426 -
This commit is contained in:
zeljko 2010-01-12 09:50:55 +00:00
parent 02f1dca712
commit 21dff33608
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -162,7 +162,8 @@ type
TQtWSProgressBar = class(TWSProgressBar) TQtWSProgressBar = class(TWSProgressBar)
protected protected
class procedure SetRangeStyle(AProgressBar: TQtProgressBar; AStyle: TProgressBarStyle; AMin, AMax: Integer); class procedure SetRangeStyle(AProgressBar: TQtProgressBar;
AStyle: TProgressBarStyle; AMin, AMax: Integer; const AIsDesign: Boolean);
published published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override; class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override; class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override;
@ -385,7 +386,7 @@ end;
{ TQtWSProgressBar } { TQtWSProgressBar }
class procedure TQtWSProgressBar.SetRangeStyle(AProgressBar: TQtProgressBar; class procedure TQtWSProgressBar.SetRangeStyle(AProgressBar: TQtProgressBar;
AStyle: TProgressBarStyle; AMin, AMax: Integer); AStyle: TProgressBarStyle; AMin, AMax: Integer; const AIsDesign: Boolean);
begin begin
if AStyle = pbstNormal then if AStyle = pbstNormal then
begin begin
@ -395,7 +396,7 @@ begin
AProgressBar.setRange(AMin, AMax) AProgressBar.setRange(AMin, AMax)
end end
else else
AProgressBar.setRange(0, 0); AProgressBar.setRange(0, Integer(AIsDesign));
end; end;
class function TQtWSProgressBar.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; class function TQtWSProgressBar.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
@ -441,7 +442,9 @@ begin
QtProgressBar.setTextVisible(AProgressBar.BarShowText); QtProgressBar.setTextVisible(AProgressBar.BarShowText);
// The position, minumum and maximum values // The position, minumum and maximum values
SetRangeStyle(QtProgressBar, AProgressBar.Style, AProgressBar.Min, AProgressBar.Max); SetRangeStyle(QtProgressBar, AProgressBar.Style,
AProgressBar.Min, AProgressBar.Max,
csDesigning in AProgressBar.ComponentState);
QtProgressBar.setValue(AProgressBar.Position); QtProgressBar.setValue(AProgressBar.Position);
end; end;
@ -459,7 +462,8 @@ begin
Exit; Exit;
QProgressBar := TQtProgressBar(AProgressBar.Handle); QProgressBar := TQtProgressBar(AProgressBar.Handle);
QProgressBar.reset; QProgressBar.reset;
SetRangeStyle(QProgressBar, NewStyle, AProgressBar.Min, AProgressBar.Max); SetRangeStyle(QProgressBar, NewStyle, AProgressBar.Min, AProgressBar.Max,
csDesigning in AProgressBar.ComponentState);
if NewStyle = pbstNormal then if NewStyle = pbstNormal then
QProgressBar.setValue(AProgressBar.Position); QProgressBar.setValue(AProgressBar.Position);
end; end;