paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 16:56:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

widgetset: make WS classes method explicitly published

Browse Source 
win32: fix WS classes. move methods to published sections

git-svn-id: trunk@17576 -
This commit is contained in:
paul 2008-11-25 02:29:28 +00:00
parent e1184d6872
commit efe9d531c3
67 changed files with 327 additions and 454 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/interfaces.pp
View File

@ -12,7 +12,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32callback.inc
View File

@ -5,7 +5,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32debug.pp
View File

@ -14,7 +14,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32defines.inc
View File

@ -9,7 +9,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32extra.pas
View File

@ -7,7 +7,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32int.pp
View File

@ -12,7 +12,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32lclintf.inc
View File

@ -17,7 +17,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32lclintfh.inc
View File

@ -17,7 +17,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32listslh.inc
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32object.inc
View File

@ -5,7 +5,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32proc.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32trayicon.inc
View File

@ -7,7 +7,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32winapi.inc
View File

@ -18,7 +18,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/win32/win32winapih.inc
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

10
lcl/interfaces/win32/win32wsactnlist.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomActionList }
TWin32WSCustomActionList = class(TWSCustomActionList)
private
protected
public
published
end;
{ TWin32WSActionList }
TWin32WSActionList = class(TWSActionList)
private
protected
public
published
end;

6
lcl/interfaces/win32/win32wsarrow.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSArrow }
TWin32WSArrow = class(TWSArrow)
private
protected
public
published
class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType;
const AShadowType: TShadowType); override;
end;

7
lcl/interfaces/win32/win32wsbuttons.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -44,6 +44,7 @@ type
{ TWin32WSBitBtn }
TWin32WSBitBtn = class(TWSBitBtn)
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure GetPreferredSize(const AWinControl: TWinControl;
@ -63,9 +64,7 @@ type
{ TWin32WSSpeedButton }
TWin32WSSpeedButton = class(TWSSpeedButton)
private
protected
public
published
end;
procedure DrawBitBtnImage(BitBtn: TCustomBitBtn; const ButtonCaption: string);

6
lcl/interfaces/win32/win32wscalendar.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSCustomCalendar }
TWin32WSCustomCalendar = class(TWSCustomCalendar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;

6
lcl/interfaces/win32/win32wschecklst.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSCustomCheckListBox }
TWin32WSCustomCheckListBox = class(TWSCustomCheckListBox)
private
protected
public
published
class function GetStrings(const ACustomListBox: TCustomListBox): TStrings; override;
class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox;

55
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -44,9 +44,7 @@ type
{ TWin32WSStatusBar }
TWin32WSStatusBar = class(TWSStatusBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure Update(const AStatusBar: TStatusBar); override;
@ -62,17 +60,13 @@ type
{ TWin32WSTabSheet }
TWin32WSTabSheet = class(TWSTabSheet)
private
protected
public
published
end;
{ TWin32WSPageControl }
TWin32WSPageControl = class(TWSPageControl)
private
protected
public
published
end;
{ TWin32WSCustomListView }
@ -83,8 +77,7 @@ type
class procedure PositionHeader(const AHandle: THandle);
class procedure UpdateStyle(const AHandle: THandle; const AMask, AStyle: Integer);
class procedure UpdateExStyle(const AHandle: THandle; const AMask, AStyle: Integer);
protected
public
published
// columns
class procedure ColumnDelete(const ALV: TCustomListView; const AIndex: Integer); override;
class function ColumnGetWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn): Integer; override;
@ -148,17 +141,13 @@ type
{ TWin32WSListView }
TWin32WSListView = class(TWSListView)
private
protected
public
published
end;
{ TWin32WSProgressBar }
TWin32WSProgressBar = class(TWSProgressBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override;
@ -168,34 +157,26 @@ type
{ TWin32WSCustomUpDown }
TWin32WSCustomUpDown = class(TWSCustomUpDown)
private
protected
public
published
end;
{ TWin32WSUpDown }
TWin32WSUpDown = class(TWSUpDown)
private
protected
public
published
end;
{ TWin32WSToolButton }
TWin32WSToolButton = class(TWSToolButton)
private
protected
public
published
end;
{ TWin32WSToolBar }
TWin32WSToolBar = class(TWSToolBar)
private
protected
public
{$ifdef OldToolbar}
published
{$ifdef OldToolbar}
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class function GetButtonCount(const AToolBar: TToolBar): integer; override;
@ -207,9 +188,7 @@ type
{ TWin32WSTrackBar }
TWin32WSTrackBar = class(TWSTrackBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); override;
@ -220,17 +199,13 @@ type
{ TWin32WSCustomTreeView }
TWin32WSCustomTreeView = class(TWSCustomTreeView)
private
protected
public
published
end;
{ TWin32WSTreeView }
TWin32WSTreeView = class(TWSTreeView)
private
protected
public
published
end;

27
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -45,9 +45,7 @@ type
{ TWin32WSDragImageList }
TWin32WSDragImageList = class(TWSDragImageList)
private
protected
public
published
class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND;
AIndex, X, Y: Integer): Boolean; override;
class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; override;
@ -61,17 +59,13 @@ type
{ TWin32WSControl }
TWin32WSControl = class(TWSControl)
private
protected
public
published
end;
{ TWin32WSWinControl }
TWin32WSWinControl = class(TWSWinControl)
private
protected
public
published
class procedure AddControl(const AControl: TControl); override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
@ -99,28 +93,21 @@ type
{ TWin32WSGraphicControl }
TWin32WSGraphicControl = class(TWSGraphicControl)
private
protected
public
published
end;
{ TWin32WSCustomControl }
TWin32WSCustomControl = class(TWSCustomControl)
private
protected
public
published
end;
{ TWin32WSImageList }
TWin32WSImageList = class(TWSImageList)
private
protected
public
published
end;
type
TCreateWindowExParams = record
Buddy, Parent, Window: HWND;

2
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -5,7 +5,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

54
lcl/interfaces/win32/win32wsdbctrls.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,105 +42,79 @@ type
{ TWin32WSDBEdit }
TWin32WSDBEdit = class(TWSDBEdit)
private
protected
public
published
end;
{ TWin32WSDBText }
TWin32WSDBText = class(TWSDBText)
private
protected
public
published
end;
{ TWin32WSDBListBox }
TWin32WSDBListBox = class(TWSDBListBox)
private
protected
public
published
end;
{ TWin32WSDBRadioGroup }
TWin32WSDBRadioGroup = class(TWSDBRadioGroup)
private
protected
public
published
end;
{ TWin32WSDBCheckBox }
TWin32WSDBCheckBox = class(TWSDBCheckBox)
private
protected
public
published
end;
{ TWin32WSDBComboBox }
TWin32WSDBComboBox = class(TWSDBComboBox)
private
protected
public
published
end;
{ TWin32WSDBMemo }
TWin32WSDBMemo = class(TWSDBMemo)
private
protected
public
published
end;
{ TWin32WSDBGroupBox }
TWin32WSDBGroupBox = class(TWSDBGroupBox)
private
protected
public
published
end;
{ TWin32WSDBImage }
TWin32WSDBImage = class(TWSDBImage)
private
protected
public
published
end;
{ TWin32WSDBCalendar }
TWin32WSDBCalendar = class(TWSDBCalendar)
private
protected
public
published
end;
{ TWin32WSDBCustomNavigator }
TWin32WSDBCustomNavigator = class(TWSDBCustomNavigator)
private
protected
public
published
end;
{ TWin32WSDBNavButton }
TWin32WSDBNavButton = class(TWSDBNavButton)
private
protected
public
published
end;
{ TWin32WSDBNavigator }
TWin32WSDBNavigator = class(TWSDBNavigator)
private
protected
public
published
end;

10
lcl/interfaces/win32/win32wsdbgrids.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomDbGrid }
TWin32WSCustomDbGrid = class(TWSCustomDbGrid)
private
protected
public
published
end;
{ TWin32WSdbGrid }
TWin32WSdbGrid = class(TWSdbGrid)
private
protected
public
published
end;

32
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -68,9 +68,7 @@ type
{ TWin32WSCommonDialog }
TWin32WSCommonDialog = class(TWSCommonDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override;
end;
@ -78,17 +76,13 @@ type
{ TWin32WSFileDialog }
TWin32WSFileDialog = class(TWSFileDialog)
private
protected
public
published
end;
{ TWin32WSOpenDialog }
TWin32WSOpenDialog = class(TWSOpenDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override;
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
@ -97,27 +91,21 @@ type
{ TWin32WSSaveDialog }
TWin32WSSaveDialog = class(TWSSaveDialog)
private
protected
public
published
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
end;
{ TWin32WSSelectDirectoryDialog }
TWin32WSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end;
{ TWin32WSColorDialog }
TWin32WSColorDialog = class(TWSColorDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override;
@ -126,17 +114,13 @@ type
{ TWin32WSColorButton }
TWin32WSColorButton = class(TWSColorButton)
private
protected
public
published
end;
{ TWin32WSFontDialog }
TWin32WSFontDialog = class(TWSFontDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end;

5
lcl/interfaces/win32/win32wsdirsel.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,9 +42,6 @@ type
{ TWin32WSDirSelDlg }
TWin32WSDirSelDlg = class(TWSDirSelDlg)
private
protected
public
end;

26
lcl/interfaces/win32/win32wseditbtn.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,49 +42,37 @@ type
{ TWin32WSCustomEditButton }
TWin32WSCustomEditButton = class(TWSCustomEditButton)
private
protected
public
published
end;
{ TWin32WSEditButton }
TWin32WSEditButton = class(TWSEditButton)
private
protected
public
published
end;
{ TWin32WSFileNameEdit }
TWin32WSFileNameEdit = class(TWSFileNameEdit)
private
protected
public
published
end;
{ TWin32WSDirectoryEdit }
TWin32WSDirectoryEdit = class(TWSDirectoryEdit)
private
protected
public
published
end;
{ TWin32WSDateEdit }
TWin32WSDateEdit = class(TWSDateEdit)
private
protected
public
published
end;
{ TWin32WSCalcEdit }
TWin32WSCalcEdit = class(TWSCalcEdit)
private
protected
public
published
end;

80
lcl/interfaces/win32/win32wsextctrls.pp
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -46,9 +46,7 @@ type
{ TWin32WSCustomPage }
TWin32WSCustomPage = class(TWSCustomPage)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
@ -59,9 +57,7 @@ type
{ TWin32WSCustomNotebook }
TWin32WSCustomNotebook = class(TWSCustomNotebook)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AddAllNBPages(const ANotebook: TCustomNotebook);
@ -88,129 +84,97 @@ type
{ TWin32WSPage }
TWin32WSPage = class(TWSPage)
private
protected
public
published
end;
{ TWin32WSNotebook }
TWin32WSNotebook = class(TWSNotebook)
private
protected
public
published
end;
{ TWin32WSShape }
TWin32WSShape = class(TWSShape)
private
protected
public
published
end;
{ TWin32WSCustomSplitter }
TWin32WSCustomSplitter = class(TWSCustomSplitter)
private
protected
public
published
end;
{ TWin32WSSplitter }
TWin32WSSplitter = class(TWSSplitter)
private
protected
public
published
end;
{ TWin32WSPaintBox }
TWin32WSPaintBox = class(TWSPaintBox)
private
protected
public
published
end;
{ TWin32WSCustomImage }
TWin32WSCustomImage = class(TWSCustomImage)
private
protected
public
published
end;
{ TWin32WSImage }
TWin32WSImage = class(TWSImage)
private
protected
public
published
end;
{ TWin32WSBevel }
TWin32WSBevel = class(TWSBevel)
private
protected
public
published
end;
{ TWin32WSCustomRadioGroup }
TWin32WSCustomRadioGroup = class(TWSCustomRadioGroup)
private
protected
public
published
end;
{ TWin32WSRadioGroup }
TWin32WSRadioGroup = class(TWSRadioGroup)
private
protected
public
published
end;
{ TWin32WSCustomCheckGroup }
TWin32WSCustomCheckGroup = class(TWSCustomCheckGroup)
private
protected
public
published
end;
{ TWin32WSCheckGroup }
TWin32WSCheckGroup = class(TWSCheckGroup)
private
protected
public
published
end;
{ TWin32WSCustomLabeledEdit }
TWin32WSCustomLabeledEdit = class(TWSCustomLabeledEdit)
private
protected
public
published
end;
{ TWin32WSLabeledEdit }
TWin32WSLabeledEdit = class(TWSLabeledEdit)
private
protected
public
published
end;
{ TWin32WSCustomPanel }
TWin32WSCustomPanel = class(TWSCustomPanel)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -218,15 +182,13 @@ type
{ TWin32WSPanel }
TWin32WSPanel = class(TWSPanel)
private
protected
public
published
end;
{ TWin32WSCustomTrayIcon }
TWin32WSCustomTrayIcon = class(TWSCustomTrayIcon)
public
published
class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; override;
class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; override;
class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); override;

34
lcl/interfaces/win32/win32wsextdlgs.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -44,9 +44,7 @@ type
{ TWin32WSPreviewFileControl }
TWin32WSPreviewFileControl = class(TWSPreviewFileControl)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -54,59 +52,45 @@ type
{ TWin32WSPreviewFileDialog }
TWin32WSPreviewFileDialog = class(TWSPreviewFileDialog)
private
protected
public
published
end;
{ TWin32WSOpenPictureDialog }
TWin32WSOpenPictureDialog = class(TWin32WSOpenDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end;
{ TWin32WSSavePictureDialog }
TWin32WSSavePictureDialog = class(TWin32WSSaveDialog)
private
protected
public
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end;
{ TWin32WSCalculatorDialog }
TWin32WSCalculatorDialog = class(TWSCalculatorDialog)
private
protected
public
published
end;
{ TWin32WSCalculatorForm }
TWin32WSCalculatorForm = class(TWSCalculatorForm)
private
protected
public
published
end;
{ TWin32WSCalendarDialogForm }
TWin32WSCalendarDialogForm = class(TWSCalendarDialogForm)
private
protected
public
published
end;
{ TWin32WSCalendarDialog }
TWin32WSCalendarDialog = class(TWSCalendarDialog)
private
protected
public
published
end;

10
lcl/interfaces/win32/win32wsfilectrl.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomFileListBox }
TWin32WSCustomFileListBox = class(TWSCustomFileListBox)
private
protected
public
published
end;
{ TWin32WSFileListBox }
TWin32WSFileListBox = class(TWSFileListBox)
private
protected
public
published
end;

38
lcl/interfaces/win32/win32wsforms.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -43,9 +43,7 @@ type
{ TWin32WSScrollingWinControl }
TWin32WSScrollingWinControl = class(TWSScrollingWinControl)
private
protected
public
published
class procedure ScrollBy(const AWinControl: TScrollingWinControl;
const DeltaX, DeltaY: integer); override;
end;
@ -53,9 +51,7 @@ type
{ TWin32WSScrollBox }
TWin32WSScrollBox = class(TWSScrollBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -63,25 +59,19 @@ type
{ TWin32WSCustomFrame }
TWin32WSCustomFrame = class(TWSCustomFrame)
private
protected
public
published
end;
{ TWin32WSFrame }
TWin32WSFrame = class(TWSFrame)
private
protected
public
published
end;
{ TWin32WSCustomForm }
TWin32WSCustomForm = class(TWSCustomForm)
private
protected
public
published
class procedure CloseModal(const ACustomForm: TCustomForm); override;
class procedure SetAllowDropFiles(const AForm: TCustomForm; AValue: Boolean); override;
class procedure SetBorderIcons(const AForm: TCustomForm;
@ -100,17 +90,13 @@ type
{ TWin32WSForm }
TWin32WSForm = class(TWSForm)
private
protected
public
published
end;
{ TWin32WSHintWindow }
TWin32WSHintWindow = class(TWSHintWindow)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -118,17 +104,13 @@ type
{ TWin32WSScreen }
TWin32WSScreen = class(TWSScreen)
private
protected
public
published
end;
{ TWin32WSApplicationProperties }
TWin32WSApplicationProperties = class(TWSApplicationProperties)
private
protected
public
published
end;

18
lcl/interfaces/win32/win32wsgrids.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -44,34 +44,26 @@ type
{ TWin32WSStringCellEditor }
TWin32WSStringCellEditor = class(TWSStringCellEditor)
private
protected
public
published
end;
{ TWin32WSCustomGrid }
TWin32WSCustomGrid = class(TWSCustomGrid)
private
protected
public
published
class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); override;
end;
{ TWin32WSDrawGrid }
TWin32WSDrawGrid = class(TWSDrawGrid)
private
protected
public
published
end;
{ TWin32WSStringGrid }
TWin32WSStringGrid = class(TWSStringGrid)
private
protected
public
published
end;

5
lcl/interfaces/win32/win32wsimglist.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -46,10 +46,9 @@ type
{ TWin32WSCustomImageList }
TWin32WSCustomImageList = class(TWSCustomImageList)
private
protected
class procedure AddData(AListHandle: TLCLIntfHandle; ACount, AReplaceIndex, AWidth, AHeight: Integer; AData: PRGBAQuad);
public
published
class procedure Clear(AList: TCustomImageList); override;
class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; override;

10
lcl/interfaces/win32/win32wsmaskedit.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomMaskEdit }
TWin32WSCustomMaskEdit = class(TWSCustomMaskEdit)
private
protected
public
published
end;
{ TWin32WSMaskEdit }
TWin32WSMaskEdit = class(TWSMaskEdit)
private
protected
public
published
end;

18
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -45,9 +45,7 @@ type
{ TWin32WSMenuItem }
TWin32WSMenuItem = class(TWSMenuItem)
private
protected
public
published
class procedure AttachMenu(const AMenuItem: TMenuItem); override;
class function CreateHandle(const AMenuItem: TMenuItem): HMENU; override;
class procedure DestroyHandle(const AMenuItem: TMenuItem); override;
@ -62,9 +60,7 @@ type
{ TWin32WSMenu }
TWin32WSMenu = class(TWSMenu)
private
protected
public
published
class function CreateHandle(const AMenu: TMenu): HMENU; override;
class procedure SetBiDiMode(const AMenu: TMenu; UseRightToLeftAlign, UseRightToLeftReading : Boolean); override;
end;
@ -72,17 +68,13 @@ type
{ TWin32WSMainMenu }
TWin32WSMainMenu = class(TWSMainMenu)
private
protected
public
published
end;
{ TWin32WSPopupMenu }
TWin32WSPopupMenu = class(TWSPopupMenu)
private
protected
public
published
class function CreateHandle(const AMenu: TMenu): HMENU; override;
class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); override;
end;

14
lcl/interfaces/win32/win32wspairsplitter.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -40,25 +40,19 @@ type
{ TWin32WSPairSplitterSide }
TWin32WSPairSplitterSide = class(TWSPairSplitterSide)
private
protected
public
published
end;
{ TWin32WSCustomPairSplitter }
TWin32WSCustomPairSplitter = class(TWSCustomPairSplitter)
private
protected
public
published
end;
{ TWin32WSPairSplitter }
TWin32WSPairSplitter = class(TWSPairSplitter)
private
protected
public
published
end;
implementation

10
lcl/interfaces/win32/win32wsspin.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -45,9 +45,7 @@ type
{ TWin32WSCustomFloatSpinEdit }
TWin32WSCustomFloatSpinEdit = class(TWSCustomFloatSpinEdit)
private
protected
public
published
class procedure AdaptBounds(const AWinControl: TWinControl;
var Left, Top, Width, Height: integer; var SuppressMove: boolean); override;
class function CreateHandle(const AWinControl: TWinControl;
@ -69,9 +67,7 @@ type
{ TWin32WSFloatSpinEdit }
TWin32WSFloatSpinEdit = class(TWSFloatSpinEdit)
private
protected
public
published
end;

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

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -45,9 +45,7 @@ type
{ TWin32WSScrollBar }
TWin32WSScrollBar = class(TWSScrollBar)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
@ -56,9 +54,7 @@ type
{ TWin32WSCustomGroupBox }
TWin32WSCustomGroupBox = class(TWSCustomGroupBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;
@ -70,9 +66,7 @@ type
{ TWin32WSGroupBox }
TWin32WSGroupBox = class(TWSGroupBox)
private
protected
public
published
end;
{ TWin32WSCustomComboBox }
@ -80,8 +74,7 @@ type
TWin32WSCustomComboBox = class(TWSCustomComboBox)
private
class function GetStringList(const ACustomComboBox: TCustomComboBox): TWin32ComboBoxStringList;
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;
@ -115,17 +108,13 @@ type
{ TWin32WSComboBox }
TWin32WSComboBox = class(TWSComboBox)
private
protected
public
published
end;
{ TWin32WSCustomListBox }
TWin32WSCustomListBox = class(TWSCustomListBox)
private
protected
public
published
class procedure AdaptBounds(const AWinControl: TWinControl;
var Left, Top, Width, Height: integer; var SuppressMove: boolean); override;
class function CreateHandle(const AWinControl: TWinControl;
@ -152,17 +141,13 @@ type
{ TWin32WSListBox }
TWin32WSListBox = class(TWSListBox)
private
protected
public
published
end;
{ TWin32WSCustomEdit }
TWin32WSCustomEdit = class(TWSCustomEdit)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class function GetCanUndo(const ACustomEdit: TCustomEdit): Boolean; override;
@ -187,9 +172,7 @@ type
{ TWin32WSCustomMemo }
TWin32WSCustomMemo = class(TWSCustomMemo)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AppendText(const ACustomMemo: TCustomMemo; const AText: string); override;
@ -207,25 +190,19 @@ type
{ TWin32WSEdit }
TWin32WSEdit = class(TWSEdit)
private
protected
public
published
end;
{ TWin32WSMemo }
TWin32WSMemo = class(TWSMemo)
private
protected
public
published
end;
{ TWin32WSCustomStaticText }
TWin32WSCustomStaticText = class(TWSCustomStaticText)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); override;
@ -236,17 +213,13 @@ type
{ TWin32WSStaticText }
TWin32WSStaticText = class(TWSStaticText)
private
protected
public
published
end;
{ TWin32WSButtonControl }
TWin32WSButtonControl = class(TWSButtonControl)
private
protected
public
published
class procedure GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
@ -255,9 +228,7 @@ type
{ TWin32WSButton }
TWin32WSButton = class(TWSButton)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); override;
@ -267,9 +238,7 @@ type
{ TWin32WSCustomCheckBox }
TWin32WSCustomCheckBox = class(TWSCustomCheckBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure GetPreferredSize(const AWinControl: TWinControl;
@ -286,17 +255,13 @@ type
{ TWin32WSCheckBox }
TWin32WSCheckBox = class(TWSCheckBox)
private
protected
public
published
end;
{ TWin32WSToggleBox }
TWin32WSToggleBox = class(TWSToggleBox)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -304,9 +269,7 @@ type
{ TWin32WSRadioButton }
TWin32WSRadioButton = class(TWSRadioButton)
private
protected
public
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;

6
lcl/interfaces/win32/win32wstoolwin.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSToolWindow }
TWin32WSToolWindow = class(TWSToolWindow)
private
protected
public
published
end;

4
lcl/widgetset/wsactnlist.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomActionList }
TWSCustomActionList = class(TWSLCLComponent)
published
end;
{ TWSActionList }
TWSActionList = class(TWSCustomActionList)
published
end;

3
lcl/widgetset/wsarrow.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
TWSArrowClass = class of TWSArrow;
TWSArrow = class(TWSCustomControl)
published
class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType;
const AShadowType: TShadowType); virtual;
end;

4
lcl/widgetset/wsbuttons.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -54,6 +54,7 @@ type
TWSBitBtnClass = class of TWSBitBtn;
TWSBitBtn = class(TWSButton)
published
class procedure SetGlyph(const ABitBtn: TCustomBitBtn; const AValue: TButtonGlyph); virtual;
class procedure SetLayout(const ABitBtn: TCustomBitBtn; const AValue: TButtonLayout); virtual;
class procedure SetMargin(const ABitBtn: TCustomBitBtn; const AValue: Integer); virtual;
@ -64,6 +65,7 @@ type
TWSSpeedButtonClass = class of TWSSpeedButton;
TWSSpeedButton = class(TWSGraphicControl)
published
end;

3
lcl/widgetset/wscalendar.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
TWSCustomCalendarClass = class of TWSCustomCalendar;
TWSCustomCalendar = class(TWSWinControl)
published
class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; virtual;
class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); virtual;
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar;

3
lcl/widgetset/wschecklst.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -54,6 +54,7 @@ type
{ TWSCustomCheckListBox }
TWSCustomCheckListBox = class(TWSCustomListBox)
published
class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox;
const AIndex: integer): Boolean; virtual;
class function GetState(const ACheckListBox: TCustomCheckListBox;

13
lcl/widgetset/wscomctrls.pp
View File

@ -55,6 +55,7 @@ type
TWSStatusBarClass = class of TWSStatusBar;
TWSStatusBar = class(TWSWinControl)
published
class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); virtual;
class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); virtual;
class procedure SetSizeGrip(const AStatusBar: TStatusBar; SizeGrip: Boolean); virtual;
@ -64,11 +65,13 @@ type
{ TWSTabSheet }
TWSTabSheet = class(TWSCustomPage)
published
end;
{ TWSPageControl }
TWSPageControl = class(TWSCustomNotebook)
published
end;
{ TWSCustomListView }
@ -77,6 +80,7 @@ type
TWSCustomListViewClass = class of TWSCustomListView;
TWSCustomListView = class(TWSWinControl)
published
// Column
class procedure ColumnDelete(const ALV: TCustomListView; const AIndex: Integer); virtual;
class function ColumnGetWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn): Integer; virtual;
@ -137,12 +141,14 @@ type
{ TWSListView }
TWSListView = class(TWSCustomListView)
published
end;
{ TWSProgressBar }
TWSProgressBarClass = class of TWSProgressBar;
TWSProgressBar = class(TWSWinControl)
published
class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); virtual;
class procedure SetPosition(const AProgressBar: TCustomProgressBar; const NewPosition: integer); virtual;
end;
@ -150,22 +156,26 @@ type
{ TWSCustomUpDown }
TWSCustomUpDown = class(TWSCustomControl)
published
end;
{ TWSUpDown }
TWSUpDown = class(TWSCustomUpDown)
published
end;
{ TWSToolButton }
TWSToolButton = class(TWSCustomControl)
published
end;
{ TWSToolBar }
TWSToolbarClass = class of TWSToolbar;
TWSToolBar = class(TWSToolWindow)
published
{$ifdef OldToolbar}
class function GetButtonCount(const AToolBar: TToolBar): integer; virtual;
class procedure InsertToolButton(const AToolBar: TToolbar; const AControl: TControl); virtual;
@ -177,6 +187,7 @@ type
TWSTrackBarClass = class of TWSTrackBar;
TWSTrackBar = class(TWSWinControl)
published
class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); virtual;
class function GetPosition(const ATrackBar: TCustomTrackBar): integer; virtual;
class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); virtual;
@ -185,11 +196,13 @@ type
{ TWSCustomTreeView }
TWSCustomTreeView = class(TWSCustomControl)
published
end;
{ TWSTreeView }
TWSTreeView = class(TWSCustomTreeView)
published
end;

8
lcl/widgetset/wscontrols.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -55,6 +55,7 @@ type
{ TWSDragImageList }
TWSDragImageList = class(TWSCustomImageList)
published
class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND; AIndex, X, Y: Integer): Boolean; virtual;
class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; virtual;
class procedure EndDrag(const ADragImageList: TDragImageList); virtual;
@ -69,6 +70,7 @@ type
{ TWSControl }
TWSControl = class(TWSLCLComponent)
published
class procedure AddControl(const AControl: TControl); virtual;
end;
@ -81,6 +83,7 @@ type
{ TWSWinControl }
TWSWinControl = class(TWSControl)
published
class function CanFocus(const AWincontrol: TWinControl): Boolean; virtual;
class function GetClientBounds(const AWincontrol: TWinControl; var ARect: TRect): Boolean; virtual;
@ -120,16 +123,19 @@ type
{ TWSGraphicControl }
TWSGraphicControl = class(TWSControl)
published
end;
{ TWSCustomControl }
TWSCustomControl = class(TWSWinControl)
published
end;
{ TWSImageList }
TWSImageList = class(TWSDragImageList)
published
end;

14
lcl/widgetset/wsdbctrls.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,61 +53,73 @@ type
{ TWSDBEdit }
TWSDBEdit = class(TWSCustomMaskEdit)
published
end;
{ TWSDBListBox }
TWSDBListBox = class(TWSCustomListBox)
published
end;
{ TWSDBRadioGroup }
TWSDBRadioGroup = class(TWSCustomRadioGroup)
published
end;
{ TWSDBCheckBox }
TWSDBCheckBox = class(TWSCustomCheckBox)
published
end;
{ TWSDBComboBox }
TWSDBComboBox = class(TWSCustomComboBox)
published
end;
{ TWSDBMemo }
TWSDBMemo = class(TWSCustomMemo)
published
end;
{ TWSDBGroupBox }
TWSDBGroupBox = class(TWSCustomGroupBox)
published
end;
{ TWSDBImage }
TWSDBImage = class(TWSCustomImage)
published
end;
{ TWSDBCalendar }
TWSDBCalendar = class(TWSCustomCalendar)
published
end;
{ TWSDBCustomNavigator }
TWSDBCustomNavigator = class(TWSCustomPanel)
published
end;
{ TWSDBNavButton }
TWSDBNavButton = class(TWSSpeedButton)
published
end;
{ TWSDBNavigator }
TWSDBNavigator = class(TWSDBCustomNavigator)
published
end;

4
lcl/widgetset/wsdbgrids.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomDbGrid }
TWSCustomDbGrid = class(TWSCustomGrid)
published
end;
{ TWSdbGrid }
TWSdbGrid = class(TWSCustomDbGrid)
published
end;

3
lcl/widgetset/wsdesigner.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -47,6 +47,7 @@ type
{ TWsCustomRubberBand }
TWsCustomRubberBand = class(TWsWinControl)
published
class procedure SetShape(ARubberBand: TCustomRubberBand; AShape: TRubberBandShape); virtual; overload;
end;
TWsCustomRubberBandClass = class of TWsCustomRubberBand;

10
lcl/widgetset/wsdialogs.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
TWSCommonDialogClass = class of TWSCommonDialog;
TWSCommonDialog = class(TWSLCLComponent)
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; virtual;
class procedure ShowModal(const ACommonDialog: TCommonDialog); virtual;
class procedure DestroyHandle(const ACommonDialog: TCommonDialog); virtual;
@ -61,36 +62,43 @@ type
{ TWSFileDialog }
TWSFileDialog = class(TWSCommonDialog)
published
end;
{ TWSOpenDialog }
TWSOpenDialog = class(TWSFileDialog)
published
end;
{ TWSSaveDialog }
TWSSaveDialog = class(TWSOpenDialog)
published
end;
{ TWSSelectDirectoryDialog }
TWSSelectDirectoryDialog = class(TWSOpenDialog)
published
end;
{ TWSColorDialog }
TWSColorDialog = class(TWSCommonDialog)
published
end;
{ TWSColorButton }
TWSColorButton = class(TWSGraphicControl)
published
end;
{ TWSFontDialog }
TWSFontDialog = class(TWSCommonDialog)
published
end;

3
lcl/widgetset/wsdirsel.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,6 +52,7 @@ type
{ TWSDirSelDlg }
TWSDirSelDlg = class(TWSForm)
published
end;

8
lcl/widgetset/wseditbtn.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,31 +52,37 @@ type
{ TWSCustomEditButton }
TWSCustomEditButton = class(TWSEdit)
published
end;
{ TWSEditButton }
TWSEditButton = class(TWSCustomEditButton)
published
end;
{ TWSFileNameEdit }
TWSFileNameEdit = class(TWSCustomEditButton)
published
end;
{ TWSDirectoryEdit }
TWSDirectoryEdit = class(TWSCustomEditButton)
published
end;
{ TWSDateEdit }
TWSDateEdit = class(TWSCustomEditButton)
published
end;
{ TWSCalcEdit }
TWSCalcEdit = class(TWSCustomEditButton)
published
end;

23
lcl/widgetset/wsextctrls.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,12 +53,14 @@ type
TWSCustomPageClass = class of TWSCustomPage;
TWSCustomPage = class(TWSWinControl)
published
class procedure UpdateProperties(const ACustomPage: TCustomPage); virtual;
end;
{ TWSCustomNotebook }
TWSCustomNotebook = class(TWSWinControl)
published
class procedure AddPage(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const AIndex: integer); virtual;
class procedure MovePage(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const NewIndex: integer); virtual;
class procedure RemovePage(const ANotebook: TCustomNotebook; const AIndex: integer); virtual;
@ -80,82 +82,97 @@ type
{ TWSPage }
TWSPage = class(TWSCustomPage)
published
end;
{ TWSNotebook }
TWSNotebook = class(TWSCustomNotebook)
published
end;
{ TWSShape }
TWSShape = class(TWSGraphicControl)
published
end;
{ TWSCustomSplitter }
TWSCustomSplitter = class(TWSCustomControl)
public
published
end;
{ TWSSplitter }
TWSSplitter = class(TWSCustomSplitter)
published
end;
{ TWSPaintBox }
TWSPaintBox = class(TWSGraphicControl)
published
end;
{ TWSCustomImage }
TWSCustomImage = class(TWSGraphicControl)
published
end;
{ TWSImage }
TWSImage = class(TWSCustomImage)
published
end;
{ TWSBevel }
TWSBevel = class(TWSGraphicControl)
published
end;
{ TWSCustomRadioGroup }
TWSCustomRadioGroup = class(TWSCustomGroupBox)
published
end;
{ TWSRadioGroup }
TWSRadioGroup = class(TWSCustomRadioGroup)
published
end;
{ TWSCustomCheckGroup }
TWSCustomCheckGroup = class(TWSCustomGroupBox)
published
end;
{ TWSCheckGroup }
TWSCheckGroup = class(TWSCustomCheckGroup)
published
end;
{ TWSCustomLabeledEdit }
TWSCustomLabeledEdit = class(TWSCustomEdit)
published
end;
{ TWSLabeledEdit }
TWSLabeledEdit = class(TWSCustomLabeledEdit)
published
end;
{ TWSCustomPanel }
TWSCustomPanel = class(TWSCustomControl)
published
end;
{ TWSPanel }
@ -166,7 +183,7 @@ type
{ TWSCustomTrayIcon }
TWSCustomTrayIcon = class(TWSLCLComponent)
public
published
class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); virtual;

10
lcl/widgetset/wsextdlgs.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,41 +52,49 @@ type
{ TWSPreviewFileControl }
TWSPreviewFileControl = class(TWSWinControl)
published
end;
{ TWSPreviewFileDialog }
TWSPreviewFileDialog = class(TWSOpenDialog)
published
end;
{ TWSOpenPictureDialog }
TWSOpenPictureDialog = class(TWSPreviewFileDialog)
published
end;
{ TWSSavePictureDialog }
TWSSavePictureDialog = class(TWSOpenPictureDialog)
published
end;
{ TWSCalculatorDialog }
TWSCalculatorDialog = class(TWSCommonDialog)
published
end;
{ TWSCalculatorForm }
TWSCalculatorForm = class(TWSForm)
published
end;
{ TWSCalendarDialogForm }
TWSCalendarDialogForm = class(TWSForm)
published
end;
{ TWSCalendarDialog }
TWSCalendarDialog = class(TWSCommonDialog)
published
end;

4
lcl/widgetset/wsfilectrl.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomFileListBox }
TWSCustomFileListBox = class(TWSCustomListBox)
published
end;
{ TWSFileListBox }
TWSFileListBox = class(TWSCustomFileListBox)
published
end;

11
lcl/widgetset/wsforms.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
TWSScrollingWinControlClass = class of TWSScrollingWinControl;
TWSScrollingWinControl = class(TWSWinControl)
published
class procedure ScrollBy(const AWinControl: TScrollingWinControl;
const DeltaX, DeltaY: integer); virtual;
end;
@ -60,21 +61,25 @@ type
{ TWSScrollBox }
TWSScrollBox = class(TWSScrollingWinControl)
published
end;
{ TWSCustomFrame }
TWSCustomFrame = class(TWSScrollingWinControl)
published
end;
{ TWSFrame }
TWSFrame = class(TWSCustomFrame)
published
end;
{ TWSCustomForm }
TWSCustomForm = class(TWSScrollingWinControl)
published
class procedure CloseModal(const ACustomForm: TCustomForm); virtual;
class procedure SetAllowDropFiles(const AForm: TCustomForm; AValue: Boolean); virtual;
class procedure SetBorderIcons(const AForm: TCustomForm;
@ -92,21 +97,25 @@ type
{ TWSForm }
TWSForm = class(TWSCustomForm)
published
end;
{ TWSHintWindow }
TWSHintWindow = class(TWSCustomForm)
published
end;
{ TWSScreen }
TWSScreen = class(TWSLCLComponent)
published
end;
{ TWSApplicationProperties }
TWSApplicationProperties = class(TWSLCLComponent)
published
end;

6
lcl/widgetset/wsgrids.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,23 +52,27 @@ type
{ TWSStringCellEditor }
TWSStringCellEditor = class(TWSCustomMaskEdit)
published
end;
TWSCustomGridClass = class of TWSCustomgrid;
{ TWSCustomGrid }
TWSCustomGrid = class(TWSCustomControl)
published
class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); virtual;
end;
{ TWSDrawGrid }
TWSDrawGrid = class(TWSCustomGrid)
published
end;
{ TWSStringGrid }
TWSStringGrid = class(TWSDrawGrid)
published
end;

3
lcl/widgetset/wsimglist.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -47,6 +47,7 @@ type
{ TWSCustomImageList }
TWSCustomImageList = class(TWSLCLReferenceComponent)
published
class procedure Clear(AList: TCustomImageList); virtual;
class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; virtual;

3
lcl/widgetset/wslclclasses.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -69,6 +69,7 @@ type
{ TWSLCLHandleComponent }
TWSLCLReferenceComponent = class(TWSLCLComponent)
published
class procedure DestroyReference(AComponent: TComponent); virtual;
end;
TWSLCLReferenceComponentClass = class of TWSLCLReferenceComponent;

4
lcl/widgetset/wsmaskedit.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomMaskEdit }
TWSCustomMaskEdit = class(TWSCustomEdit)
published
end;
{ TWSMaskEdit }
TWSMaskEdit = class(TWSCustomMaskEdit)
published
end;

6
lcl/widgetset/wsmenus.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
{ TWSMenuItem }
TWSMenuItem = class(TWSLCLComponent)
published
class procedure AttachMenu(const AMenuItem: TMenuItem); virtual;
class function CreateHandle(const AMenuItem: TMenuItem): HMENU; virtual;
class procedure DestroyHandle(const AMenuItem: TMenuItem); virtual;
@ -71,6 +72,7 @@ type
TWSMenuClass = class of TWSMenu;
TWSMenu = class(TWSLCLComponent)
published
class function CreateHandle(const AMenu: TMenu): HMENU; virtual;
class procedure SetBiDiMode(const AMenu: TMenu; UseRightToLeftAlign, UseRightToLeftReading : Boolean); virtual;
@ -79,11 +81,13 @@ type
{ TWSMainMenu }
TWSMainMenu = class(TWSMenu)
published
end;
{ TWSPopupMenu }
TWSPopupMenu = class(TWSMenu)
published
class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); virtual;
end;
TWSPopupMenuClass = class of TWSPopupMenu;

5
lcl/widgetset/wspairsplitter.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -49,11 +49,13 @@ type
{ TWSPairSplitterSide }
TWSPairSplitterSide = class(TWSWinControl)
published
end;
{ TWSCustomPairSplitter }
TWSCustomPairSplitter = class(TWSWinControl)
published
class function AddSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; virtual;
class function RemoveSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; virtual;
class function SetPosition(ASplitter: TCustomPairSplitter; var NewPosition: integer): Boolean; virtual;
@ -67,6 +69,7 @@ type
{ TWSPairSplitter }
TWSPairSplitter = class(TWSCustomPairSplitter)
published
end;

2
lcl/widgetset/wsproc.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/widgetset/wsreferences.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

4
lcl/widgetset/wsspin.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,6 +52,7 @@ type
{ TWSCustomFloatSpinEdit }
TWSCustomFloatSpinEdit = class(TWSCustomEdit)
published
class function GetValue(const ACustomFloatSpinEdit: TCustomFloatSpinEdit): double; virtual;
(* TODO: seperation into properties instead of bulk update
@ -68,6 +69,7 @@ type
{ TWSFloatSpinEdit }
TWSFloatSpinEdit = class(TWSCustomFloatSpinEdit)
published
end;

21
lcl/widgetset/wsstdctrls.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,6 +52,7 @@ type
{ TWSScrollBar }
TWSScrollBar = class(TWSWinControl)
published
class procedure SetParams(const AScrollBar: TCustomScrollBar); virtual;
end;
TWSScrollBarClass = class of TWSScrollBar;
@ -59,16 +60,19 @@ type
{ TWSCustomGroupBox }
TWSCustomGroupBox = class(TWSCustomControl)
published
end;
{ TWSGroupBox }
TWSGroupBox = class(TWSCustomGroupBox)
published
end;
{ TWSCustomComboBox }
TWSCustomComboBox = class(TWSWinControl)
published
class function GetSelStart(const ACustomComboBox: TCustomComboBox): integer; virtual;
class function GetSelLength(const ACustomComboBox: TCustomComboBox): integer; virtual;
class function GetItemIndex(const ACustomComboBox: TCustomComboBox): integer; virtual;
@ -95,11 +99,13 @@ type
{ TWSComboBox }
TWSComboBox = class(TWSCustomComboBox)
published
end;
{ TWSCustomListBox }
TWSCustomListBox = class(TWSWinControl)
published
class function GetIndexAtXY(const ACustomListBox: TCustomListBox; X, Y: integer): integer; virtual;
class function GetItemIndex(const ACustomListBox: TCustomListBox): integer; virtual;
class function GetItemRect(const ACustomListBox: TCustomListBox; Index: integer; var ARect: TRect): boolean; virtual;
@ -124,11 +130,13 @@ type
{ TWSListBox }
TWSListBox = class(TWSCustomListBox)
published
end;
{ TWSCustomEdit }
TWSCustomEdit = class(TWSWinControl)
published
class function GetCanUndo(const ACustomEdit: TCustomEdit): Boolean; virtual;
class function GetCaretPos(const ACustomEdit: TCustomEdit): TPoint; virtual;
class function GetSelStart(const ACustomEdit: TCustomEdit): integer; virtual;
@ -150,6 +158,7 @@ type
{ TWSCustomMemo }
TWSCustomMemo = class(TWSCustomEdit)
published
class procedure AppendText(const ACustomMemo: TCustomMemo; const AText: string); virtual;
class function GetStrings(const ACustomMemo: TCustomMemo): TStrings; virtual;
class procedure SetAlignment(const ACustomMemo: TCustomMemo; const AAlignment: TAlignment); virtual;
@ -163,17 +172,20 @@ type
{ TWSEdit }
TWSEdit = class(TWSCustomEdit)
published
end;
{ TWSMemo }
TWSMemo = class(TWSCustomMemo)
published
end;
{ TWSCustomStaticText }
TWSCustomStaticTextClass = class of TWSCustomStaticText;
TWSCustomStaticText = class(TWSWinControl)
published
class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); virtual;
class procedure SetStaticBorderStyle(const ACustomStaticText: TCustomStaticText; const NewBorderStyle: TStaticBorderStyle); virtual;
end;
@ -181,16 +193,19 @@ type
{ TWSStaticText }
TWSStaticText = class(TWSCustomStaticText)
published
end;
{ TWSButtonControl }
TWSButtonControl = class(TWSWinControl)
published
end;
{ TWSButton }
TWSButton = class(TWSButtonControl)
published
class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); virtual;
class procedure SetShortCut(const AButton: TCustomButton; const OldShortCut, NewShortCut: TShortCut); virtual;
end;
@ -199,6 +214,7 @@ type
{ TWSCustomCheckBox }
TWSCustomCheckBox = class(TWSButtonControl)
published
class function RetrieveState(const ACustomCheckBox: TCustomCheckBox): TCheckBoxState; virtual;
class procedure SetShortCut(const ACustomCheckBox: TCustomCheckBox;
const OldShortCut, NewShortCut: TShortCut); virtual;
@ -209,16 +225,19 @@ type
{ TWSCheckBox }
TWSCheckBox = class(TWSCustomCheckBox)
published
end;
{ TWSToggleBox }
TWSToggleBox = class(TWSCustomCheckBox)
published
end;
{ TWSRadioButton }
TWSRadioButton = class(TWSCustomCheckBox)
published
end;

3
lcl/widgetset/wstoolwin.pp
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -52,6 +52,7 @@ type
{ TWSToolWindow }
TWSToolWindow = class(TWSCustomControl)
published
end;