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

published BorderSpacing for many controls

Browse Source 
git-svn-id: trunk@6429 -
This commit is contained in:
mattias 2004-12-27 19:40:59 +00:00
parent 96d90202b9
commit c49518c55c
25 changed files with 194 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/gtk/gtkglarea/gtkglareacontrol.pas
View File

@ -73,6 +73,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Enabled;
property OnClick;
property OnConstrainedResize;

20
components/rtticontrols/rttictrls.pas
View File

@ -330,6 +330,7 @@ Type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property Constraints;
property CharCase;
property DragMode;
@ -386,6 +387,7 @@ Type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property CharCase;
property Color;
property Constraints;
@ -458,6 +460,7 @@ Type
property Anchors;
property ArrowKeysTraverseList;
property AutoDropDown;
property BorderSpacing;
property Ctl3D;
property DropDownCount;
property Enabled;
@ -516,7 +519,9 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Caption;
property ChildSizing;
property Color;
property ColumnLayout;
property Columns;
@ -571,6 +576,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Caption;
property Color;
property ColumnLayout;
@ -627,6 +633,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property BorderStyle;
property Constraints;
property ExtendedSelect;
@ -683,6 +690,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property BorderStyle;
property ClickOnSelChange;
property Constraints;
@ -756,6 +764,7 @@ Type
property AllowGrayed;
property Anchors;
property AutoSize;
property BorderSpacing;
property Caption;
property Constraints;
property DragCursor;
@ -811,6 +820,7 @@ Type
property Action;
property Align;
property Anchors;
property BorderSpacing;
property Cancel;
property Caption;
property Constraints;
@ -862,6 +872,7 @@ Type
property Alignment;
property Anchors;
property AutoSize;
property BorderSpacing;
property Color;
property Constraints;
property FocusControl;
@ -906,6 +917,8 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property ChildSizing;
property ClientHeight;
property ClientWidth;
property Color;
@ -963,6 +976,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Color;
property Constraints;
property Font;
@ -1015,6 +1029,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property DisplaySettings;
property Link;
@ -1066,6 +1081,7 @@ Type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property Center;
property Constraints;
property Link;
@ -1114,6 +1130,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Climb_Rate;
property Constraints;
property Decimal_Places;
@ -1172,6 +1189,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property Ctl3D;
property DragCursor;
@ -1244,6 +1262,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property BorderWidth;
property ButtonColor;
property Hint;
@ -1274,6 +1293,7 @@ Type
property Align;
property Anchors;
property BackgroundColor;
property BorderSpacing;
property BorderStyle;
property Constraints;
property DefaultItemHeight;

1
components/synedit/synedit.pp
View File

@ -835,6 +835,7 @@ type
property Align;
{$IFDEF SYN_LAZARUS}
property BlockIndent;
property BorderSpacing;
{$ENDIF}
{$IFDEF SYN_COMPILER_4_UP}
property Anchors;

3
components/synedit/synmemo.pas
View File

@ -74,6 +74,9 @@ type
published
// inherited properties
property Align;
{$IFDEF SYN_LAZARUS}
property BorderSpacing;
{$ENDIF}
{$IFDEF SYN_COMPILER_4_UP}
property Anchors;
property Constraints;

5
lcl/arrow.pp
View File

@ -58,7 +58,10 @@ Type
procedure Loaded; override;
procedure InitializeWnd; override;
published
Property ArrowType: TArrowType read GetArrowType write SetArrowType default atLeft;
property Align;
property Anchors;
property ArrowType: TArrowType read GetArrowType write SetArrowType default atLeft;
property BorderSpacing;
property ShadowType: TShadowType read fShadowType write SetShadowType default stEtchedIn;
property Visible;
property OnClick;

6
lcl/buttons.pp
View File

@ -97,6 +97,7 @@ type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property Cancel;
property Caption;
property Constraints;
@ -197,6 +198,7 @@ type
property Action;
property Align;
property Anchors;
property BorderSpacing;
property Cancel;
property Caption;
property Constraints;
@ -316,6 +318,7 @@ type
property Align;
property Anchors;
property AllowAllUp;
property BorderSpacing;
property Constraints;
property Caption;
property Down;
@ -380,6 +383,9 @@ end.
{ =============================================================================
$Log$
Revision 1.84 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.83 2004/12/18 10:20:22 mattias
updatepofiles is now case sensitive,
replaced many places, where Application was needlessly Owner

1
lcl/calendar.pp
View File

@ -92,6 +92,7 @@ Type
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property Date;
property DateTime;

1
lcl/chart.pp
View File

@ -72,6 +72,7 @@ type
property Alignment;
property Anchors;
property AutoSize;
property BorderSpacing;
property BevelInner;
property BevelOuter;
property BevelWidth;

4
lcl/checklst.pas
View File

@ -57,6 +57,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property BorderStyle;
property Constraints;
property ExtendedSelect;
@ -159,6 +160,9 @@ end.
{ =============================================================================
$Log$
Revision 1.9 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.8 2004/09/10 20:19:13 micha
convert LM_CLB_G/SETCHECKED to interface methods

14
lcl/comctrls.pp
View File

@ -162,6 +162,7 @@ type
property TabIndex: Integer read GetTabIndex write SetTabIndex;
published
property Caption;
property ChildSizing;
property ClientHeight;
property ClientWidth;
property Enabled;
@ -215,6 +216,7 @@ type
property ActivePage: TTabSheet read GetActiveTabSheet write SetActiveTabSheet;
property Align;
property Anchors;
property BorderSpacing;
//property BiDiMode;
property Constraints;
//property DockSite;
@ -463,6 +465,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property DockSite;
property DragCursor;
@ -818,6 +821,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
// property BorderStyle;
property BorderWidth;
property Color default clWindow;
@ -893,6 +897,8 @@ type
procedure StepBy(Delta: Integer);
published
property Align;
property Anchors;
property BorderSpacing;
property BorderWidth;
property Constraints;
property DragCursor;
@ -1004,6 +1010,7 @@ type
property Anchors;
property Associate;
property ArrowKeys;
property BorderSpacing;
property Enabled;
property Hint;
property Min;
@ -1253,10 +1260,12 @@ type
published
property Align default alTop;
property AutoSize;
property BorderSpacing;
property BorderWidth;
property ButtonHeight: Integer read FButtonHeight write SetButtonHeight default 22;
property ButtonWidth: Integer read FButtonWidth write SetButtonWidth default 23;
property Caption;
property ChildSizing;
property Constraints;
property Color;
property Ctl3D;
@ -1374,6 +1383,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property Ctl3D;
property DragCursor;
@ -2100,6 +2110,7 @@ type
property Align;
property Anchors;
property AutoExpand;
property BorderSpacing;
//property BiDiMode;
property BackgroundColor;
property BorderStyle;
@ -2265,6 +2276,9 @@ end.
{ =============================================================================
$Log$
Revision 1.153 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.152 2004/11/28 00:55:44 mattias
deactivated sending SYSKey messages in gtk intf - they are not used anyway

14
lcl/controls.pp
View File

@ -1336,11 +1336,7 @@ type
public
property Control: TControl read FControl;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
published
property LeftRightSpacing: integer read FLeftRightSpacing write SetLeftRightSpacing;
property TopBottomSpacing: integer read FTopBottomSpacing write SetTopBottomSpacing;
property HorizontalSpacing: integer read FHorizontalSpacing write SetHorizontalSpacing;
property VerticalSpacing: integer read FVerticalSpacing write SetVerticalSpacing;
// TODO: publish the properties when implemented
property EnlargeHorizontal: TChildControlEnlargeStyle read FEnlargeHorizontal
write SetEnlargeHorizontal default cesAnchorAligning;
property EnlargeVertical: TChildControlEnlargeStyle read FEnlargeVertical
@ -1349,6 +1345,11 @@ type
write SetShrinkHorizontal default cssAnchorAligning;
property ShrinkVertical: TChildControlShrinkStyle read FShrinkVertical
write SetShrinkVertical default cssAnchorAligning;
published
property LeftRightSpacing: integer read FLeftRightSpacing write SetLeftRightSpacing;
property TopBottomSpacing: integer read FTopBottomSpacing write SetTopBottomSpacing;
property HorizontalSpacing: integer read FHorizontalSpacing write SetHorizontalSpacing;
property VerticalSpacing: integer read FVerticalSpacing write SetVerticalSpacing;
end;
@ -2598,6 +2599,9 @@ end.
{ =============================================================================
$Log$
Revision 1.262 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.261 2004/12/27 12:56:42 mattias
started TTranslateStrings and .lrt files support from Vasily

4
lcl/dialogs.pp
View File

@ -251,6 +251,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property BorderWidth: integer read FBorderWidth write SetBorderWidth;
property ButtonColor:TColor read FButtonColor write SetButtonColor;
property Hint;
@ -420,6 +421,9 @@ end.
{ =============================================================================
$Log$
Revision 1.57 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.56 2004/12/21 11:14:29 mattias
implemented im/export of install package list

51
lcl/editbtn.pas
View File

@ -82,33 +82,24 @@ type
Public
Property Button;
published
// EditButton properties
Property ButtonWidth;
Property DirectInput;
property Glyph;
property NumGlyphs;
Property OnButtonClick;
Property Flat;
Property ButtonOnlyWhenFocused;
// Other properties
property AutoSize;
property Align;
property Anchors;
property BorderSpacing;
Property ButtonOnlyWhenFocused;
Property ButtonWidth;
property Color;
property Ctl3D;
Property DirectInput;
property DragCursor;
property DragMode;
property Enabled;
Property Flat;
property Font;
property Glyph;
property MaxLength;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property NumGlyphs;
Property OnButtonClick;
property OnChange;
property OnClick;
property OnDblClick;
@ -124,6 +115,16 @@ type
property OnMouseMove;
property OnMouseUp;
property OnStartDrag;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
@ -173,6 +174,9 @@ type
property NumGlyphs;
Property Flat;
// Other properties
property Align;
property Anchors;
property BorderSpacing;
property AutoSize;
property Color;
property Ctl3D;
@ -243,6 +247,9 @@ type
property NumGlyphs;
Property Flat;
// Other properties
property Align;
property Anchors;
property BorderSpacing;
property AutoSize;
property Color;
property Ctl3D;
@ -311,6 +318,9 @@ type
property NumGlyphs;
Property Flat;
// Other properties
property Align;
property Anchors;
property BorderSpacing;
property AutoSize;
property Color;
property Ctl3D;
@ -383,6 +393,9 @@ type
property NumGlyphs;
Property Flat;
// Other properties
property Align;
property Anchors;
property BorderSpacing;
property AutoSize;
property Color;
property Ctl3D;

16
lcl/extctrls.pp
View File

@ -212,6 +212,7 @@ type
TPage = class(TCustomPage)
published
property Caption;
property ChildSizing;
property ClientWidth;
property ClientHeight;
property ImageIndex;
@ -251,6 +252,7 @@ type
property ActivePage;
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property Enabled;
property Images;
@ -333,6 +335,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Brush: TBrush read FBrush write SetBrush;
property Constraints;
property DragCursor;
@ -444,6 +447,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Color;
property Constraints;
// property DragCursor;
@ -523,6 +527,7 @@ type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property Center;
property Constraints;
property OnChangeBounds;
@ -564,6 +569,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property Height;
property Left;
@ -633,7 +639,9 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Caption;
property ChildSizing;
property Color;
property ColumnLayout;
property Columns;
@ -713,7 +721,9 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Caption;
property ChildSizing;
property Color;
property ColumnLayout;
property Columns;
@ -810,6 +820,7 @@ type
published
property Anchors;
property AutoSize;
property BorderSpacing;
property CharCase;
property Color;
property Constraints;
@ -891,12 +902,14 @@ type
property Alignment;
property Anchors;
property AutoSize;
property BorderSpacing;
property BevelInner;
property BevelOuter;
property BevelWidth;
property BorderWidth;
property BorderStyle;
property Caption;
property ChildSizing;
property ClientHeight;
property ClientWidth;
property Color;
@ -971,6 +984,9 @@ end.
{
$Log$
Revision 1.125 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.124 2004/10/23 14:49:38 micha
optimize: only create tabpage contents when accessed, not immediately upon creation

3
lcl/forms.pp
View File

@ -187,8 +187,10 @@ type
property Anchors;
property AutoSize default True;
//property AutoScroll;
property BorderSpacing;
//property BiDiMode;
property BorderStyle default bsSingle;
property ChildSizing;
property Constraints;
//property DockSite;
property DragCursor;
@ -534,6 +536,7 @@ type
property BorderIcons;
property BorderStyle;
property Caption;
property ChildSizing;
property ClientHeight;
property ClientWidth;
property Color;

1
lcl/grids.pas
View File

@ -615,6 +615,7 @@ type
property Align;
property Anchors;
property AutoAdvance;
property BorderSpacing;
//property BiDiMode;
property BorderStyle;
property Color default clWindow;

40
lcl/include/scrollbar.inc
View File

@ -1,7 +1,7 @@
{%MainUnit ../stdctrls.pp}
{
TScrollBar
TCustomScrollBar
*****************************************************************************
* *
@ -20,9 +20,9 @@
{------------------------------------------------------------------------------}
{ function TScrollBar.Create }
{ function TCustomScrollBar.Create }
{------------------------------------------------------------------------------}
constructor TScrollBar.Create(AOwner: TComponent);
constructor TCustomScrollBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCompStyle := csScrollBar;
@ -41,7 +41,7 @@ begin
FLargeChange := 1;
end;
procedure TScrollBar.CreateParams(var Params: TCreateParams);
procedure TCustomScrollBar.CreateParams(var Params: TCreateParams);
const
Kinds: array[TScrollBarKind] of DWORD = (SBS_HORZ, SBS_VERT);
begin
@ -53,12 +53,12 @@ begin
FRTLFactor := 1
end;
procedure TScrollBar.CreateWnd;
procedure TCustomScrollBar.CreateWnd;
var
ScrollInfo: TScrollInfo;
begin
inherited CreateWnd;
if not HandleAllocated then RaiseGDBException('TScrollBar.CreateWnd HandleAllocated=false');
if not HandleAllocated then RaiseGDBException('TCustomScrollBar.CreateWnd HandleAllocated=false');
SetScrollRange(Handle, SB_CTL, FMin, FMax, False);
ScrollInfo.cbSize := SizeOf(ScrollInfo);
ScrollInfo.nPage := FPageSize;
@ -70,12 +70,12 @@ begin
SetScrollPos(Handle, SB_CTL, FMax - FPosition, True);
end;
function TScrollBar.NotRightToLeft: Boolean;
function TCustomScrollBar.NotRightToLeft: Boolean;
begin
Result := True;
end;
procedure TScrollBar.SetKind(Value: TScrollBarKind);
procedure TCustomScrollBar.SetKind(Value: TScrollBarKind);
var
OldWidth: Integer;
OldHeight: Integer;
@ -92,7 +92,7 @@ begin
end;
end;
procedure TScrollBar.SetParams(APosition, AMin, AMax: Integer);
procedure TCustomScrollBar.SetParams(APosition, AMin, AMax: Integer);
begin
if AMax < AMin then
raise EInvalidOperation.Create(rsScrollBarOutOfRange);
@ -120,12 +120,12 @@ begin
TWSScrollBarClass(WidgetSetClass).SetParams(Self);
end;
procedure TScrollBar.SetPosition(Value: Integer);
procedure TCustomScrollBar.SetPosition(Value: Integer);
begin
SetParams(Value, FMin, FMax);
end;
procedure TScrollBar.SetPageSize(Value: Integer);
procedure TCustomScrollBar.SetPageSize(Value: Integer);
var
ScrollInfo: TScrollInfo;
begin
@ -139,28 +139,28 @@ begin
end;
end;
procedure TScrollBar.SetMin(Value: Integer);
procedure TCustomScrollBar.SetMin(Value: Integer);
begin
SetParams(FPosition, Value, FMax);
end;
procedure TScrollBar.SetMax(Value: Integer);
procedure TCustomScrollBar.SetMax(Value: Integer);
begin
SetParams(FPosition, FMin, Value);
end;
procedure TScrollBar.Change;
procedure TCustomScrollBar.Change;
begin
inherited Changed;
if Assigned(FOnChange) then FOnChange(Self);
end;
procedure TScrollBar.Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer);
procedure TCustomScrollBar.Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
if Assigned(FOnScroll) then FOnScroll(Self, ScrollCode, ScrollPos);
end;
procedure TScrollBar.DoScroll(var Message: TLMScroll);
procedure TCustomScrollBar.DoScroll(var Message: TLMScroll);
var
ScrollPos: Integer;
NewPos: Longint;
@ -203,22 +203,22 @@ begin
end;
end;
procedure TScrollBar.CNHScroll(var Message: TLMHScroll);
procedure TCustomScrollBar.CNHScroll(var Message: TLMHScroll);
begin
DoScroll(Message);
end;
procedure TScrollBar.CNVScroll(var Message: TLMVScroll);
procedure TCustomScrollBar.CNVScroll(var Message: TLMVScroll);
begin
DoScroll(Message);
end;
procedure TScrollBar.CNCtlColorScrollBar(var Message: TLMessage);
procedure TCustomScrollBar.CNCtlColorScrollBar(var Message: TLMessage);
begin
//CallWIndowProc is not yet created so no code is here
end;
procedure TScrollBar.WMEraseBkgnd(var Message: TLMEraseBkgnd);
procedure TCustomScrollBar.WMEraseBkgnd(var Message: TLMEraseBkgnd);
begin
DefaultHandler(Message);
end;

4
lcl/interfaces/gtk/gtkwsstdctrls.pp
View File

@ -45,7 +45,7 @@ type
private
protected
public
class procedure SetParams(const AScrollBar: TScrollBar); override;
class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
end;
{ TGtkWSCustomGroupBox }
@ -308,7 +308,7 @@ end;
{ TGtkWSScrollBar }
procedure TGtkWSScrollBar.SetParams(const AScrollBar: TScrollBar);
procedure TGtkWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
var
Widget : PGtkWidget;
begin

4
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -48,7 +48,7 @@ type
public
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetParams(const AScrollBar: TScrollBar); override;
class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
end;
{ TWin32WSCustomGroupBox }
@ -308,7 +308,7 @@ begin
Result := Params.Window;
end;
procedure TWin32WSScrollBar.SetParams(const AScrollBar: TScrollBar);
procedure TWin32WSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
begin
with AScrollBar do
begin

1
lcl/maskedit.pp
View File

@ -146,6 +146,7 @@ type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property CharCase;
property Color;
property Constraints;

2
lcl/pairsplitter.pas
View File

@ -64,6 +64,7 @@ type
property Width;
property Height;
published
property ChildSizing;
property ClientWidth;
property ClientHeight;
property Enabled;
@ -119,6 +120,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Enabled;
property OnMouseDown;
property OnMouseMove;

1
lcl/spin.pp
View File

@ -102,6 +102,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Climb_Rate;
property Constraints;
property Decimal_Places;

54
lcl/stdctrls.pp
View File

@ -58,7 +58,7 @@ type
TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer) of object;
TScrollBar = class(TWinControl)
TCustomScrollBar = class(TWinControl)
private
FKind: TScrollBarKind;
FPosition: Integer;
@ -89,30 +89,48 @@ type
public
constructor Create(AOwner: TComponent); override;
procedure SetParams(APosition, AMin, AMax: Integer);
public
property Kind: TScrollBarKind read FKind write SetKind default sbHorizontal;
property LargeChange: TScrollBarInc read FLargeChange write FLargeChange default 1;
property Max: Integer read FMax write SetMax default 100;
property Min: Integer read FMin write SetMin default 0;
property PageSize: Integer read FPageSize write SetPageSize;
property Position: Integer read FPosition write SetPosition default 0;
property SmallChange: TScrollBarInc read FSmallChange write FSmallChange default 1;
property TabStop default true;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnScroll: TScrollEvent read FOnScroll write FOnScroll;
end;
{ TScrollBar }
TScrollBar = class(TCustomScrollBar)
published
property Align;
property Anchors;
property BorderSpacing;
property Constraints;
property Ctl3D;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Kind: TScrollBarKind read FKind write SetKind default sbHorizontal;
property LargeChange: TScrollBarInc read FLargeChange write FLargeChange default 1;
property Max: Integer read FMax write SetMax default 100;
property Min: Integer read FMin write SetMin default 0;
property PageSize: Integer read FPageSize write SetPageSize;
property Kind;
property LargeChange;
property Max;
property Min;
property PageSize;
property ParentCtl3D;
property ParentShowHint;
property PopupMenu;
property Position: Integer read FPosition write SetPosition default 0;
property Position;
property ShowHint;
property SmallChange: TScrollBarInc read FSmallChange write FSmallChange default 1;
property SmallChange;
property TabOrder;
property TabStop default true;
property TabStop;
property Visible;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnChange;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
@ -121,7 +139,7 @@ type
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnScroll: TScrollEvent read FOnScroll write FOnScroll;
property OnScroll;
property OnStartDrag;
end;
@ -142,7 +160,9 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Caption;
property ChildSizing;
property ClientHeight;
property ClientWidth;
property Color;
@ -316,6 +336,7 @@ type
property Anchors;
property ArrowKeysTraverseList;
property AutoDropDown;
property BorderSpacing;
property Ctl3D;
property DropDownCount;
property Enabled;
@ -480,6 +501,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property BorderStyle;
property ClickOnSelChange;
property Constraints;
@ -646,6 +668,7 @@ type
property Align;
property Anchors;
property AutoSize;
property BorderSpacing;
property Constraints;
property CharCase;
property DragMode;
@ -683,6 +706,7 @@ type
published
property Align;
property Anchors;
property BorderSpacing;
property Color;
property Constraints;
property Font;
@ -750,6 +774,7 @@ type
property Alignment;
property Anchors;
property AutoSize;
property BorderSpacing;
property Caption;
property Color;
property Constraints;
@ -846,6 +871,7 @@ type
property AllowGrayed;
property Anchors;
property AutoSize;
property BorderSpacing;
property Caption;
property Checked;
property Constraints;
@ -966,6 +992,7 @@ type
published
property AllowGrayed;
property Anchors;
property BorderSpacing;
property Caption;
property Checked;
property DragCursor;
@ -1010,6 +1037,7 @@ type
property AllowGrayed;
property Anchors;
property AutoSize;
property BorderSpacing;
property Caption;
property Checked;
property Constraints;
@ -1089,6 +1117,7 @@ type
property Alignment;
property Anchors;
property AutoSize;
property BorderSpacing;
property BorderStyle;
property Caption;
property Color;
@ -1182,6 +1211,9 @@ end.
{ =============================================================================
$Log$
Revision 1.175 2004/12/27 19:40:59 mattias
published BorderSpacing for many controls
Revision 1.174 2004/12/27 16:51:19 mattias
implemented dialog to edit basic help db settings

4
lcl/widgetset/wsstdctrls.pp
View File

@ -53,7 +53,7 @@ type
TWSScrollBarClass = class of TWSScrollBar;
TWSScrollBar = class(TWSWinControl)
class procedure SetParams(const AScrollBar: TScrollBar); virtual;
class procedure SetParams(const AScrollBar: TCustomScrollBar); virtual;
end;
{ TWSCustomGroupBox }
@ -210,7 +210,7 @@ implementation
{ TWSScrollBar }
procedure TWSScrollBar.SetParams(const AScrollBar: TScrollBar);
procedure TWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
begin
end;

2
packager/packagesystem.pas
View File

@ -941,7 +941,7 @@ begin
AddFile('dbgrids.pas','DBGrids',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('editbtn.pas','EditBtn',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('actnlist.pas','ActnList',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('filectrl.pas','FileCtrl',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('filectrl.pp','FileCtrl',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('xmlpropstorage.pas','XMLPropStorage',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('inipropstorage.pas','IniPropStorage',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('chart.pp','Chart',pftUnit,[pffHasRegisterProc],cpBase);