paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 23:58:14 +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 DoChange(var msg); message LM_CHANGED;
procedure InitializeWnd; override;
{ ... what about these?
procedure CreateParams(var Params: TCreateParams); override;
procedure DestroyWnd; override;
}
public
constructor Create(AOwner: TComponent); override;
procedure SetTick(Value: Integer);
published
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 Max: Integer read FMax write SetMax default 10;
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 OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyUp;
property Enabled;
property OnKeyPress;
property DragCursor;
property ParentCtl3D;
property ParentShowHint;
property OnChangeBounds;
property OnDragDrop;
property OnDragOver;
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 Position: Integer read FPosition write SetPosition;
property SelEnd: Integer read FSelEnd write SetSelEnd;
property SelStart: Integer read FSelStart write SetSelStart;
property ShowHint;
property TabOrder;
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 }
property ShowScale : boolean read FShowScale write SetShowScale;
property ScalePos : TTrackBarScalePos read FScalePos write SetScalePos;
@ -1762,6 +1761,9 @@ end.
{ =============================================================================
$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
fixed TUpDown and added handler lists for TControl

34
lcl/include/trackbar.inc
View File

@ -61,19 +61,20 @@
------------------------------------------------------------------------------}
constructor TTrackBar.Create (AOwner : TComponent);
begin
inherited Create (aOwner);
fCompStyle := csTrackbar;
Caption := 'TrackBar';
FLineSize := 1;
FMax := 10;
FMin := 0;
FPosition := 0;
FLineSize := 1;
FPageSize := 2;
FOrientation := trHorizontal;
FShowScale := false;
FScalePos := trTop;
FScaleDigits := 0;
inherited Create (aOwner);
fCompStyle := csTrackbar;
Caption := 'TrackBar';
FLineSize := 1;
FMax := 10;
FMin := 0;
FPosition := 0;
FLineSize := 1;
FPageSize := 2;
FOrientation := trHorizontal;
FShowScale := false;
FScalePos := trTop;
FScaleDigits := 0;
SetInitialBounds(0,0,100,20);
end;
{------------------------------------------------------------------------------
@ -86,8 +87,8 @@ end;
------------------------------------------------------------------------------}
procedure TTrackBar.InitializeWnd;
begin
inherited InitializeWnd;
ApplyChanges;
inherited InitializeWnd;
ApplyChanges;
end;
{------------------------------------------------------------------------------
@ -380,6 +381,9 @@ end;
{
$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
MG: changed license to LGPL