paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomActionList } { TWin32WSCustomActionList }
TWin32WSCustomActionList = class(TWSCustomActionList) TWin32WSCustomActionList = class(TWSCustomActionList)
private published
protected
public
end; end;
{ TWin32WSActionList } { TWin32WSActionList }
TWin32WSActionList = class(TWSActionList) TWin32WSActionList = class(TWSActionList)
private published
protected
public
end; end;

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

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

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -44,6 +44,7 @@ type
{ TWin32WSBitBtn } { TWin32WSBitBtn }
TWin32WSBitBtn = class(TWSBitBtn) TWin32WSBitBtn = class(TWSBitBtn)
published
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
class procedure GetPreferredSize(const AWinControl: TWinControl; class procedure GetPreferredSize(const AWinControl: TWinControl;
@ -63,9 +64,7 @@ type
{ TWin32WSSpeedButton } { TWin32WSSpeedButton }
TWin32WSSpeedButton = class(TWSSpeedButton) TWin32WSSpeedButton = class(TWSSpeedButton)
private published
protected
public
end; end;
procedure DrawBitBtnImage(BitBtn: TCustomBitBtn; const ButtonCaption: string); 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSCustomCalendar } { TWin32WSCustomCalendar }
TWin32WSCustomCalendar = class(TWSCustomCalendar) TWin32WSCustomCalendar = class(TWSCustomCalendar)
private published
protected
public
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSCustomCheckListBox } { TWin32WSCustomCheckListBox }
TWin32WSCustomCheckListBox = class(TWSCustomCheckListBox) TWin32WSCustomCheckListBox = class(TWSCustomCheckListBox)
private published
protected
public
class function GetStrings(const ACustomListBox: TCustomListBox): TStrings; override; class function GetStrings(const ACustomListBox: TCustomListBox): TStrings; override;
class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox; class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox;

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

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

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -45,9 +45,7 @@ type
{ TWin32WSDragImageList } { TWin32WSDragImageList }
TWin32WSDragImageList = class(TWSDragImageList) TWin32WSDragImageList = class(TWSDragImageList)
private published
protected
public
class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND; class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND;
AIndex, X, Y: Integer): Boolean; override; AIndex, X, Y: Integer): Boolean; override;
class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; override; class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; override;
@ -61,17 +59,13 @@ type
{ TWin32WSControl } { TWin32WSControl }
TWin32WSControl = class(TWSControl) TWin32WSControl = class(TWSControl)
private published
protected
public
end; end;
{ TWin32WSWinControl } { TWin32WSWinControl }
TWin32WSWinControl = class(TWSWinControl) TWin32WSWinControl = class(TWSWinControl)
private published
protected
public
class procedure AddControl(const AControl: TControl); override; class procedure AddControl(const AControl: TControl); override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override; class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
@ -99,28 +93,21 @@ type
{ TWin32WSGraphicControl } { TWin32WSGraphicControl }
TWin32WSGraphicControl = class(TWSGraphicControl) TWin32WSGraphicControl = class(TWSGraphicControl)
private published
protected
public
end; end;
{ TWin32WSCustomControl } { TWin32WSCustomControl }
TWin32WSCustomControl = class(TWSCustomControl) TWin32WSCustomControl = class(TWSCustomControl)
private published
protected
public
end; end;
{ TWin32WSImageList } { TWin32WSImageList }
TWin32WSImageList = class(TWSImageList) TWin32WSImageList = class(TWSImageList)
private published
protected
public
end; end;
type type
TCreateWindowExParams = record TCreateWindowExParams = record
Buddy, Parent, Window: HWND; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,105 +42,79 @@ type
{ TWin32WSDBEdit } { TWin32WSDBEdit }
TWin32WSDBEdit = class(TWSDBEdit) TWin32WSDBEdit = class(TWSDBEdit)
private published
protected
public
end; end;
{ TWin32WSDBText } { TWin32WSDBText }
TWin32WSDBText = class(TWSDBText) TWin32WSDBText = class(TWSDBText)
private published
protected
public
end; end;
{ TWin32WSDBListBox } { TWin32WSDBListBox }
TWin32WSDBListBox = class(TWSDBListBox) TWin32WSDBListBox = class(TWSDBListBox)
private published
protected
public
end; end;
{ TWin32WSDBRadioGroup } { TWin32WSDBRadioGroup }
TWin32WSDBRadioGroup = class(TWSDBRadioGroup) TWin32WSDBRadioGroup = class(TWSDBRadioGroup)
private published
protected
public
end; end;
{ TWin32WSDBCheckBox } { TWin32WSDBCheckBox }
TWin32WSDBCheckBox = class(TWSDBCheckBox) TWin32WSDBCheckBox = class(TWSDBCheckBox)
private published
protected
public
end; end;
{ TWin32WSDBComboBox } { TWin32WSDBComboBox }
TWin32WSDBComboBox = class(TWSDBComboBox) TWin32WSDBComboBox = class(TWSDBComboBox)
private published
protected
public
end; end;
{ TWin32WSDBMemo } { TWin32WSDBMemo }
TWin32WSDBMemo = class(TWSDBMemo) TWin32WSDBMemo = class(TWSDBMemo)
private published
protected
public
end; end;
{ TWin32WSDBGroupBox } { TWin32WSDBGroupBox }
TWin32WSDBGroupBox = class(TWSDBGroupBox) TWin32WSDBGroupBox = class(TWSDBGroupBox)
private published
protected
public
end; end;
{ TWin32WSDBImage } { TWin32WSDBImage }
TWin32WSDBImage = class(TWSDBImage) TWin32WSDBImage = class(TWSDBImage)
private published
protected
public
end; end;
{ TWin32WSDBCalendar } { TWin32WSDBCalendar }
TWin32WSDBCalendar = class(TWSDBCalendar) TWin32WSDBCalendar = class(TWSDBCalendar)
private published
protected
public
end; end;
{ TWin32WSDBCustomNavigator } { TWin32WSDBCustomNavigator }
TWin32WSDBCustomNavigator = class(TWSDBCustomNavigator) TWin32WSDBCustomNavigator = class(TWSDBCustomNavigator)
private published
protected
public
end; end;
{ TWin32WSDBNavButton } { TWin32WSDBNavButton }
TWin32WSDBNavButton = class(TWSDBNavButton) TWin32WSDBNavButton = class(TWSDBNavButton)
private published
protected
public
end; end;
{ TWin32WSDBNavigator } { TWin32WSDBNavigator }
TWin32WSDBNavigator = class(TWSDBNavigator) TWin32WSDBNavigator = class(TWSDBNavigator)
private published
protected
public
end; end;

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomDbGrid } { TWin32WSCustomDbGrid }
TWin32WSCustomDbGrid = class(TWSCustomDbGrid) TWin32WSCustomDbGrid = class(TWSCustomDbGrid)
private published
protected
public
end; end;
{ TWin32WSdbGrid } { TWin32WSdbGrid }
TWin32WSdbGrid = class(TWSdbGrid) TWin32WSdbGrid = class(TWSdbGrid)
private published
protected
public
end; end;

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

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

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,9 +42,6 @@ type
{ TWin32WSDirSelDlg } { TWin32WSDirSelDlg }
TWin32WSDirSelDlg = class(TWSDirSelDlg) TWin32WSDirSelDlg = class(TWSDirSelDlg)
private
protected
public
end; end;

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

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

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

@ -10,7 +10,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -46,9 +46,7 @@ type
{ TWin32WSCustomPage } { TWin32WSCustomPage }
TWin32WSCustomPage = class(TWSCustomPage) TWin32WSCustomPage = class(TWSCustomPage)
private published
protected
public
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override; class procedure DestroyHandle(const AWinControl: TWinControl); override;
@ -59,9 +57,7 @@ type
{ TWin32WSCustomNotebook } { TWin32WSCustomNotebook }
TWin32WSCustomNotebook = class(TWSCustomNotebook) TWin32WSCustomNotebook = class(TWSCustomNotebook)
private published
protected
public
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
class procedure AddAllNBPages(const ANotebook: TCustomNotebook); class procedure AddAllNBPages(const ANotebook: TCustomNotebook);
@ -88,129 +84,97 @@ type
{ TWin32WSPage } { TWin32WSPage }
TWin32WSPage = class(TWSPage) TWin32WSPage = class(TWSPage)
private published
protected
public
end; end;
{ TWin32WSNotebook } { TWin32WSNotebook }
TWin32WSNotebook = class(TWSNotebook) TWin32WSNotebook = class(TWSNotebook)
private published
protected
public
end; end;
{ TWin32WSShape } { TWin32WSShape }
TWin32WSShape = class(TWSShape) TWin32WSShape = class(TWSShape)
private published
protected
public
end; end;
{ TWin32WSCustomSplitter } { TWin32WSCustomSplitter }
TWin32WSCustomSplitter = class(TWSCustomSplitter) TWin32WSCustomSplitter = class(TWSCustomSplitter)
private published
protected
public
end; end;
{ TWin32WSSplitter } { TWin32WSSplitter }
TWin32WSSplitter = class(TWSSplitter) TWin32WSSplitter = class(TWSSplitter)
private published
protected
public
end; end;
{ TWin32WSPaintBox } { TWin32WSPaintBox }
TWin32WSPaintBox = class(TWSPaintBox) TWin32WSPaintBox = class(TWSPaintBox)
private published
protected
public
end; end;
{ TWin32WSCustomImage } { TWin32WSCustomImage }
TWin32WSCustomImage = class(TWSCustomImage) TWin32WSCustomImage = class(TWSCustomImage)
private published
protected
public
end; end;
{ TWin32WSImage } { TWin32WSImage }
TWin32WSImage = class(TWSImage) TWin32WSImage = class(TWSImage)
private published
protected
public
end; end;
{ TWin32WSBevel } { TWin32WSBevel }
TWin32WSBevel = class(TWSBevel) TWin32WSBevel = class(TWSBevel)
private published
protected
public
end; end;
{ TWin32WSCustomRadioGroup } { TWin32WSCustomRadioGroup }
TWin32WSCustomRadioGroup = class(TWSCustomRadioGroup) TWin32WSCustomRadioGroup = class(TWSCustomRadioGroup)
private published
protected
public
end; end;
{ TWin32WSRadioGroup } { TWin32WSRadioGroup }
TWin32WSRadioGroup = class(TWSRadioGroup) TWin32WSRadioGroup = class(TWSRadioGroup)
private published
protected
public
end; end;
{ TWin32WSCustomCheckGroup } { TWin32WSCustomCheckGroup }
TWin32WSCustomCheckGroup = class(TWSCustomCheckGroup) TWin32WSCustomCheckGroup = class(TWSCustomCheckGroup)
private published
protected
public
end; end;
{ TWin32WSCheckGroup } { TWin32WSCheckGroup }
TWin32WSCheckGroup = class(TWSCheckGroup) TWin32WSCheckGroup = class(TWSCheckGroup)
private published
protected
public
end; end;
{ TWin32WSCustomLabeledEdit } { TWin32WSCustomLabeledEdit }
TWin32WSCustomLabeledEdit = class(TWSCustomLabeledEdit) TWin32WSCustomLabeledEdit = class(TWSCustomLabeledEdit)
private published
protected
public
end; end;
{ TWin32WSLabeledEdit } { TWin32WSLabeledEdit }
TWin32WSLabeledEdit = class(TWSLabeledEdit) TWin32WSLabeledEdit = class(TWSLabeledEdit)
private published
protected
public
end; end;
{ TWin32WSCustomPanel } { TWin32WSCustomPanel }
TWin32WSCustomPanel = class(TWSCustomPanel) TWin32WSCustomPanel = class(TWSCustomPanel)
private published
protected
public
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
end; end;
@ -218,15 +182,13 @@ type
{ TWin32WSPanel } { TWin32WSPanel }
TWin32WSPanel = class(TWSPanel) TWin32WSPanel = class(TWSPanel)
private published
protected
public
end; end;
{ TWin32WSCustomTrayIcon } { TWin32WSCustomTrayIcon }
TWin32WSCustomTrayIcon = class(TWSCustomTrayIcon) TWin32WSCustomTrayIcon = class(TWSCustomTrayIcon)
public published
class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; override; class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; override;
class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; override; class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; override;
class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -44,9 +44,7 @@ type
{ TWin32WSPreviewFileControl } { TWin32WSPreviewFileControl }
TWin32WSPreviewFileControl = class(TWSPreviewFileControl) TWin32WSPreviewFileControl = class(TWSPreviewFileControl)
private published
protected
public
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
end; end;
@ -54,59 +52,45 @@ type
{ TWin32WSPreviewFileDialog } { TWin32WSPreviewFileDialog }
TWin32WSPreviewFileDialog = class(TWSPreviewFileDialog) TWin32WSPreviewFileDialog = class(TWSPreviewFileDialog)
private published
protected
public
end; end;
{ TWin32WSOpenPictureDialog } { TWin32WSOpenPictureDialog }
TWin32WSOpenPictureDialog = class(TWin32WSOpenDialog) TWin32WSOpenPictureDialog = class(TWin32WSOpenDialog)
private published
protected
public
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end; end;
{ TWin32WSSavePictureDialog } { TWin32WSSavePictureDialog }
TWin32WSSavePictureDialog = class(TWin32WSSaveDialog) TWin32WSSavePictureDialog = class(TWin32WSSaveDialog)
private published
protected
public
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end; end;
{ TWin32WSCalculatorDialog } { TWin32WSCalculatorDialog }
TWin32WSCalculatorDialog = class(TWSCalculatorDialog) TWin32WSCalculatorDialog = class(TWSCalculatorDialog)
private published
protected
public
end; end;
{ TWin32WSCalculatorForm } { TWin32WSCalculatorForm }
TWin32WSCalculatorForm = class(TWSCalculatorForm) TWin32WSCalculatorForm = class(TWSCalculatorForm)
private published
protected
public
end; end;
{ TWin32WSCalendarDialogForm } { TWin32WSCalendarDialogForm }
TWin32WSCalendarDialogForm = class(TWSCalendarDialogForm) TWin32WSCalendarDialogForm = class(TWSCalendarDialogForm)
private published
protected
public
end; end;
{ TWin32WSCalendarDialog } { TWin32WSCalendarDialog }
TWin32WSCalendarDialog = class(TWSCalendarDialog) TWin32WSCalendarDialog = class(TWSCalendarDialog)
private published
protected
public
end; end;

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomFileListBox } { TWin32WSCustomFileListBox }
TWin32WSCustomFileListBox = class(TWSCustomFileListBox) TWin32WSCustomFileListBox = class(TWSCustomFileListBox)
private published
protected
public
end; end;
{ TWin32WSFileListBox } { TWin32WSFileListBox }
TWin32WSFileListBox = class(TWSFileListBox) TWin32WSFileListBox = class(TWSFileListBox)
private published
protected
public
end; end;

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

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

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

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

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -46,10 +46,9 @@ type
{ TWin32WSCustomImageList } { TWin32WSCustomImageList }
TWin32WSCustomImageList = class(TWSCustomImageList) TWin32WSCustomImageList = class(TWSCustomImageList)
private
protected protected
class procedure AddData(AListHandle: TLCLIntfHandle; ACount, AReplaceIndex, AWidth, AHeight: Integer; AData: PRGBAQuad); class procedure AddData(AListHandle: TLCLIntfHandle; ACount, AReplaceIndex, AWidth, AHeight: Integer; AData: PRGBAQuad);
public published
class procedure Clear(AList: TCustomImageList); override; class procedure Clear(AList: TCustomImageList); override;
class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth, class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; override; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,17 +42,13 @@ type
{ TWin32WSCustomMaskEdit } { TWin32WSCustomMaskEdit }
TWin32WSCustomMaskEdit = class(TWSCustomMaskEdit) TWin32WSCustomMaskEdit = class(TWSCustomMaskEdit)
private published
protected
public
end; end;
{ TWin32WSMaskEdit } { TWin32WSMaskEdit }
TWin32WSMaskEdit = class(TWSMaskEdit) TWin32WSMaskEdit = class(TWSMaskEdit)
private published
protected
public
end; end;

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

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

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

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

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

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

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

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

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

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -42,9 +42,7 @@ type
{ TWin32WSToolWindow } { TWin32WSToolWindow }
TWin32WSToolWindow = class(TWSToolWindow) TWin32WSToolWindow = class(TWSToolWindow)
private published
protected
public
end; end;

4
lcl/widgetset/wsactnlist.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomActionList } { TWSCustomActionList }
TWSCustomActionList = class(TWSLCLComponent) TWSCustomActionList = class(TWSLCLComponent)
published
end; end;
{ TWSActionList } { TWSActionList }
TWSActionList = class(TWSCustomActionList) TWSActionList = class(TWSCustomActionList)
published
end; end;

3
lcl/widgetset/wsarrow.pp
View File

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

4
lcl/widgetset/wsbuttons.pp
View File

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

3
lcl/widgetset/wscalendar.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
TWSCustomCalendarClass = class of TWSCustomCalendar; TWSCustomCalendarClass = class of TWSCustomCalendar;
TWSCustomCalendar = class(TWSWinControl) TWSCustomCalendar = class(TWSWinControl)
published
class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; virtual; class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; virtual;
class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); virtual; class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); virtual;
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -54,6 +54,7 @@ type
{ TWSCustomCheckListBox } { TWSCustomCheckListBox }
TWSCustomCheckListBox = class(TWSCustomListBox) TWSCustomCheckListBox = class(TWSCustomListBox)
published
class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox; class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox;
const AIndex: integer): Boolean; virtual; const AIndex: integer): Boolean; virtual;
class function GetState(const ACheckListBox: TCustomCheckListBox; class function GetState(const ACheckListBox: TCustomCheckListBox;

13
lcl/widgetset/wscomctrls.pp
View File

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

8
lcl/widgetset/wscontrols.pp
View File

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

14
lcl/widgetset/wsdbctrls.pp
View File

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

4
lcl/widgetset/wsdbgrids.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomDbGrid } { TWSCustomDbGrid }
TWSCustomDbGrid = class(TWSCustomGrid) TWSCustomDbGrid = class(TWSCustomGrid)
published
end; end;
{ TWSdbGrid } { TWSdbGrid }
TWSdbGrid = class(TWSCustomDbGrid) TWSdbGrid = class(TWSCustomDbGrid)
published
end; end;

3
lcl/widgetset/wsdesigner.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -47,6 +47,7 @@ type
{ TWsCustomRubberBand } { TWsCustomRubberBand }
TWsCustomRubberBand = class(TWsWinControl) TWsCustomRubberBand = class(TWsWinControl)
published
class procedure SetShape(ARubberBand: TCustomRubberBand; AShape: TRubberBandShape); virtual; overload; class procedure SetShape(ARubberBand: TCustomRubberBand; AShape: TRubberBandShape); virtual; overload;
end; end;
TWsCustomRubberBandClass = class of TWsCustomRubberBand; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
TWSCommonDialogClass = class of TWSCommonDialog; TWSCommonDialogClass = class of TWSCommonDialog;
TWSCommonDialog = class(TWSLCLComponent) TWSCommonDialog = class(TWSLCLComponent)
published
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; virtual; class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; virtual;
class procedure ShowModal(const ACommonDialog: TCommonDialog); virtual; class procedure ShowModal(const ACommonDialog: TCommonDialog); virtual;
class procedure DestroyHandle(const ACommonDialog: TCommonDialog); virtual; class procedure DestroyHandle(const ACommonDialog: TCommonDialog); virtual;
@ -61,36 +62,43 @@ type
{ TWSFileDialog } { TWSFileDialog }
TWSFileDialog = class(TWSCommonDialog) TWSFileDialog = class(TWSCommonDialog)
published
end; end;
{ TWSOpenDialog } { TWSOpenDialog }
TWSOpenDialog = class(TWSFileDialog) TWSOpenDialog = class(TWSFileDialog)
published
end; end;
{ TWSSaveDialog } { TWSSaveDialog }
TWSSaveDialog = class(TWSOpenDialog) TWSSaveDialog = class(TWSOpenDialog)
published
end; end;
{ TWSSelectDirectoryDialog } { TWSSelectDirectoryDialog }
TWSSelectDirectoryDialog = class(TWSOpenDialog) TWSSelectDirectoryDialog = class(TWSOpenDialog)
published
end; end;
{ TWSColorDialog } { TWSColorDialog }
TWSColorDialog = class(TWSCommonDialog) TWSColorDialog = class(TWSCommonDialog)
published
end; end;
{ TWSColorButton } { TWSColorButton }
TWSColorButton = class(TWSGraphicControl) TWSColorButton = class(TWSGraphicControl)
published
end; end;
{ TWSFontDialog } { TWSFontDialog }
TWSFontDialog = class(TWSCommonDialog) TWSFontDialog = class(TWSCommonDialog)
published
end; end;

3
lcl/widgetset/wsdirsel.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,6 +52,7 @@ type
{ TWSDirSelDlg } { TWSDirSelDlg }
TWSDirSelDlg = class(TWSForm) TWSDirSelDlg = class(TWSForm)
published
end; end;

8
lcl/widgetset/wseditbtn.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,31 +52,37 @@ type
{ TWSCustomEditButton } { TWSCustomEditButton }
TWSCustomEditButton = class(TWSEdit) TWSCustomEditButton = class(TWSEdit)
published
end; end;
{ TWSEditButton } { TWSEditButton }
TWSEditButton = class(TWSCustomEditButton) TWSEditButton = class(TWSCustomEditButton)
published
end; end;
{ TWSFileNameEdit } { TWSFileNameEdit }
TWSFileNameEdit = class(TWSCustomEditButton) TWSFileNameEdit = class(TWSCustomEditButton)
published
end; end;
{ TWSDirectoryEdit } { TWSDirectoryEdit }
TWSDirectoryEdit = class(TWSCustomEditButton) TWSDirectoryEdit = class(TWSCustomEditButton)
published
end; end;
{ TWSDateEdit } { TWSDateEdit }
TWSDateEdit = class(TWSCustomEditButton) TWSDateEdit = class(TWSCustomEditButton)
published
end; end;
{ TWSCalcEdit } { TWSCalcEdit }
TWSCalcEdit = class(TWSCustomEditButton) TWSCalcEdit = class(TWSCustomEditButton)
published
end; end;

23
lcl/widgetset/wsextctrls.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -53,12 +53,14 @@ type
TWSCustomPageClass = class of TWSCustomPage; TWSCustomPageClass = class of TWSCustomPage;
TWSCustomPage = class(TWSWinControl) TWSCustomPage = class(TWSWinControl)
published
class procedure UpdateProperties(const ACustomPage: TCustomPage); virtual; class procedure UpdateProperties(const ACustomPage: TCustomPage); virtual;
end; end;
{ TWSCustomNotebook } { TWSCustomNotebook }
TWSCustomNotebook = class(TWSWinControl) TWSCustomNotebook = class(TWSWinControl)
published
class procedure AddPage(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const AIndex: integer); virtual; 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 MovePage(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const NewIndex: integer); virtual;
class procedure RemovePage(const ANotebook: TCustomNotebook; const AIndex: integer); virtual; class procedure RemovePage(const ANotebook: TCustomNotebook; const AIndex: integer); virtual;
@ -80,82 +82,97 @@ type
{ TWSPage } { TWSPage }
TWSPage = class(TWSCustomPage) TWSPage = class(TWSCustomPage)
published
end; end;
{ TWSNotebook } { TWSNotebook }
TWSNotebook = class(TWSCustomNotebook) TWSNotebook = class(TWSCustomNotebook)
published
end; end;
{ TWSShape } { TWSShape }
TWSShape = class(TWSGraphicControl) TWSShape = class(TWSGraphicControl)
published
end; end;
{ TWSCustomSplitter } { TWSCustomSplitter }
TWSCustomSplitter = class(TWSCustomControl) TWSCustomSplitter = class(TWSCustomControl)
public published
end; end;
{ TWSSplitter } { TWSSplitter }
TWSSplitter = class(TWSCustomSplitter) TWSSplitter = class(TWSCustomSplitter)
published
end; end;
{ TWSPaintBox } { TWSPaintBox }
TWSPaintBox = class(TWSGraphicControl) TWSPaintBox = class(TWSGraphicControl)
published
end; end;
{ TWSCustomImage } { TWSCustomImage }
TWSCustomImage = class(TWSGraphicControl) TWSCustomImage = class(TWSGraphicControl)
published
end; end;
{ TWSImage } { TWSImage }
TWSImage = class(TWSCustomImage) TWSImage = class(TWSCustomImage)
published
end; end;
{ TWSBevel } { TWSBevel }
TWSBevel = class(TWSGraphicControl) TWSBevel = class(TWSGraphicControl)
published
end; end;
{ TWSCustomRadioGroup } { TWSCustomRadioGroup }
TWSCustomRadioGroup = class(TWSCustomGroupBox) TWSCustomRadioGroup = class(TWSCustomGroupBox)
published
end; end;
{ TWSRadioGroup } { TWSRadioGroup }
TWSRadioGroup = class(TWSCustomRadioGroup) TWSRadioGroup = class(TWSCustomRadioGroup)
published
end; end;
{ TWSCustomCheckGroup } { TWSCustomCheckGroup }
TWSCustomCheckGroup = class(TWSCustomGroupBox) TWSCustomCheckGroup = class(TWSCustomGroupBox)
published
end; end;
{ TWSCheckGroup } { TWSCheckGroup }
TWSCheckGroup = class(TWSCustomCheckGroup) TWSCheckGroup = class(TWSCustomCheckGroup)
published
end; end;
{ TWSCustomLabeledEdit } { TWSCustomLabeledEdit }
TWSCustomLabeledEdit = class(TWSCustomEdit) TWSCustomLabeledEdit = class(TWSCustomEdit)
published
end; end;
{ TWSLabeledEdit } { TWSLabeledEdit }
TWSLabeledEdit = class(TWSCustomLabeledEdit) TWSLabeledEdit = class(TWSCustomLabeledEdit)
published
end; end;
{ TWSCustomPanel } { TWSCustomPanel }
TWSCustomPanel = class(TWSCustomControl) TWSCustomPanel = class(TWSCustomControl)
published
end; end;
{ TWSPanel } { TWSPanel }
@ -166,7 +183,7 @@ type
{ TWSCustomTrayIcon } { TWSCustomTrayIcon }
TWSCustomTrayIcon = class(TWSLCLComponent) TWSCustomTrayIcon = class(TWSLCLComponent)
public published
class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; virtual; class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; virtual; class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,41 +52,49 @@ type
{ TWSPreviewFileControl } { TWSPreviewFileControl }
TWSPreviewFileControl = class(TWSWinControl) TWSPreviewFileControl = class(TWSWinControl)
published
end; end;
{ TWSPreviewFileDialog } { TWSPreviewFileDialog }
TWSPreviewFileDialog = class(TWSOpenDialog) TWSPreviewFileDialog = class(TWSOpenDialog)
published
end; end;
{ TWSOpenPictureDialog } { TWSOpenPictureDialog }
TWSOpenPictureDialog = class(TWSPreviewFileDialog) TWSOpenPictureDialog = class(TWSPreviewFileDialog)
published
end; end;
{ TWSSavePictureDialog } { TWSSavePictureDialog }
TWSSavePictureDialog = class(TWSOpenPictureDialog) TWSSavePictureDialog = class(TWSOpenPictureDialog)
published
end; end;
{ TWSCalculatorDialog } { TWSCalculatorDialog }
TWSCalculatorDialog = class(TWSCommonDialog) TWSCalculatorDialog = class(TWSCommonDialog)
published
end; end;
{ TWSCalculatorForm } { TWSCalculatorForm }
TWSCalculatorForm = class(TWSForm) TWSCalculatorForm = class(TWSForm)
published
end; end;
{ TWSCalendarDialogForm } { TWSCalendarDialogForm }
TWSCalendarDialogForm = class(TWSForm) TWSCalendarDialogForm = class(TWSForm)
published
end; end;
{ TWSCalendarDialog } { TWSCalendarDialog }
TWSCalendarDialog = class(TWSCommonDialog) TWSCalendarDialog = class(TWSCommonDialog)
published
end; end;

4
lcl/widgetset/wsfilectrl.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomFileListBox } { TWSCustomFileListBox }
TWSCustomFileListBox = class(TWSCustomListBox) TWSCustomFileListBox = class(TWSCustomListBox)
published
end; end;
{ TWSFileListBox } { TWSFileListBox }
TWSFileListBox = class(TWSCustomFileListBox) TWSFileListBox = class(TWSCustomFileListBox)
published
end; end;

11
lcl/widgetset/wsforms.pp
View File

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

6
lcl/widgetset/wsgrids.pp
View File

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

3
lcl/widgetset/wsimglist.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -47,6 +47,7 @@ type
{ TWSCustomImageList } { TWSCustomImageList }
TWSCustomImageList = class(TWSLCLReferenceComponent) TWSCustomImageList = class(TWSLCLReferenceComponent)
published
class procedure Clear(AList: TCustomImageList); virtual; class procedure Clear(AList: TCustomImageList); virtual;
class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth, class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth,
AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; virtual; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -69,6 +69,7 @@ type
{ TWSLCLHandleComponent } { TWSLCLHandleComponent }
TWSLCLReferenceComponent = class(TWSLCLComponent) TWSLCLReferenceComponent = class(TWSLCLComponent)
published
class procedure DestroyReference(AComponent: TComponent); virtual; class procedure DestroyReference(AComponent: TComponent); virtual;
end; end;
TWSLCLReferenceComponentClass = class of TWSLCLReferenceComponent; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,11 +52,13 @@ type
{ TWSCustomMaskEdit } { TWSCustomMaskEdit }
TWSCustomMaskEdit = class(TWSCustomEdit) TWSCustomMaskEdit = class(TWSCustomEdit)
published
end; end;
{ TWSMaskEdit } { TWSMaskEdit }
TWSMaskEdit = class(TWSCustomMaskEdit) TWSMaskEdit = class(TWSCustomMaskEdit)
published
end; end;

6
lcl/widgetset/wsmenus.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -53,6 +53,7 @@ type
{ TWSMenuItem } { TWSMenuItem }
TWSMenuItem = class(TWSLCLComponent) TWSMenuItem = class(TWSLCLComponent)
published
class procedure AttachMenu(const AMenuItem: TMenuItem); virtual; class procedure AttachMenu(const AMenuItem: TMenuItem); virtual;
class function CreateHandle(const AMenuItem: TMenuItem): HMENU; virtual; class function CreateHandle(const AMenuItem: TMenuItem): HMENU; virtual;
class procedure DestroyHandle(const AMenuItem: TMenuItem); virtual; class procedure DestroyHandle(const AMenuItem: TMenuItem); virtual;
@ -71,6 +72,7 @@ type
TWSMenuClass = class of TWSMenu; TWSMenuClass = class of TWSMenu;
TWSMenu = class(TWSLCLComponent) TWSMenu = class(TWSLCLComponent)
published
class function CreateHandle(const AMenu: TMenu): HMENU; virtual; class function CreateHandle(const AMenu: TMenu): HMENU; virtual;
class procedure SetBiDiMode(const AMenu: TMenu; UseRightToLeftAlign, UseRightToLeftReading : Boolean); virtual; class procedure SetBiDiMode(const AMenu: TMenu; UseRightToLeftAlign, UseRightToLeftReading : Boolean); virtual;
@ -79,11 +81,13 @@ type
{ TWSMainMenu } { TWSMainMenu }
TWSMainMenu = class(TWSMenu) TWSMainMenu = class(TWSMenu)
published
end; end;
{ TWSPopupMenu } { TWSPopupMenu }
TWSPopupMenu = class(TWSMenu) TWSPopupMenu = class(TWSMenu)
published
class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); virtual; class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); virtual;
end; end;
TWSPopupMenuClass = class of TWSPopupMenu; 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) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -49,11 +49,13 @@ type
{ TWSPairSplitterSide } { TWSPairSplitterSide }
TWSPairSplitterSide = class(TWSWinControl) TWSPairSplitterSide = class(TWSWinControl)
published
end; end;
{ TWSCustomPairSplitter } { TWSCustomPairSplitter }
TWSCustomPairSplitter = class(TWSWinControl) TWSCustomPairSplitter = class(TWSWinControl)
published
class function AddSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; virtual; class function AddSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; virtual;
class function RemoveSide(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; class function SetPosition(ASplitter: TCustomPairSplitter; var NewPosition: integer): Boolean; virtual;
@ -67,6 +69,7 @@ type
{ TWSPairSplitter } { TWSPairSplitter }
TWSPairSplitter = class(TWSCustomPairSplitter) TWSPairSplitter = class(TWSCustomPairSplitter)
published
end; end;

2
lcl/widgetset/wsproc.pp
View File

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

21
lcl/widgetset/wsstdctrls.pp
View File

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

3
lcl/widgetset/wstoolwin.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * 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. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -52,6 +52,7 @@ type
{ TWSToolWindow } { TWSToolWindow }
TWSToolWindow = class(TWSCustomControl) TWSToolWindow = class(TWSCustomControl)
published
end; end;