paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 04:38:13 +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)
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
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override;
@ -385,7 +386,7 @@ end;
{ TQtWSProgressBar }
class procedure TQtWSProgressBar.SetRangeStyle(AProgressBar: TQtProgressBar;
AStyle: TProgressBarStyle; AMin, AMax: Integer);
AStyle: TProgressBarStyle; AMin, AMax: Integer; const AIsDesign: Boolean);
begin
if AStyle = pbstNormal then
begin
@ -395,7 +396,7 @@ begin
AProgressBar.setRange(AMin, AMax)
end
else
AProgressBar.setRange(0, 0);
AProgressBar.setRange(0, Integer(AIsDesign));
end;
class function TQtWSProgressBar.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
@ -441,7 +442,9 @@ begin
QtProgressBar.setTextVisible(AProgressBar.BarShowText);
// 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);
end;
@ -459,7 +462,8 @@ begin
Exit;
QProgressBar := TQtProgressBar(AProgressBar.Handle);
QProgressBar.reset;
SetRangeStyle(QProgressBar, NewStyle, AProgressBar.Min, AProgressBar.Max);
SetRangeStyle(QProgressBar, NewStyle, AProgressBar.Min, AProgressBar.Max,
csDesigning in AProgressBar.ComponentState);
if NewStyle = pbstNormal then
QProgressBar.setValue(AProgressBar.Position);
end;