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

fixed TTrackBar initial size

Browse Source 
git-svn-id: trunk@4274 -
This commit is contained in:
mattias 2003-06-13 21:13:20 +00:00
parent 5eb043a6e5
commit 94bb38d05b
2 changed files with 44 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lcl/comctrls.pp
View File

@ -916,45 +916,44 @@ type
procedure ApplyChanges; procedure ApplyChanges;
procedure DoChange(var msg); message LM_CHANGED; procedure DoChange(var msg); message LM_CHANGED;
procedure InitializeWnd; override; procedure InitializeWnd; override;
{ ... what about these?
procedure CreateParams(var Params: TCreateParams); override;
procedure DestroyWnd; override;
}
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure SetTick(Value: Integer); procedure SetTick(Value: Integer);
published published
property Ctl3D; property Ctl3D;
property DragCursor;
property Enabled;
property Frequency: Integer read FFrequency write SetFrequency;
property Hint;
property LineSize: Integer read FLineSize write SetLineSize default 1; property LineSize: Integer read FLineSize write SetLineSize default 1;
property Max: Integer read FMax write SetMax default 10; property Max: Integer read FMax write SetMax default 10;
property Min: Integer read FMin write SetMin default 0; property Min: Integer read FMin write SetMin default 0;
property Orientation: TTrackBarOrientation read FOrientation write SetOrientation;
property PageSize: Integer read FPageSize write SetPageSize default 2;
property Frequency: Integer read FFrequency write SetFrequency;
property Position: Integer read FPosition write SetPosition;
property SelEnd: Integer read FSelEnd write SetSelEnd;
property SelStart: Integer read FSelStart write SetSelStart;
property TickMarks: TTickMark read FTickMarks write SetTickMarks;
property TickStyle: TTickStyle read FTickStyle write SetTickStyle;
property Visible;
property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnEnter; property OnChangeBounds;
property OnExit;
property OnKeyDown;
property OnKeyUp;
property Enabled;
property OnKeyPress;
property DragCursor;
property ParentCtl3D;
property ParentShowHint;
property OnDragDrop; property OnDragDrop;
property OnDragOver; property OnDragOver;
property OnEndDrag; property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnResize;
property OnStartDrag;
property Orientation: TTrackBarOrientation read FOrientation write SetOrientation;
property PageSize: Integer read FPageSize write SetPageSize default 2;
property ParentCtl3D;
property ParentShowHint;
property PopupMenu; property PopupMenu;
property Position: Integer read FPosition write SetPosition;
property SelEnd: Integer read FSelEnd write SetSelEnd;
property SelStart: Integer read FSelStart write SetSelStart;
property ShowHint; property ShowHint;
property TabOrder; property TabOrder;
property TabStop default True; property TabStop default True;
property OnStartDrag; property TickMarks: TTickMark read FTickMarks write SetTickMarks;
property TickStyle: TTickStyle read FTickStyle write SetTickStyle;
property Visible;
published { additional functionality } published { additional functionality }
property ShowScale : boolean read FShowScale write SetShowScale; property ShowScale : boolean read FShowScale write SetShowScale;
property ScalePos : TTrackBarScalePos read FScalePos write SetScalePos; property ScalePos : TTrackBarScalePos read FScalePos write SetScalePos;
@ -1762,6 +1761,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.77 2003/06/13 21:13:20 mattias
fixed TTrackBar initial size
Revision 1.76 2003/06/13 12:53:51 mattias Revision 1.76 2003/06/13 12:53:51 mattias
fixed TUpDown and added handler lists for TControl fixed TUpDown and added handler lists for TControl

34
lcl/include/trackbar.inc
View File

@ -61,19 +61,20 @@
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
constructor TTrackBar.Create (AOwner : TComponent); constructor TTrackBar.Create (AOwner : TComponent);
begin begin
inherited Create (aOwner); inherited Create (aOwner);
fCompStyle := csTrackbar; fCompStyle := csTrackbar;
Caption := 'TrackBar'; Caption := 'TrackBar';
FLineSize := 1; FLineSize := 1;
FMax := 10; FMax := 10;
FMin := 0; FMin := 0;
FPosition := 0; FPosition := 0;
FLineSize := 1; FLineSize := 1;
FPageSize := 2; FPageSize := 2;
FOrientation := trHorizontal; FOrientation := trHorizontal;
FShowScale := false; FShowScale := false;
FScalePos := trTop; FScalePos := trTop;
FScaleDigits := 0; FScaleDigits := 0;
SetInitialBounds(0,0,100,20);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -86,8 +87,8 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TTrackBar.InitializeWnd; procedure TTrackBar.InitializeWnd;
begin begin
inherited InitializeWnd; inherited InitializeWnd;
ApplyChanges; ApplyChanges;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -380,6 +381,9 @@ end;
{ {
$Log$ $Log$
Revision 1.6 2003/06/13 21:13:20 mattias
fixed TTrackBar initial size
Revision 1.5 2002/05/10 06:05:56 lazarus Revision 1.5 2002/05/10 06:05:56 lazarus
MG: changed license to LGPL MG: changed license to LGPL