diff --git a/components/gtk/gtkglarea/gtkglareacontrol.pas b/components/gtk/gtkglarea/gtkglareacontrol.pas index 4ae81eee87..a875b69536 100644 --- a/components/gtk/gtkglarea/gtkglareacontrol.pas +++ b/components/gtk/gtkglarea/gtkglareacontrol.pas @@ -73,6 +73,7 @@ type published property Align; property Anchors; + property BorderSpacing; property Enabled; property OnClick; property OnConstrainedResize; diff --git a/components/rtticontrols/rttictrls.pas b/components/rtticontrols/rttictrls.pas index 1e0693f317..45d4a477dd 100644 --- a/components/rtticontrols/rttictrls.pas +++ b/components/rtticontrols/rttictrls.pas @@ -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; diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index 51c4494d6a..545844c238 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -835,6 +835,7 @@ type property Align; {$IFDEF SYN_LAZARUS} property BlockIndent; + property BorderSpacing; {$ENDIF} {$IFDEF SYN_COMPILER_4_UP} property Anchors; diff --git a/components/synedit/synmemo.pas b/components/synedit/synmemo.pas index a910011fcf..e4003ab0d4 100644 --- a/components/synedit/synmemo.pas +++ b/components/synedit/synmemo.pas @@ -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; diff --git a/lcl/arrow.pp b/lcl/arrow.pp index 31d5e64256..5da8679f87 100644 --- a/lcl/arrow.pp +++ b/lcl/arrow.pp @@ -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; diff --git a/lcl/buttons.pp b/lcl/buttons.pp index 69c25def5d..3c0e32a6d4 100644 --- a/lcl/buttons.pp +++ b/lcl/buttons.pp @@ -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 diff --git a/lcl/calendar.pp b/lcl/calendar.pp index de3a5ae57a..b391841cee 100644 --- a/lcl/calendar.pp +++ b/lcl/calendar.pp @@ -92,6 +92,7 @@ Type published property Align; property Anchors; + property BorderSpacing; property Constraints; property Date; property DateTime; diff --git a/lcl/chart.pp b/lcl/chart.pp index e114f56260..07e22ea9e9 100644 --- a/lcl/chart.pp +++ b/lcl/chart.pp @@ -72,6 +72,7 @@ type property Alignment; property Anchors; property AutoSize; + property BorderSpacing; property BevelInner; property BevelOuter; property BevelWidth; diff --git a/lcl/checklst.pas b/lcl/checklst.pas index dd56ff0358..298891ca54 100644 --- a/lcl/checklst.pas +++ b/lcl/checklst.pas @@ -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 diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp index ccdf0dc784..081d7afd55 100644 --- a/lcl/comctrls.pp +++ b/lcl/comctrls.pp @@ -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 diff --git a/lcl/controls.pp b/lcl/controls.pp index fea2f18ebd..7db12d9a23 100644 --- a/lcl/controls.pp +++ b/lcl/controls.pp @@ -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 diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp index 5ff116d436..1d547f494e 100644 --- a/lcl/dialogs.pp +++ b/lcl/dialogs.pp @@ -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 diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas index c5a4217491..5569ea3515 100644 --- a/lcl/editbtn.pas +++ b/lcl/editbtn.pas @@ -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; diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index 3e62e606fd..ea4ce8993f 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -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 diff --git a/lcl/forms.pp b/lcl/forms.pp index 05c8a59f5c..5444253e34 100644 --- a/lcl/forms.pp +++ b/lcl/forms.pp @@ -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; diff --git a/lcl/grids.pas b/lcl/grids.pas index ca9cf16039..70fff17237 100644 --- a/lcl/grids.pas +++ b/lcl/grids.pas @@ -615,6 +615,7 @@ type property Align; property Anchors; property AutoAdvance; + property BorderSpacing; //property BiDiMode; property BorderStyle; property Color default clWindow; diff --git a/lcl/include/scrollbar.inc b/lcl/include/scrollbar.inc index 96b7dd3382..8f65b51278 100644 --- a/lcl/include/scrollbar.inc +++ b/lcl/include/scrollbar.inc @@ -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; diff --git a/lcl/interfaces/gtk/gtkwsstdctrls.pp b/lcl/interfaces/gtk/gtkwsstdctrls.pp index 3b944d1e69..a1a0d9f963 100644 --- a/lcl/interfaces/gtk/gtkwsstdctrls.pp +++ b/lcl/interfaces/gtk/gtkwsstdctrls.pp @@ -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 diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp index 665171618b..f87dc9e450 100644 --- a/lcl/interfaces/win32/win32wsstdctrls.pp +++ b/lcl/interfaces/win32/win32wsstdctrls.pp @@ -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 diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp index 2fc0396acf..32ad4855ca 100644 --- a/lcl/maskedit.pp +++ b/lcl/maskedit.pp @@ -146,6 +146,7 @@ type property Align; property Anchors; property AutoSize; + property BorderSpacing; property CharCase; property Color; property Constraints; diff --git a/lcl/pairsplitter.pas b/lcl/pairsplitter.pas index 0096a09856..9ba300456d 100644 --- a/lcl/pairsplitter.pas +++ b/lcl/pairsplitter.pas @@ -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; diff --git a/lcl/spin.pp b/lcl/spin.pp index cf428be8f8..dae0bf9b10 100644 --- a/lcl/spin.pp +++ b/lcl/spin.pp @@ -102,6 +102,7 @@ type published property Align; property Anchors; + property BorderSpacing; property Climb_Rate; property Constraints; property Decimal_Places; diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp index b1375f033f..8410b623d9 100644 --- a/lcl/stdctrls.pp +++ b/lcl/stdctrls.pp @@ -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 diff --git a/lcl/widgetset/wsstdctrls.pp b/lcl/widgetset/wsstdctrls.pp index 3bc60c8bc9..34625f2a3a 100644 --- a/lcl/widgetset/wsstdctrls.pp +++ b/lcl/widgetset/wsstdctrls.pp @@ -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; diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas index bd9eb03b66..876be71d23 100644 --- a/packager/packagesystem.pas +++ b/packager/packagesystem.pas @@ -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);