diff --git a/lcl/interfaces/win32/interfaces.pp b/lcl/interfaces/win32/interfaces.pp index ce0a0cd2ad..5129fba8b1 100644 --- a/lcl/interfaces/win32/interfaces.pp +++ b/lcl/interfaces/win32/interfaces.pp @@ -12,7 +12,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc index e3d97f0939..c4fb55c683 100644 --- a/lcl/interfaces/win32/win32callback.inc +++ b/lcl/interfaces/win32/win32callback.inc @@ -5,7 +5,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32debug.pp b/lcl/interfaces/win32/win32debug.pp index ce5ad48fa6..23e2025cd4 100644 --- a/lcl/interfaces/win32/win32debug.pp +++ b/lcl/interfaces/win32/win32debug.pp @@ -14,7 +14,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32defines.inc b/lcl/interfaces/win32/win32defines.inc index 3e3ddf5aa6..4367906fe5 100644 --- a/lcl/interfaces/win32/win32defines.inc +++ b/lcl/interfaces/win32/win32defines.inc @@ -9,7 +9,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32extra.pas b/lcl/interfaces/win32/win32extra.pas index c67bbf8ff5..c5a95c5042 100644 --- a/lcl/interfaces/win32/win32extra.pas +++ b/lcl/interfaces/win32/win32extra.pas @@ -7,7 +7,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp index f7386f7710..def2b73f89 100644 --- a/lcl/interfaces/win32/win32int.pp +++ b/lcl/interfaces/win32/win32int.pp @@ -12,7 +12,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32lclintf.inc b/lcl/interfaces/win32/win32lclintf.inc index 2c675d8dc6..0b324942c6 100644 --- a/lcl/interfaces/win32/win32lclintf.inc +++ b/lcl/interfaces/win32/win32lclintf.inc @@ -17,7 +17,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32lclintfh.inc b/lcl/interfaces/win32/win32lclintfh.inc index d3b4704e0f..88fe01b0c4 100644 --- a/lcl/interfaces/win32/win32lclintfh.inc +++ b/lcl/interfaces/win32/win32lclintfh.inc @@ -17,7 +17,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32listslh.inc b/lcl/interfaces/win32/win32listslh.inc index 0d12839661..f4d5594ba0 100644 --- a/lcl/interfaces/win32/win32listslh.inc +++ b/lcl/interfaces/win32/win32listslh.inc @@ -10,7 +10,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc index b0bf01348b..0ff1795b2a 100644 --- a/lcl/interfaces/win32/win32object.inc +++ b/lcl/interfaces/win32/win32object.inc @@ -5,7 +5,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp index 8feef4a2cd..8a410da708 100644 --- a/lcl/interfaces/win32/win32proc.pp +++ b/lcl/interfaces/win32/win32proc.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32trayicon.inc b/lcl/interfaces/win32/win32trayicon.inc index 04bd2d6d0c..626e39cdae 100644 --- a/lcl/interfaces/win32/win32trayicon.inc +++ b/lcl/interfaces/win32/win32trayicon.inc @@ -7,7 +7,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc index be4375598f..ddbde323ae 100644 --- a/lcl/interfaces/win32/win32winapi.inc +++ b/lcl/interfaces/win32/win32winapi.inc @@ -18,7 +18,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32winapih.inc b/lcl/interfaces/win32/win32winapih.inc index bb9b8d5576..160345bfd2 100644 --- a/lcl/interfaces/win32/win32winapih.inc +++ b/lcl/interfaces/win32/win32winapih.inc @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32wsactnlist.pp b/lcl/interfaces/win32/win32wsactnlist.pp index 5c7819de33..d53a912efe 100644 --- a/lcl/interfaces/win32/win32wsactnlist.pp +++ b/lcl/interfaces/win32/win32wsactnlist.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,17 +42,13 @@ type { TWin32WSCustomActionList } TWin32WSCustomActionList = class(TWSCustomActionList) - private - protected - public + published end; { TWin32WSActionList } TWin32WSActionList = class(TWSActionList) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsarrow.pp b/lcl/interfaces/win32/win32wsarrow.pp index 304003aded..31689278aa 100644 --- a/lcl/interfaces/win32/win32wsarrow.pp +++ b/lcl/interfaces/win32/win32wsarrow.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,9 +42,7 @@ type { TWin32WSArrow } TWin32WSArrow = class(TWSArrow) - private - protected - public + published class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType; const AShadowType: TShadowType); override; end; diff --git a/lcl/interfaces/win32/win32wsbuttons.pp b/lcl/interfaces/win32/win32wsbuttons.pp index 2568e05109..654244631b 100644 --- a/lcl/interfaces/win32/win32wsbuttons.pp +++ b/lcl/interfaces/win32/win32wsbuttons.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -44,6 +44,7 @@ type { TWin32WSBitBtn } TWin32WSBitBtn = class(TWSBitBtn) + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure GetPreferredSize(const AWinControl: TWinControl; @@ -63,9 +64,7 @@ type { TWin32WSSpeedButton } TWin32WSSpeedButton = class(TWSSpeedButton) - private - protected - public + published end; procedure DrawBitBtnImage(BitBtn: TCustomBitBtn; const ButtonCaption: string); diff --git a/lcl/interfaces/win32/win32wscalendar.pp b/lcl/interfaces/win32/win32wscalendar.pp index e8be6f40b0..3ded38a93d 100644 --- a/lcl/interfaces/win32/win32wscalendar.pp +++ b/lcl/interfaces/win32/win32wscalendar.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,9 +42,7 @@ type { TWin32WSCustomCalendar } TWin32WSCustomCalendar = class(TWSCustomCalendar) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure AdaptBounds(const AWinControl: TWinControl; diff --git a/lcl/interfaces/win32/win32wschecklst.pp b/lcl/interfaces/win32/win32wschecklst.pp index 5d4ee0dfc7..21cd499993 100644 --- a/lcl/interfaces/win32/win32wschecklst.pp +++ b/lcl/interfaces/win32/win32wschecklst.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,9 +42,7 @@ type { TWin32WSCustomCheckListBox } TWin32WSCustomCheckListBox = class(TWSCustomCheckListBox) - private - protected - public + published class function GetStrings(const ACustomListBox: TCustomListBox): TStrings; override; class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox; diff --git a/lcl/interfaces/win32/win32wscomctrls.pp b/lcl/interfaces/win32/win32wscomctrls.pp index 659a65e3ed..616d6e903c 100644 --- a/lcl/interfaces/win32/win32wscomctrls.pp +++ b/lcl/interfaces/win32/win32wscomctrls.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -44,9 +44,7 @@ type { TWin32WSStatusBar } TWin32WSStatusBar = class(TWSStatusBar) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure Update(const AStatusBar: TStatusBar); override; @@ -62,17 +60,13 @@ type { TWin32WSTabSheet } TWin32WSTabSheet = class(TWSTabSheet) - private - protected - public + published end; { TWin32WSPageControl } TWin32WSPageControl = class(TWSPageControl) - private - protected - public + published end; { TWin32WSCustomListView } @@ -83,8 +77,7 @@ type class procedure PositionHeader(const AHandle: THandle); class procedure UpdateStyle(const AHandle: THandle; const AMask, AStyle: Integer); class procedure UpdateExStyle(const AHandle: THandle; const AMask, AStyle: Integer); - protected - public + published // columns class procedure ColumnDelete(const ALV: TCustomListView; const AIndex: Integer); override; class function ColumnGetWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn): Integer; override; @@ -148,17 +141,13 @@ type { TWin32WSListView } TWin32WSListView = class(TWSListView) - private - protected - public + published end; { TWin32WSProgressBar } TWin32WSProgressBar = class(TWSProgressBar) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override; @@ -168,34 +157,26 @@ type { TWin32WSCustomUpDown } TWin32WSCustomUpDown = class(TWSCustomUpDown) - private - protected - public + published end; { TWin32WSUpDown } TWin32WSUpDown = class(TWSUpDown) - private - protected - public + published end; { TWin32WSToolButton } TWin32WSToolButton = class(TWSToolButton) - private - protected - public + published end; { TWin32WSToolBar } TWin32WSToolBar = class(TWSToolBar) - private - protected - public -{$ifdef OldToolbar} + published +{$ifdef OldToolbar} class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class function GetButtonCount(const AToolBar: TToolBar): integer; override; @@ -207,9 +188,7 @@ type { TWin32WSTrackBar } TWin32WSTrackBar = class(TWSTrackBar) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); override; @@ -220,17 +199,13 @@ type { TWin32WSCustomTreeView } TWin32WSCustomTreeView = class(TWSCustomTreeView) - private - protected - public + published end; { TWin32WSTreeView } TWin32WSTreeView = class(TWSTreeView) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wscontrols.pp b/lcl/interfaces/win32/win32wscontrols.pp index ebb47d6331..b6a2cb2431 100644 --- a/lcl/interfaces/win32/win32wscontrols.pp +++ b/lcl/interfaces/win32/win32wscontrols.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -45,9 +45,7 @@ type { TWin32WSDragImageList } TWin32WSDragImageList = class(TWSDragImageList) - private - protected - public + published class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND; AIndex, X, Y: Integer): Boolean; override; class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; override; @@ -61,17 +59,13 @@ type { TWin32WSControl } TWin32WSControl = class(TWSControl) - private - protected - public + published end; { TWin32WSWinControl } TWin32WSWinControl = class(TWSWinControl) - private - protected - public + published class procedure AddControl(const AControl: TControl); override; class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override; @@ -99,28 +93,21 @@ type { TWin32WSGraphicControl } TWin32WSGraphicControl = class(TWSGraphicControl) - private - protected - public + published end; { TWin32WSCustomControl } TWin32WSCustomControl = class(TWSCustomControl) - private - protected - public + published end; { TWin32WSImageList } TWin32WSImageList = class(TWSImageList) - private - protected - public + published end; - type TCreateWindowExParams = record Buddy, Parent, Window: HWND; diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc index 9c4f15e3a9..f0bc63810d 100644 --- a/lcl/interfaces/win32/win32wscustomlistview.inc +++ b/lcl/interfaces/win32/win32wscustomlistview.inc @@ -5,7 +5,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/interfaces/win32/win32wsdbctrls.pp b/lcl/interfaces/win32/win32wsdbctrls.pp index 47fc2a8254..052277d9be 100644 --- a/lcl/interfaces/win32/win32wsdbctrls.pp +++ b/lcl/interfaces/win32/win32wsdbctrls.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,105 +42,79 @@ type { TWin32WSDBEdit } TWin32WSDBEdit = class(TWSDBEdit) - private - protected - public + published end; { TWin32WSDBText } TWin32WSDBText = class(TWSDBText) - private - protected - public + published end; { TWin32WSDBListBox } TWin32WSDBListBox = class(TWSDBListBox) - private - protected - public + published end; { TWin32WSDBRadioGroup } TWin32WSDBRadioGroup = class(TWSDBRadioGroup) - private - protected - public + published end; { TWin32WSDBCheckBox } TWin32WSDBCheckBox = class(TWSDBCheckBox) - private - protected - public + published end; { TWin32WSDBComboBox } TWin32WSDBComboBox = class(TWSDBComboBox) - private - protected - public + published end; { TWin32WSDBMemo } TWin32WSDBMemo = class(TWSDBMemo) - private - protected - public + published end; { TWin32WSDBGroupBox } TWin32WSDBGroupBox = class(TWSDBGroupBox) - private - protected - public + published end; { TWin32WSDBImage } TWin32WSDBImage = class(TWSDBImage) - private - protected - public + published end; { TWin32WSDBCalendar } TWin32WSDBCalendar = class(TWSDBCalendar) - private - protected - public + published end; { TWin32WSDBCustomNavigator } TWin32WSDBCustomNavigator = class(TWSDBCustomNavigator) - private - protected - public + published end; { TWin32WSDBNavButton } TWin32WSDBNavButton = class(TWSDBNavButton) - private - protected - public + published end; { TWin32WSDBNavigator } TWin32WSDBNavigator = class(TWSDBNavigator) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsdbgrids.pp b/lcl/interfaces/win32/win32wsdbgrids.pp index 244c25bc1f..011419a8a3 100644 --- a/lcl/interfaces/win32/win32wsdbgrids.pp +++ b/lcl/interfaces/win32/win32wsdbgrids.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,17 +42,13 @@ type { TWin32WSCustomDbGrid } TWin32WSCustomDbGrid = class(TWSCustomDbGrid) - private - protected - public + published end; { TWin32WSdbGrid } TWin32WSdbGrid = class(TWSdbGrid) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp index 0d66acfe06..af805b2e38 100644 --- a/lcl/interfaces/win32/win32wsdialogs.pp +++ b/lcl/interfaces/win32/win32wsdialogs.pp @@ -68,9 +68,7 @@ type { TWin32WSCommonDialog } TWin32WSCommonDialog = class(TWSCommonDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override; end; @@ -78,17 +76,13 @@ type { TWin32WSFileDialog } TWin32WSFileDialog = class(TWSFileDialog) - private - protected - public + published end; { TWin32WSOpenDialog } TWin32WSOpenDialog = class(TWSOpenDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override; class procedure ShowModal(const ACommonDialog: TCommonDialog); override; @@ -97,27 +91,21 @@ type { TWin32WSSaveDialog } TWin32WSSaveDialog = class(TWSSaveDialog) - private - protected - public + published class procedure ShowModal(const ACommonDialog: TCommonDialog); override; end; { TWin32WSSelectDirectoryDialog } TWin32WSSelectDirectoryDialog = class(TWSSelectDirectoryDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; end; { TWin32WSColorDialog } TWin32WSColorDialog = class(TWSColorDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; class procedure ShowModal(const ACommonDialog: TCommonDialog); override; class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override; @@ -126,17 +114,13 @@ type { TWin32WSColorButton } TWin32WSColorButton = class(TWSColorButton) - private - protected - public + published end; { TWin32WSFontDialog } TWin32WSFontDialog = class(TWSFontDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; end; diff --git a/lcl/interfaces/win32/win32wsdirsel.pp b/lcl/interfaces/win32/win32wsdirsel.pp index 438b2b4c41..d24e5d87dc 100644 --- a/lcl/interfaces/win32/win32wsdirsel.pp +++ b/lcl/interfaces/win32/win32wsdirsel.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,9 +42,6 @@ type { TWin32WSDirSelDlg } TWin32WSDirSelDlg = class(TWSDirSelDlg) - private - protected - public end; diff --git a/lcl/interfaces/win32/win32wseditbtn.pp b/lcl/interfaces/win32/win32wseditbtn.pp index 13b91779a4..6593d0328c 100644 --- a/lcl/interfaces/win32/win32wseditbtn.pp +++ b/lcl/interfaces/win32/win32wseditbtn.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,49 +42,37 @@ type { TWin32WSCustomEditButton } TWin32WSCustomEditButton = class(TWSCustomEditButton) - private - protected - public + published end; { TWin32WSEditButton } TWin32WSEditButton = class(TWSEditButton) - private - protected - public + published end; { TWin32WSFileNameEdit } TWin32WSFileNameEdit = class(TWSFileNameEdit) - private - protected - public + published end; { TWin32WSDirectoryEdit } TWin32WSDirectoryEdit = class(TWSDirectoryEdit) - private - protected - public + published end; { TWin32WSDateEdit } TWin32WSDateEdit = class(TWSDateEdit) - private - protected - public + published end; { TWin32WSCalcEdit } TWin32WSCalcEdit = class(TWSCalcEdit) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsextctrls.pp b/lcl/interfaces/win32/win32wsextctrls.pp index 08a29f3f2a..5408237d6a 100644 --- a/lcl/interfaces/win32/win32wsextctrls.pp +++ b/lcl/interfaces/win32/win32wsextctrls.pp @@ -10,7 +10,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -46,9 +46,7 @@ type { TWin32WSCustomPage } TWin32WSCustomPage = class(TWSCustomPage) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure DestroyHandle(const AWinControl: TWinControl); override; @@ -59,9 +57,7 @@ type { TWin32WSCustomNotebook } TWin32WSCustomNotebook = class(TWSCustomNotebook) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure AddAllNBPages(const ANotebook: TCustomNotebook); @@ -88,129 +84,97 @@ type { TWin32WSPage } TWin32WSPage = class(TWSPage) - private - protected - public + published end; { TWin32WSNotebook } TWin32WSNotebook = class(TWSNotebook) - private - protected - public + published end; { TWin32WSShape } TWin32WSShape = class(TWSShape) - private - protected - public + published end; { TWin32WSCustomSplitter } TWin32WSCustomSplitter = class(TWSCustomSplitter) - private - protected - public + published end; { TWin32WSSplitter } TWin32WSSplitter = class(TWSSplitter) - private - protected - public + published end; { TWin32WSPaintBox } TWin32WSPaintBox = class(TWSPaintBox) - private - protected - public + published end; { TWin32WSCustomImage } TWin32WSCustomImage = class(TWSCustomImage) - private - protected - public + published end; { TWin32WSImage } TWin32WSImage = class(TWSImage) - private - protected - public + published end; { TWin32WSBevel } TWin32WSBevel = class(TWSBevel) - private - protected - public + published end; { TWin32WSCustomRadioGroup } TWin32WSCustomRadioGroup = class(TWSCustomRadioGroup) - private - protected - public + published end; { TWin32WSRadioGroup } TWin32WSRadioGroup = class(TWSRadioGroup) - private - protected - public + published end; { TWin32WSCustomCheckGroup } TWin32WSCustomCheckGroup = class(TWSCustomCheckGroup) - private - protected - public + published end; { TWin32WSCheckGroup } TWin32WSCheckGroup = class(TWSCheckGroup) - private - protected - public + published end; { TWin32WSCustomLabeledEdit } TWin32WSCustomLabeledEdit = class(TWSCustomLabeledEdit) - private - protected - public + published end; { TWin32WSLabeledEdit } TWin32WSLabeledEdit = class(TWSLabeledEdit) - private - protected - public + published end; { TWin32WSCustomPanel } TWin32WSCustomPanel = class(TWSCustomPanel) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; end; @@ -218,15 +182,13 @@ type { TWin32WSPanel } TWin32WSPanel = class(TWSPanel) - private - protected - public + published end; { TWin32WSCustomTrayIcon } TWin32WSCustomTrayIcon = class(TWSCustomTrayIcon) - public + published class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; override; class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; override; class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); override; diff --git a/lcl/interfaces/win32/win32wsextdlgs.pp b/lcl/interfaces/win32/win32wsextdlgs.pp index 4c2de5e409..dae126d927 100644 --- a/lcl/interfaces/win32/win32wsextdlgs.pp +++ b/lcl/interfaces/win32/win32wsextdlgs.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -44,9 +44,7 @@ type { TWin32WSPreviewFileControl } TWin32WSPreviewFileControl = class(TWSPreviewFileControl) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; end; @@ -54,59 +52,45 @@ type { TWin32WSPreviewFileDialog } TWin32WSPreviewFileDialog = class(TWSPreviewFileDialog) - private - protected - public + published end; { TWin32WSOpenPictureDialog } TWin32WSOpenPictureDialog = class(TWin32WSOpenDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; end; { TWin32WSSavePictureDialog } TWin32WSSavePictureDialog = class(TWin32WSSaveDialog) - private - protected - public + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override; end; { TWin32WSCalculatorDialog } TWin32WSCalculatorDialog = class(TWSCalculatorDialog) - private - protected - public + published end; { TWin32WSCalculatorForm } TWin32WSCalculatorForm = class(TWSCalculatorForm) - private - protected - public + published end; { TWin32WSCalendarDialogForm } TWin32WSCalendarDialogForm = class(TWSCalendarDialogForm) - private - protected - public + published end; { TWin32WSCalendarDialog } TWin32WSCalendarDialog = class(TWSCalendarDialog) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsfilectrl.pp b/lcl/interfaces/win32/win32wsfilectrl.pp index 99f34276cb..b9970428b7 100644 --- a/lcl/interfaces/win32/win32wsfilectrl.pp +++ b/lcl/interfaces/win32/win32wsfilectrl.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,17 +42,13 @@ type { TWin32WSCustomFileListBox } TWin32WSCustomFileListBox = class(TWSCustomFileListBox) - private - protected - public + published end; { TWin32WSFileListBox } TWin32WSFileListBox = class(TWSFileListBox) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp index 1d4a68e23b..de094160d0 100644 --- a/lcl/interfaces/win32/win32wsforms.pp +++ b/lcl/interfaces/win32/win32wsforms.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -43,9 +43,7 @@ type { TWin32WSScrollingWinControl } TWin32WSScrollingWinControl = class(TWSScrollingWinControl) - private - protected - public + published class procedure ScrollBy(const AWinControl: TScrollingWinControl; const DeltaX, DeltaY: integer); override; end; @@ -53,9 +51,7 @@ type { TWin32WSScrollBox } TWin32WSScrollBox = class(TWSScrollBox) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; end; @@ -63,25 +59,19 @@ type { TWin32WSCustomFrame } TWin32WSCustomFrame = class(TWSCustomFrame) - private - protected - public + published end; { TWin32WSFrame } TWin32WSFrame = class(TWSFrame) - private - protected - public + published end; { TWin32WSCustomForm } TWin32WSCustomForm = class(TWSCustomForm) - private - protected - public + published class procedure CloseModal(const ACustomForm: TCustomForm); override; class procedure SetAllowDropFiles(const AForm: TCustomForm; AValue: Boolean); override; class procedure SetBorderIcons(const AForm: TCustomForm; @@ -100,17 +90,13 @@ type { TWin32WSForm } TWin32WSForm = class(TWSForm) - private - protected - public + published end; { TWin32WSHintWindow } TWin32WSHintWindow = class(TWSHintWindow) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; end; @@ -118,17 +104,13 @@ type { TWin32WSScreen } TWin32WSScreen = class(TWSScreen) - private - protected - public + published end; { TWin32WSApplicationProperties } TWin32WSApplicationProperties = class(TWSApplicationProperties) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsgrids.pp b/lcl/interfaces/win32/win32wsgrids.pp index 4eaced7774..682b101adf 100644 --- a/lcl/interfaces/win32/win32wsgrids.pp +++ b/lcl/interfaces/win32/win32wsgrids.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -44,34 +44,26 @@ type { TWin32WSStringCellEditor } TWin32WSStringCellEditor = class(TWSStringCellEditor) - private - protected - public + published end; { TWin32WSCustomGrid } TWin32WSCustomGrid = class(TWSCustomGrid) - private - protected - public + published class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); override; end; { TWin32WSDrawGrid } TWin32WSDrawGrid = class(TWSDrawGrid) - private - protected - public + published end; { TWin32WSStringGrid } TWin32WSStringGrid = class(TWSStringGrid) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsimglist.pp b/lcl/interfaces/win32/win32wsimglist.pp index 412a4eaeaf..ee635ce8ee 100644 --- a/lcl/interfaces/win32/win32wsimglist.pp +++ b/lcl/interfaces/win32/win32wsimglist.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -46,10 +46,9 @@ type { TWin32WSCustomImageList } TWin32WSCustomImageList = class(TWSCustomImageList) - private protected class procedure AddData(AListHandle: TLCLIntfHandle; ACount, AReplaceIndex, AWidth, AHeight: Integer; AData: PRGBAQuad); - public + published class procedure Clear(AList: TCustomImageList); override; class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth, AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; override; diff --git a/lcl/interfaces/win32/win32wsmaskedit.pp b/lcl/interfaces/win32/win32wsmaskedit.pp index 89a6a0d7b1..754e7ee777 100644 --- a/lcl/interfaces/win32/win32wsmaskedit.pp +++ b/lcl/interfaces/win32/win32wsmaskedit.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,17 +42,13 @@ type { TWin32WSCustomMaskEdit } TWin32WSCustomMaskEdit = class(TWSCustomMaskEdit) - private - protected - public + published end; { TWin32WSMaskEdit } TWin32WSMaskEdit = class(TWSMaskEdit) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp index 389ef935d4..1169b2f48c 100644 --- a/lcl/interfaces/win32/win32wsmenus.pp +++ b/lcl/interfaces/win32/win32wsmenus.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -45,9 +45,7 @@ type { TWin32WSMenuItem } TWin32WSMenuItem = class(TWSMenuItem) - private - protected - public + published class procedure AttachMenu(const AMenuItem: TMenuItem); override; class function CreateHandle(const AMenuItem: TMenuItem): HMENU; override; class procedure DestroyHandle(const AMenuItem: TMenuItem); override; @@ -62,9 +60,7 @@ type { TWin32WSMenu } TWin32WSMenu = class(TWSMenu) - private - protected - public + published class function CreateHandle(const AMenu: TMenu): HMENU; override; class procedure SetBiDiMode(const AMenu: TMenu; UseRightToLeftAlign, UseRightToLeftReading : Boolean); override; end; @@ -72,17 +68,13 @@ type { TWin32WSMainMenu } TWin32WSMainMenu = class(TWSMainMenu) - private - protected - public + published end; { TWin32WSPopupMenu } TWin32WSPopupMenu = class(TWSPopupMenu) - private - protected - public + published class function CreateHandle(const AMenu: TMenu): HMENU; override; class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); override; end; diff --git a/lcl/interfaces/win32/win32wspairsplitter.pp b/lcl/interfaces/win32/win32wspairsplitter.pp index d058856035..f266488b67 100644 --- a/lcl/interfaces/win32/win32wspairsplitter.pp +++ b/lcl/interfaces/win32/win32wspairsplitter.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -40,25 +40,19 @@ type { TWin32WSPairSplitterSide } TWin32WSPairSplitterSide = class(TWSPairSplitterSide) - private - protected - public + published end; { TWin32WSCustomPairSplitter } TWin32WSCustomPairSplitter = class(TWSCustomPairSplitter) - private - protected - public + published end; { TWin32WSPairSplitter } TWin32WSPairSplitter = class(TWSPairSplitter) - private - protected - public + published end; implementation diff --git a/lcl/interfaces/win32/win32wsspin.pp b/lcl/interfaces/win32/win32wsspin.pp index 00d9922cc9..eb7fc5a7a1 100644 --- a/lcl/interfaces/win32/win32wsspin.pp +++ b/lcl/interfaces/win32/win32wsspin.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -45,9 +45,7 @@ type { TWin32WSCustomFloatSpinEdit } TWin32WSCustomFloatSpinEdit = class(TWSCustomFloatSpinEdit) - private - protected - public + published class procedure AdaptBounds(const AWinControl: TWinControl; var Left, Top, Width, Height: integer; var SuppressMove: boolean); override; class function CreateHandle(const AWinControl: TWinControl; @@ -69,9 +67,7 @@ type { TWin32WSFloatSpinEdit } TWin32WSFloatSpinEdit = class(TWSFloatSpinEdit) - private - protected - public + published end; diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp index 929c912cc4..4598c979a1 100644 --- a/lcl/interfaces/win32/win32wsstdctrls.pp +++ b/lcl/interfaces/win32/win32wsstdctrls.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -45,9 +45,7 @@ type { TWin32WSScrollBar } TWin32WSScrollBar = class(TWSScrollBar) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure SetParams(const AScrollBar: TCustomScrollBar); override; @@ -56,9 +54,7 @@ type { TWin32WSCustomGroupBox } TWin32WSCustomGroupBox = class(TWSCustomGroupBox) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure AdaptBounds(const AWinControl: TWinControl; @@ -70,9 +66,7 @@ type { TWin32WSGroupBox } TWin32WSGroupBox = class(TWSGroupBox) - private - protected - public + published end; { TWin32WSCustomComboBox } @@ -80,8 +74,7 @@ type TWin32WSCustomComboBox = class(TWSCustomComboBox) private class function GetStringList(const ACustomComboBox: TCustomComboBox): TWin32ComboBoxStringList; - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure AdaptBounds(const AWinControl: TWinControl; @@ -115,17 +108,13 @@ type { TWin32WSComboBox } TWin32WSComboBox = class(TWSComboBox) - private - protected - public + published end; { TWin32WSCustomListBox } TWin32WSCustomListBox = class(TWSCustomListBox) - private - protected - public + published class procedure AdaptBounds(const AWinControl: TWinControl; var Left, Top, Width, Height: integer; var SuppressMove: boolean); override; class function CreateHandle(const AWinControl: TWinControl; @@ -152,17 +141,13 @@ type { TWin32WSListBox } TWin32WSListBox = class(TWSListBox) - private - protected - public + published end; { TWin32WSCustomEdit } TWin32WSCustomEdit = class(TWSCustomEdit) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class function GetCanUndo(const ACustomEdit: TCustomEdit): Boolean; override; @@ -187,9 +172,7 @@ type { TWin32WSCustomMemo } TWin32WSCustomMemo = class(TWSCustomMemo) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure AppendText(const ACustomMemo: TCustomMemo; const AText: string); override; @@ -207,25 +190,19 @@ type { TWin32WSEdit } TWin32WSEdit = class(TWSEdit) - private - protected - public + published end; { TWin32WSMemo } TWin32WSMemo = class(TWSMemo) - private - protected - public + published end; { TWin32WSCustomStaticText } TWin32WSCustomStaticText = class(TWSCustomStaticText) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); override; @@ -236,17 +213,13 @@ type { TWin32WSStaticText } TWin32WSStaticText = class(TWSStaticText) - private - protected - public + published end; { TWin32WSButtonControl } TWin32WSButtonControl = class(TWSButtonControl) - private - protected - public + published class procedure GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); override; @@ -255,9 +228,7 @@ type { TWin32WSButton } TWin32WSButton = class(TWSButton) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); override; @@ -267,9 +238,7 @@ type { TWin32WSCustomCheckBox } TWin32WSCustomCheckBox = class(TWSCustomCheckBox) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure GetPreferredSize(const AWinControl: TWinControl; @@ -286,17 +255,13 @@ type { TWin32WSCheckBox } TWin32WSCheckBox = class(TWSCheckBox) - private - protected - public + published end; { TWin32WSToggleBox } TWin32WSToggleBox = class(TWSToggleBox) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; end; @@ -304,9 +269,7 @@ type { TWin32WSRadioButton } TWin32WSRadioButton = class(TWSRadioButton) - private - protected - public + published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; end; diff --git a/lcl/interfaces/win32/win32wstoolwin.pp b/lcl/interfaces/win32/win32wstoolwin.pp index c989b09add..401389ab52 100644 --- a/lcl/interfaces/win32/win32wstoolwin.pp +++ b/lcl/interfaces/win32/win32wstoolwin.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -42,9 +42,7 @@ type { TWin32WSToolWindow } TWin32WSToolWindow = class(TWSToolWindow) - private - protected - public + published end; diff --git a/lcl/widgetset/wsactnlist.pp b/lcl/widgetset/wsactnlist.pp index 905f14875b..31b772eda2 100644 --- a/lcl/widgetset/wsactnlist.pp +++ b/lcl/widgetset/wsactnlist.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,11 +52,13 @@ type { TWSCustomActionList } TWSCustomActionList = class(TWSLCLComponent) + published end; { TWSActionList } TWSActionList = class(TWSCustomActionList) + published end; diff --git a/lcl/widgetset/wsarrow.pp b/lcl/widgetset/wsarrow.pp index 9acd395dc8..25ad1cc404 100644 --- a/lcl/widgetset/wsarrow.pp +++ b/lcl/widgetset/wsarrow.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,6 +53,7 @@ type TWSArrowClass = class of TWSArrow; TWSArrow = class(TWSCustomControl) + published class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType; const AShadowType: TShadowType); virtual; end; diff --git a/lcl/widgetset/wsbuttons.pp b/lcl/widgetset/wsbuttons.pp index 9f4f8006ee..9dcd93f292 100644 --- a/lcl/widgetset/wsbuttons.pp +++ b/lcl/widgetset/wsbuttons.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -54,6 +54,7 @@ type TWSBitBtnClass = class of TWSBitBtn; TWSBitBtn = class(TWSButton) + published class procedure SetGlyph(const ABitBtn: TCustomBitBtn; const AValue: TButtonGlyph); virtual; class procedure SetLayout(const ABitBtn: TCustomBitBtn; const AValue: TButtonLayout); virtual; class procedure SetMargin(const ABitBtn: TCustomBitBtn; const AValue: Integer); virtual; @@ -64,6 +65,7 @@ type TWSSpeedButtonClass = class of TWSSpeedButton; TWSSpeedButton = class(TWSGraphicControl) + published end; diff --git a/lcl/widgetset/wscalendar.pp b/lcl/widgetset/wscalendar.pp index a67eac4c92..1b8bcb1e10 100644 --- a/lcl/widgetset/wscalendar.pp +++ b/lcl/widgetset/wscalendar.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,6 +53,7 @@ type TWSCustomCalendarClass = class of TWSCustomCalendar; TWSCustomCalendar = class(TWSWinControl) + published class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; virtual; class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); virtual; class procedure SetDisplaySettings(const ACalendar: TCustomCalendar; diff --git a/lcl/widgetset/wschecklst.pp b/lcl/widgetset/wschecklst.pp index da268d922d..3678e19aa0 100644 --- a/lcl/widgetset/wschecklst.pp +++ b/lcl/widgetset/wschecklst.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -54,6 +54,7 @@ type { TWSCustomCheckListBox } TWSCustomCheckListBox = class(TWSCustomListBox) + published class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox; const AIndex: integer): Boolean; virtual; class function GetState(const ACheckListBox: TCustomCheckListBox; diff --git a/lcl/widgetset/wscomctrls.pp b/lcl/widgetset/wscomctrls.pp index db57390d69..10bb757352 100644 --- a/lcl/widgetset/wscomctrls.pp +++ b/lcl/widgetset/wscomctrls.pp @@ -55,6 +55,7 @@ type TWSStatusBarClass = class of TWSStatusBar; TWSStatusBar = class(TWSWinControl) + published class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); virtual; class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); virtual; class procedure SetSizeGrip(const AStatusBar: TStatusBar; SizeGrip: Boolean); virtual; @@ -64,11 +65,13 @@ type { TWSTabSheet } TWSTabSheet = class(TWSCustomPage) + published end; { TWSPageControl } TWSPageControl = class(TWSCustomNotebook) + published end; { TWSCustomListView } @@ -77,6 +80,7 @@ type TWSCustomListViewClass = class of TWSCustomListView; TWSCustomListView = class(TWSWinControl) + published // Column class procedure ColumnDelete(const ALV: TCustomListView; const AIndex: Integer); virtual; class function ColumnGetWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn): Integer; virtual; @@ -137,12 +141,14 @@ type { TWSListView } TWSListView = class(TWSCustomListView) + published end; { TWSProgressBar } TWSProgressBarClass = class of TWSProgressBar; TWSProgressBar = class(TWSWinControl) + published class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); virtual; class procedure SetPosition(const AProgressBar: TCustomProgressBar; const NewPosition: integer); virtual; end; @@ -150,22 +156,26 @@ type { TWSCustomUpDown } TWSCustomUpDown = class(TWSCustomControl) + published end; { TWSUpDown } TWSUpDown = class(TWSCustomUpDown) + published end; { TWSToolButton } TWSToolButton = class(TWSCustomControl) + published end; { TWSToolBar } TWSToolbarClass = class of TWSToolbar; TWSToolBar = class(TWSToolWindow) + published {$ifdef OldToolbar} class function GetButtonCount(const AToolBar: TToolBar): integer; virtual; class procedure InsertToolButton(const AToolBar: TToolbar; const AControl: TControl); virtual; @@ -177,6 +187,7 @@ type TWSTrackBarClass = class of TWSTrackBar; TWSTrackBar = class(TWSWinControl) + published class procedure ApplyChanges(const ATrackBar: TCustomTrackBar); virtual; class function GetPosition(const ATrackBar: TCustomTrackBar): integer; virtual; class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); virtual; @@ -185,11 +196,13 @@ type { TWSCustomTreeView } TWSCustomTreeView = class(TWSCustomControl) + published end; { TWSTreeView } TWSTreeView = class(TWSCustomTreeView) + published end; diff --git a/lcl/widgetset/wscontrols.pp b/lcl/widgetset/wscontrols.pp index 014a378119..d3475c2217 100644 --- a/lcl/widgetset/wscontrols.pp +++ b/lcl/widgetset/wscontrols.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -55,6 +55,7 @@ type { TWSDragImageList } TWSDragImageList = class(TWSCustomImageList) + published class function BeginDrag(const ADragImageList: TDragImageList; Window: HWND; AIndex, X, Y: Integer): Boolean; virtual; class function DragMove(const ADragImageList: TDragImageList; X, Y: Integer): Boolean; virtual; class procedure EndDrag(const ADragImageList: TDragImageList); virtual; @@ -69,6 +70,7 @@ type { TWSControl } TWSControl = class(TWSLCLComponent) + published class procedure AddControl(const AControl: TControl); virtual; end; @@ -81,6 +83,7 @@ type { TWSWinControl } TWSWinControl = class(TWSControl) + published class function CanFocus(const AWincontrol: TWinControl): Boolean; virtual; class function GetClientBounds(const AWincontrol: TWinControl; var ARect: TRect): Boolean; virtual; @@ -120,16 +123,19 @@ type { TWSGraphicControl } TWSGraphicControl = class(TWSControl) + published end; { TWSCustomControl } TWSCustomControl = class(TWSWinControl) + published end; { TWSImageList } TWSImageList = class(TWSDragImageList) + published end; diff --git a/lcl/widgetset/wsdbctrls.pp b/lcl/widgetset/wsdbctrls.pp index 3f0e187572..0c280e3c31 100644 --- a/lcl/widgetset/wsdbctrls.pp +++ b/lcl/widgetset/wsdbctrls.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,61 +53,73 @@ type { TWSDBEdit } TWSDBEdit = class(TWSCustomMaskEdit) + published end; { TWSDBListBox } TWSDBListBox = class(TWSCustomListBox) + published end; { TWSDBRadioGroup } TWSDBRadioGroup = class(TWSCustomRadioGroup) + published end; { TWSDBCheckBox } TWSDBCheckBox = class(TWSCustomCheckBox) + published end; { TWSDBComboBox } TWSDBComboBox = class(TWSCustomComboBox) + published end; { TWSDBMemo } TWSDBMemo = class(TWSCustomMemo) + published end; { TWSDBGroupBox } TWSDBGroupBox = class(TWSCustomGroupBox) + published end; { TWSDBImage } TWSDBImage = class(TWSCustomImage) + published end; { TWSDBCalendar } TWSDBCalendar = class(TWSCustomCalendar) + published end; { TWSDBCustomNavigator } TWSDBCustomNavigator = class(TWSCustomPanel) + published end; { TWSDBNavButton } TWSDBNavButton = class(TWSSpeedButton) + published end; { TWSDBNavigator } TWSDBNavigator = class(TWSDBCustomNavigator) + published end; diff --git a/lcl/widgetset/wsdbgrids.pp b/lcl/widgetset/wsdbgrids.pp index 28c4c1c387..0f97a42fff 100644 --- a/lcl/widgetset/wsdbgrids.pp +++ b/lcl/widgetset/wsdbgrids.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,11 +52,13 @@ type { TWSCustomDbGrid } TWSCustomDbGrid = class(TWSCustomGrid) + published end; { TWSdbGrid } TWSdbGrid = class(TWSCustomDbGrid) + published end; diff --git a/lcl/widgetset/wsdesigner.pp b/lcl/widgetset/wsdesigner.pp index 1c5860327d..20ea31a16e 100644 --- a/lcl/widgetset/wsdesigner.pp +++ b/lcl/widgetset/wsdesigner.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -47,6 +47,7 @@ type { TWsCustomRubberBand } TWsCustomRubberBand = class(TWsWinControl) + published class procedure SetShape(ARubberBand: TCustomRubberBand; AShape: TRubberBandShape); virtual; overload; end; TWsCustomRubberBandClass = class of TWsCustomRubberBand; diff --git a/lcl/widgetset/wsdialogs.pp b/lcl/widgetset/wsdialogs.pp index 45cb1ba1d0..4a786357e1 100644 --- a/lcl/widgetset/wsdialogs.pp +++ b/lcl/widgetset/wsdialogs.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,6 +53,7 @@ type TWSCommonDialogClass = class of TWSCommonDialog; TWSCommonDialog = class(TWSLCLComponent) + published class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; virtual; class procedure ShowModal(const ACommonDialog: TCommonDialog); virtual; class procedure DestroyHandle(const ACommonDialog: TCommonDialog); virtual; @@ -61,36 +62,43 @@ type { TWSFileDialog } TWSFileDialog = class(TWSCommonDialog) + published end; { TWSOpenDialog } TWSOpenDialog = class(TWSFileDialog) + published end; { TWSSaveDialog } TWSSaveDialog = class(TWSOpenDialog) + published end; { TWSSelectDirectoryDialog } TWSSelectDirectoryDialog = class(TWSOpenDialog) + published end; { TWSColorDialog } TWSColorDialog = class(TWSCommonDialog) + published end; { TWSColorButton } TWSColorButton = class(TWSGraphicControl) + published end; { TWSFontDialog } TWSFontDialog = class(TWSCommonDialog) + published end; diff --git a/lcl/widgetset/wsdirsel.pp b/lcl/widgetset/wsdirsel.pp index 0ce81f8c63..2658fa643a 100644 --- a/lcl/widgetset/wsdirsel.pp +++ b/lcl/widgetset/wsdirsel.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,6 +52,7 @@ type { TWSDirSelDlg } TWSDirSelDlg = class(TWSForm) + published end; diff --git a/lcl/widgetset/wseditbtn.pp b/lcl/widgetset/wseditbtn.pp index b5e58ef39d..1be8634d3b 100644 --- a/lcl/widgetset/wseditbtn.pp +++ b/lcl/widgetset/wseditbtn.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,31 +52,37 @@ type { TWSCustomEditButton } TWSCustomEditButton = class(TWSEdit) + published end; { TWSEditButton } TWSEditButton = class(TWSCustomEditButton) + published end; { TWSFileNameEdit } TWSFileNameEdit = class(TWSCustomEditButton) + published end; { TWSDirectoryEdit } TWSDirectoryEdit = class(TWSCustomEditButton) + published end; { TWSDateEdit } TWSDateEdit = class(TWSCustomEditButton) + published end; { TWSCalcEdit } TWSCalcEdit = class(TWSCustomEditButton) + published end; diff --git a/lcl/widgetset/wsextctrls.pp b/lcl/widgetset/wsextctrls.pp index 895e601e53..6aa25a1beb 100644 --- a/lcl/widgetset/wsextctrls.pp +++ b/lcl/widgetset/wsextctrls.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,12 +53,14 @@ type TWSCustomPageClass = class of TWSCustomPage; TWSCustomPage = class(TWSWinControl) + published class procedure UpdateProperties(const ACustomPage: TCustomPage); virtual; end; { TWSCustomNotebook } TWSCustomNotebook = class(TWSWinControl) + published class procedure AddPage(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const AIndex: integer); virtual; class procedure MovePage(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const NewIndex: integer); virtual; class procedure RemovePage(const ANotebook: TCustomNotebook; const AIndex: integer); virtual; @@ -80,82 +82,97 @@ type { TWSPage } TWSPage = class(TWSCustomPage) + published end; { TWSNotebook } TWSNotebook = class(TWSCustomNotebook) + published end; { TWSShape } TWSShape = class(TWSGraphicControl) + published end; { TWSCustomSplitter } TWSCustomSplitter = class(TWSCustomControl) - public + published end; { TWSSplitter } TWSSplitter = class(TWSCustomSplitter) + published end; { TWSPaintBox } TWSPaintBox = class(TWSGraphicControl) + published end; { TWSCustomImage } TWSCustomImage = class(TWSGraphicControl) + published end; { TWSImage } TWSImage = class(TWSCustomImage) + published end; { TWSBevel } TWSBevel = class(TWSGraphicControl) + published end; { TWSCustomRadioGroup } TWSCustomRadioGroup = class(TWSCustomGroupBox) + published end; { TWSRadioGroup } TWSRadioGroup = class(TWSCustomRadioGroup) + published end; { TWSCustomCheckGroup } TWSCustomCheckGroup = class(TWSCustomGroupBox) + published end; { TWSCheckGroup } TWSCheckGroup = class(TWSCustomCheckGroup) + published end; { TWSCustomLabeledEdit } TWSCustomLabeledEdit = class(TWSCustomEdit) + published end; { TWSLabeledEdit } TWSLabeledEdit = class(TWSCustomLabeledEdit) + published end; { TWSCustomPanel } TWSCustomPanel = class(TWSCustomControl) + published end; { TWSPanel } @@ -166,7 +183,7 @@ type { TWSCustomTrayIcon } TWSCustomTrayIcon = class(TWSLCLComponent) - public + published class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; virtual; class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; virtual; class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); virtual; diff --git a/lcl/widgetset/wsextdlgs.pp b/lcl/widgetset/wsextdlgs.pp index 8a271a43cf..90a8ef6068 100644 --- a/lcl/widgetset/wsextdlgs.pp +++ b/lcl/widgetset/wsextdlgs.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,41 +52,49 @@ type { TWSPreviewFileControl } TWSPreviewFileControl = class(TWSWinControl) + published end; { TWSPreviewFileDialog } TWSPreviewFileDialog = class(TWSOpenDialog) + published end; { TWSOpenPictureDialog } TWSOpenPictureDialog = class(TWSPreviewFileDialog) + published end; { TWSSavePictureDialog } TWSSavePictureDialog = class(TWSOpenPictureDialog) + published end; { TWSCalculatorDialog } TWSCalculatorDialog = class(TWSCommonDialog) + published end; { TWSCalculatorForm } TWSCalculatorForm = class(TWSForm) + published end; { TWSCalendarDialogForm } TWSCalendarDialogForm = class(TWSForm) + published end; { TWSCalendarDialog } TWSCalendarDialog = class(TWSCommonDialog) + published end; diff --git a/lcl/widgetset/wsfilectrl.pp b/lcl/widgetset/wsfilectrl.pp index 1f83490953..05a887db31 100644 --- a/lcl/widgetset/wsfilectrl.pp +++ b/lcl/widgetset/wsfilectrl.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,11 +52,13 @@ type { TWSCustomFileListBox } TWSCustomFileListBox = class(TWSCustomListBox) + published end; { TWSFileListBox } TWSFileListBox = class(TWSCustomFileListBox) + published end; diff --git a/lcl/widgetset/wsforms.pp b/lcl/widgetset/wsforms.pp index ab2df72313..8ab74f4915 100644 --- a/lcl/widgetset/wsforms.pp +++ b/lcl/widgetset/wsforms.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,6 +53,7 @@ type TWSScrollingWinControlClass = class of TWSScrollingWinControl; TWSScrollingWinControl = class(TWSWinControl) + published class procedure ScrollBy(const AWinControl: TScrollingWinControl; const DeltaX, DeltaY: integer); virtual; end; @@ -60,21 +61,25 @@ type { TWSScrollBox } TWSScrollBox = class(TWSScrollingWinControl) + published end; { TWSCustomFrame } TWSCustomFrame = class(TWSScrollingWinControl) + published end; { TWSFrame } TWSFrame = class(TWSCustomFrame) + published end; { TWSCustomForm } TWSCustomForm = class(TWSScrollingWinControl) + published class procedure CloseModal(const ACustomForm: TCustomForm); virtual; class procedure SetAllowDropFiles(const AForm: TCustomForm; AValue: Boolean); virtual; class procedure SetBorderIcons(const AForm: TCustomForm; @@ -92,21 +97,25 @@ type { TWSForm } TWSForm = class(TWSCustomForm) + published end; { TWSHintWindow } TWSHintWindow = class(TWSCustomForm) + published end; { TWSScreen } TWSScreen = class(TWSLCLComponent) + published end; { TWSApplicationProperties } TWSApplicationProperties = class(TWSLCLComponent) + published end; diff --git a/lcl/widgetset/wsgrids.pp b/lcl/widgetset/wsgrids.pp index 6362d92cfe..1ad0cde592 100644 --- a/lcl/widgetset/wsgrids.pp +++ b/lcl/widgetset/wsgrids.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,23 +52,27 @@ type { TWSStringCellEditor } TWSStringCellEditor = class(TWSCustomMaskEdit) + published end; TWSCustomGridClass = class of TWSCustomgrid; { TWSCustomGrid } TWSCustomGrid = class(TWSCustomControl) + published class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); virtual; end; { TWSDrawGrid } TWSDrawGrid = class(TWSCustomGrid) + published end; { TWSStringGrid } TWSStringGrid = class(TWSDrawGrid) + published end; diff --git a/lcl/widgetset/wsimglist.pp b/lcl/widgetset/wsimglist.pp index 7c4143e24b..72f5475699 100644 --- a/lcl/widgetset/wsimglist.pp +++ b/lcl/widgetset/wsimglist.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -47,6 +47,7 @@ type { TWSCustomImageList } TWSCustomImageList = class(TWSLCLReferenceComponent) + published class procedure Clear(AList: TCustomImageList); virtual; class function CreateReference(AList: TCustomImageList; ACount, AGrow, AWidth, AHeight: Integer; AData: PRGBAQuad): TWSCustomImageListReference; virtual; diff --git a/lcl/widgetset/wslclclasses.pp b/lcl/widgetset/wslclclasses.pp index e9065b2c34..d12dfb728b 100644 --- a/lcl/widgetset/wslclclasses.pp +++ b/lcl/widgetset/wslclclasses.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -69,6 +69,7 @@ type { TWSLCLHandleComponent } TWSLCLReferenceComponent = class(TWSLCLComponent) + published class procedure DestroyReference(AComponent: TComponent); virtual; end; TWSLCLReferenceComponentClass = class of TWSLCLReferenceComponent; diff --git a/lcl/widgetset/wsmaskedit.pp b/lcl/widgetset/wsmaskedit.pp index d89a93412a..dcabcbdd19 100644 --- a/lcl/widgetset/wsmaskedit.pp +++ b/lcl/widgetset/wsmaskedit.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,11 +52,13 @@ type { TWSCustomMaskEdit } TWSCustomMaskEdit = class(TWSCustomEdit) + published end; { TWSMaskEdit } TWSMaskEdit = class(TWSCustomMaskEdit) + published end; diff --git a/lcl/widgetset/wsmenus.pp b/lcl/widgetset/wsmenus.pp index 4ec0f0d9f9..049f8d43db 100644 --- a/lcl/widgetset/wsmenus.pp +++ b/lcl/widgetset/wsmenus.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -53,6 +53,7 @@ type { TWSMenuItem } TWSMenuItem = class(TWSLCLComponent) + published class procedure AttachMenu(const AMenuItem: TMenuItem); virtual; class function CreateHandle(const AMenuItem: TMenuItem): HMENU; virtual; class procedure DestroyHandle(const AMenuItem: TMenuItem); virtual; @@ -71,6 +72,7 @@ type TWSMenuClass = class of TWSMenu; TWSMenu = class(TWSLCLComponent) + published class function CreateHandle(const AMenu: TMenu): HMENU; virtual; class procedure SetBiDiMode(const AMenu: TMenu; UseRightToLeftAlign, UseRightToLeftReading : Boolean); virtual; @@ -79,11 +81,13 @@ type { TWSMainMenu } TWSMainMenu = class(TWSMenu) + published end; { TWSPopupMenu } TWSPopupMenu = class(TWSMenu) + published class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); virtual; end; TWSPopupMenuClass = class of TWSPopupMenu; diff --git a/lcl/widgetset/wspairsplitter.pp b/lcl/widgetset/wspairsplitter.pp index 23667bc365..2f1d5c28cf 100644 --- a/lcl/widgetset/wspairsplitter.pp +++ b/lcl/widgetset/wspairsplitter.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -49,11 +49,13 @@ type { TWSPairSplitterSide } TWSPairSplitterSide = class(TWSWinControl) + published end; { TWSCustomPairSplitter } TWSCustomPairSplitter = class(TWSWinControl) + published class function AddSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; virtual; class function RemoveSide(ASplitter: TCustomPairSplitter; ASide: TPairSplitterSide; Side: integer): Boolean; virtual; class function SetPosition(ASplitter: TCustomPairSplitter; var NewPosition: integer): Boolean; virtual; @@ -67,6 +69,7 @@ type { TWSPairSplitter } TWSPairSplitter = class(TWSCustomPairSplitter) + published end; diff --git a/lcl/widgetset/wsproc.pp b/lcl/widgetset/wsproc.pp index b5e364d273..893290d231 100644 --- a/lcl/widgetset/wsproc.pp +++ b/lcl/widgetset/wsproc.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/widgetset/wsreferences.pp b/lcl/widgetset/wsreferences.pp index 9cb92a500b..70956c48e0 100644 --- a/lcl/widgetset/wsreferences.pp +++ b/lcl/widgetset/wsreferences.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * diff --git a/lcl/widgetset/wsspin.pp b/lcl/widgetset/wsspin.pp index b1feab1d70..7ff25f3b38 100644 --- a/lcl/widgetset/wsspin.pp +++ b/lcl/widgetset/wsspin.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,6 +52,7 @@ type { TWSCustomFloatSpinEdit } TWSCustomFloatSpinEdit = class(TWSCustomEdit) + published class function GetValue(const ACustomFloatSpinEdit: TCustomFloatSpinEdit): double; virtual; (* TODO: seperation into properties instead of bulk update @@ -68,6 +69,7 @@ type { TWSFloatSpinEdit } TWSFloatSpinEdit = class(TWSCustomFloatSpinEdit) + published end; diff --git a/lcl/widgetset/wsstdctrls.pp b/lcl/widgetset/wsstdctrls.pp index d964be3a29..16f4757c0b 100644 --- a/lcl/widgetset/wsstdctrls.pp +++ b/lcl/widgetset/wsstdctrls.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,6 +52,7 @@ type { TWSScrollBar } TWSScrollBar = class(TWSWinControl) + published class procedure SetParams(const AScrollBar: TCustomScrollBar); virtual; end; TWSScrollBarClass = class of TWSScrollBar; @@ -59,16 +60,19 @@ type { TWSCustomGroupBox } TWSCustomGroupBox = class(TWSCustomControl) + published end; { TWSGroupBox } TWSGroupBox = class(TWSCustomGroupBox) + published end; { TWSCustomComboBox } TWSCustomComboBox = class(TWSWinControl) + published class function GetSelStart(const ACustomComboBox: TCustomComboBox): integer; virtual; class function GetSelLength(const ACustomComboBox: TCustomComboBox): integer; virtual; class function GetItemIndex(const ACustomComboBox: TCustomComboBox): integer; virtual; @@ -95,11 +99,13 @@ type { TWSComboBox } TWSComboBox = class(TWSCustomComboBox) + published end; { TWSCustomListBox } TWSCustomListBox = class(TWSWinControl) + published class function GetIndexAtXY(const ACustomListBox: TCustomListBox; X, Y: integer): integer; virtual; class function GetItemIndex(const ACustomListBox: TCustomListBox): integer; virtual; class function GetItemRect(const ACustomListBox: TCustomListBox; Index: integer; var ARect: TRect): boolean; virtual; @@ -124,11 +130,13 @@ type { TWSListBox } TWSListBox = class(TWSCustomListBox) + published end; { TWSCustomEdit } TWSCustomEdit = class(TWSWinControl) + published class function GetCanUndo(const ACustomEdit: TCustomEdit): Boolean; virtual; class function GetCaretPos(const ACustomEdit: TCustomEdit): TPoint; virtual; class function GetSelStart(const ACustomEdit: TCustomEdit): integer; virtual; @@ -150,6 +158,7 @@ type { TWSCustomMemo } TWSCustomMemo = class(TWSCustomEdit) + published class procedure AppendText(const ACustomMemo: TCustomMemo; const AText: string); virtual; class function GetStrings(const ACustomMemo: TCustomMemo): TStrings; virtual; class procedure SetAlignment(const ACustomMemo: TCustomMemo; const AAlignment: TAlignment); virtual; @@ -163,17 +172,20 @@ type { TWSEdit } TWSEdit = class(TWSCustomEdit) + published end; { TWSMemo } TWSMemo = class(TWSCustomMemo) + published end; { TWSCustomStaticText } TWSCustomStaticTextClass = class of TWSCustomStaticText; TWSCustomStaticText = class(TWSWinControl) + published class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); virtual; class procedure SetStaticBorderStyle(const ACustomStaticText: TCustomStaticText; const NewBorderStyle: TStaticBorderStyle); virtual; end; @@ -181,16 +193,19 @@ type { TWSStaticText } TWSStaticText = class(TWSCustomStaticText) + published end; { TWSButtonControl } TWSButtonControl = class(TWSWinControl) + published end; { TWSButton } TWSButton = class(TWSButtonControl) + published class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); virtual; class procedure SetShortCut(const AButton: TCustomButton; const OldShortCut, NewShortCut: TShortCut); virtual; end; @@ -199,6 +214,7 @@ type { TWSCustomCheckBox } TWSCustomCheckBox = class(TWSButtonControl) + published class function RetrieveState(const ACustomCheckBox: TCustomCheckBox): TCheckBoxState; virtual; class procedure SetShortCut(const ACustomCheckBox: TCustomCheckBox; const OldShortCut, NewShortCut: TShortCut); virtual; @@ -209,16 +225,19 @@ type { TWSCheckBox } TWSCheckBox = class(TWSCustomCheckBox) + published end; { TWSToggleBox } TWSToggleBox = class(TWSCustomCheckBox) + published end; { TWSRadioButton } TWSRadioButton = class(TWSCustomCheckBox) + published end; diff --git a/lcl/widgetset/wstoolwin.pp b/lcl/widgetset/wstoolwin.pp index 2070f75cd1..120d077d0e 100644 --- a/lcl/widgetset/wstoolwin.pp +++ b/lcl/widgetset/wstoolwin.pp @@ -11,7 +11,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -52,6 +52,7 @@ type { TWSToolWindow } TWSToolWindow = class(TWSCustomControl) + published end;