widgetset: make WS classes method explicitly published

win32: fix WS classes. move methods to published sections

git-svn-id: trunk@17576 -

lcl/interfaces/win32/win32wsactnlist.pp

@@ -42,17 +42,13 @@ type
   { TWin32WSCustomActionList }
 
   TWin32WSCustomActionList = class(TWSCustomActionList)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSActionList }
 
   TWin32WSActionList = class(TWSActionList)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsarrow.pp

@@ -42,9 +42,7 @@ type
   { TWin32WSArrow }
 
   TWin32WSArrow = class(TWSArrow)
-  private
+  published
-  protected
-  public
     class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType; 
       const AShadowType: TShadowType); override;
   end;

lcl/interfaces/win32/win32wsbuttons.pp

@@ -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
+  published
-  protected
-  public
   end;
 
 procedure DrawBitBtnImage(BitBtn: TCustomBitBtn; const ButtonCaption: string);

lcl/interfaces/win32/win32wscalendar.pp

@@ -42,9 +42,7 @@ type
   { TWin32WSCustomCalendar }
 
   TWin32WSCustomCalendar = class(TWSCustomCalendar)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
     class procedure AdaptBounds(const AWinControl: TWinControl;

lcl/interfaces/win32/win32wschecklst.pp

@@ -42,9 +42,7 @@ type
   { TWin32WSCustomCheckListBox }
 
   TWin32WSCustomCheckListBox = class(TWSCustomCheckListBox)
-  private
+  published
-  protected
-  public
     class function  GetStrings(const ACustomListBox: TCustomListBox): TStrings; override;
 
     class function GetItemEnabled(const ACheckListBox: TCustomCheckListBox;

lcl/interfaces/win32/win32wscomctrls.pp

@@ -44,9 +44,7 @@ type
   { TWin32WSStatusBar }
 
   TWin32WSStatusBar = class(TWSStatusBar)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSPageControl }
 
   TWin32WSPageControl = class(TWSPageControl)
-  private
+  published
-  protected
-  public
   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
+  published
-  public
     // 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
+  published
-  protected
-  public
   end;
 
   { TWin32WSProgressBar }
 
   TWin32WSProgressBar = class(TWSProgressBar)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
     class procedure ApplyChanges(const AProgressBar: TCustomProgressBar); override;
@@ -168,33 +157,25 @@ type
   { TWin32WSCustomUpDown }
 
   TWin32WSCustomUpDown = class(TWSCustomUpDown)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSUpDown }
 
   TWin32WSUpDown = class(TWSUpDown)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSToolButton }
 
   TWin32WSToolButton = class(TWSToolButton)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSToolBar }
 
   TWin32WSToolBar = class(TWSToolBar)
-  private
+  published
-  protected
-  public
 {$ifdef OldToolbar}
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
@@ -207,9 +188,7 @@ type
   { TWin32WSTrackBar }
 
   TWin32WSTrackBar = class(TWSTrackBar)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSTreeView }
 
   TWin32WSTreeView = class(TWSTreeView)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wscontrols.pp

@@ -45,9 +45,7 @@ type
   { TWin32WSDragImageList }
 
   TWin32WSDragImageList = class(TWSDragImageList)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSWinControl }
 
   TWin32WSWinControl = class(TWSWinControl)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomControl }
 
   TWin32WSCustomControl = class(TWSCustomControl)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSImageList }
 
   TWin32WSImageList = class(TWSImageList)
-  private
+  published
-  protected
-  public
   end;
 
-
 type
   TCreateWindowExParams = record
     Buddy, Parent, Window: HWND;

lcl/interfaces/win32/win32wsdbctrls.pp

@@ -42,105 +42,79 @@ type
   { TWin32WSDBEdit }
 
   TWin32WSDBEdit = class(TWSDBEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBText }
 
   TWin32WSDBText = class(TWSDBText)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBListBox }
 
   TWin32WSDBListBox = class(TWSDBListBox)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBRadioGroup }
 
   TWin32WSDBRadioGroup = class(TWSDBRadioGroup)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBCheckBox }
 
   TWin32WSDBCheckBox = class(TWSDBCheckBox)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBComboBox }
 
   TWin32WSDBComboBox = class(TWSDBComboBox)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBMemo }
 
   TWin32WSDBMemo = class(TWSDBMemo)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBGroupBox }
 
   TWin32WSDBGroupBox = class(TWSDBGroupBox)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBImage }
 
   TWin32WSDBImage = class(TWSDBImage)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBCalendar }
 
   TWin32WSDBCalendar = class(TWSDBCalendar)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBCustomNavigator }
 
   TWin32WSDBCustomNavigator = class(TWSDBCustomNavigator)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBNavButton }
 
   TWin32WSDBNavButton = class(TWSDBNavButton)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDBNavigator }
 
   TWin32WSDBNavigator = class(TWSDBNavigator)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsdbgrids.pp

@@ -42,17 +42,13 @@ type
   { TWin32WSCustomDbGrid }
 
   TWin32WSCustomDbGrid = class(TWSCustomDbGrid)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSdbGrid }
 
   TWin32WSdbGrid = class(TWSdbGrid)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsdialogs.pp

@@ -68,9 +68,7 @@ type
   { TWin32WSCommonDialog }
 
   TWin32WSCommonDialog = class(TWSCommonDialog)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSOpenDialog }
 
   TWin32WSOpenDialog = class(TWSOpenDialog)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
     class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
   end;
 
   { TWin32WSSelectDirectoryDialog }
 
   TWin32WSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
   end;
 
   { TWin32WSColorDialog }
 
   TWin32WSColorDialog = class(TWSColorDialog)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSFontDialog }
 
   TWin32WSFontDialog = class(TWSFontDialog)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
   end;
 

lcl/interfaces/win32/win32wsdirsel.pp

@@ -42,9 +42,6 @@ type
   { TWin32WSDirSelDlg }
 
   TWin32WSDirSelDlg = class(TWSDirSelDlg)
-  private
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wseditbtn.pp

@@ -42,49 +42,37 @@ type
   { TWin32WSCustomEditButton }
 
   TWin32WSCustomEditButton = class(TWSCustomEditButton)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSEditButton }
 
   TWin32WSEditButton = class(TWSEditButton)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSFileNameEdit }
 
   TWin32WSFileNameEdit = class(TWSFileNameEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDirectoryEdit }
 
   TWin32WSDirectoryEdit = class(TWSDirectoryEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSDateEdit }
 
   TWin32WSDateEdit = class(TWSDateEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCalcEdit }
 
   TWin32WSCalcEdit = class(TWSCalcEdit)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsextctrls.pp

@@ -46,9 +46,7 @@ type
   { TWin32WSCustomPage }
 
   TWin32WSCustomPage = class(TWSCustomPage)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSNotebook }
 
   TWin32WSNotebook = class(TWSNotebook)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSShape }
 
   TWin32WSShape = class(TWSShape)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomSplitter }
 
   TWin32WSCustomSplitter = class(TWSCustomSplitter)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSSplitter }
 
   TWin32WSSplitter = class(TWSSplitter)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSPaintBox }
 
   TWin32WSPaintBox = class(TWSPaintBox)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomImage }
 
   TWin32WSCustomImage = class(TWSCustomImage)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSImage }
 
   TWin32WSImage = class(TWSImage)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSBevel }
 
   TWin32WSBevel = class(TWSBevel)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomRadioGroup }
 
   TWin32WSCustomRadioGroup = class(TWSCustomRadioGroup)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSRadioGroup }
 
   TWin32WSRadioGroup = class(TWSRadioGroup)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomCheckGroup }
 
   TWin32WSCustomCheckGroup = class(TWSCustomCheckGroup)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCheckGroup }
 
   TWin32WSCheckGroup = class(TWSCheckGroup)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomLabeledEdit }
 
   TWin32WSCustomLabeledEdit = class(TWSCustomLabeledEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSLabeledEdit }
 
   TWin32WSLabeledEdit = class(TWSLabeledEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomPanel }
 
   TWin32WSCustomPanel = class(TWSCustomPanel)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
   end;
@@ -218,15 +182,13 @@ type
   { TWin32WSPanel }
 
   TWin32WSPanel = class(TWSPanel)
-  private
+  published
-  protected
-  public
   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;

lcl/interfaces/win32/win32wsextdlgs.pp

@@ -44,9 +44,7 @@ type
   { TWin32WSPreviewFileControl }
 
   TWin32WSPreviewFileControl = class(TWSPreviewFileControl)
-  private
+  published
-  protected
-  public
     class function CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
   end;
@@ -54,59 +52,45 @@ type
   { TWin32WSPreviewFileDialog }
 
   TWin32WSPreviewFileDialog = class(TWSPreviewFileDialog)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSOpenPictureDialog }
 
   TWin32WSOpenPictureDialog = class(TWin32WSOpenDialog)
-  private
+  published
-  protected
-  public
     class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
   end;
 
   { TWin32WSSavePictureDialog }
 
   TWin32WSSavePictureDialog = class(TWin32WSSaveDialog)
-  private
+  published
-  protected
-  public
     class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
   end;
 
   { TWin32WSCalculatorDialog }
 
   TWin32WSCalculatorDialog = class(TWSCalculatorDialog)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCalculatorForm }
 
   TWin32WSCalculatorForm = class(TWSCalculatorForm)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCalendarDialogForm }
 
   TWin32WSCalendarDialogForm = class(TWSCalendarDialogForm)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCalendarDialog }
 
   TWin32WSCalendarDialog = class(TWSCalendarDialog)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsfilectrl.pp

@@ -42,17 +42,13 @@ type
   { TWin32WSCustomFileListBox }
 
   TWin32WSCustomFileListBox = class(TWSCustomFileListBox)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSFileListBox }
 
   TWin32WSFileListBox = class(TWSFileListBox)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsforms.pp

@@ -43,9 +43,7 @@ type
   { TWin32WSScrollingWinControl }
 
   TWin32WSScrollingWinControl = class(TWSScrollingWinControl)
-  private
+  published
-  protected
-  public
     class procedure ScrollBy(const AWinControl: TScrollingWinControl;
       const DeltaX, DeltaY: integer); override;
   end;
@@ -53,9 +51,7 @@ type
   { TWin32WSScrollBox }
 
   TWin32WSScrollBox = class(TWSScrollBox)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
   end;
@@ -63,25 +59,19 @@ type
   { TWin32WSCustomFrame }
 
   TWin32WSCustomFrame = class(TWSCustomFrame)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSFrame }
 
   TWin32WSFrame = class(TWSFrame)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomForm }
 
   TWin32WSCustomForm = class(TWSCustomForm)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSHintWindow }
 
   TWin32WSHintWindow = class(TWSHintWindow)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
   end;
@@ -118,17 +104,13 @@ type
   { TWin32WSScreen }
 
   TWin32WSScreen = class(TWSScreen)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSApplicationProperties }
 
   TWin32WSApplicationProperties = class(TWSApplicationProperties)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsgrids.pp

@@ -44,34 +44,26 @@ type
   { TWin32WSStringCellEditor }
 
   TWin32WSStringCellEditor = class(TWSStringCellEditor)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomGrid }
 
   TWin32WSCustomGrid = class(TWSCustomGrid)
-  private
+  published
-  protected
-  public
     class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); override;
   end;
 
   { TWin32WSDrawGrid }
 
   TWin32WSDrawGrid = class(TWSDrawGrid)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSStringGrid }
 
   TWin32WSStringGrid = class(TWSStringGrid)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsimglist.pp

@@ -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;

lcl/interfaces/win32/win32wsmaskedit.pp

@@ -42,17 +42,13 @@ type
   { TWin32WSCustomMaskEdit }
 
   TWin32WSCustomMaskEdit = class(TWSCustomMaskEdit)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSMaskEdit }
 
   TWin32WSMaskEdit = class(TWSMaskEdit)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsmenus.pp

@@ -45,9 +45,7 @@ type
   { TWin32WSMenuItem }
 
   TWin32WSMenuItem = class(TWSMenuItem)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSPopupMenu }
 
   TWin32WSPopupMenu = class(TWSPopupMenu)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AMenu: TMenu): HMENU; override;
     class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); override;
   end;

lcl/interfaces/win32/win32wspairsplitter.pp

@@ -40,25 +40,19 @@ type
   { TWin32WSPairSplitterSide }
 
   TWin32WSPairSplitterSide = class(TWSPairSplitterSide)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomPairSplitter }
 
   TWin32WSCustomPairSplitter = class(TWSCustomPairSplitter)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSPairSplitter }
 
   TWin32WSPairSplitter = class(TWSPairSplitter)
-  private
+  published
-  protected
-  public
   end;
 
 implementation

lcl/interfaces/win32/win32wsspin.pp

@@ -45,9 +45,7 @@ type
   { TWin32WSCustomFloatSpinEdit }
 
   TWin32WSCustomFloatSpinEdit = class(TWSCustomFloatSpinEdit)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
 

lcl/interfaces/win32/win32wsstdctrls.pp

@@ -45,9 +45,7 @@ type
   { TWin32WSScrollBar }
 
   TWin32WSScrollBar = class(TWSScrollBar)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomComboBox }
@@ -80,8 +74,7 @@ type
   TWin32WSCustomComboBox = class(TWSCustomComboBox)
   private
     class function GetStringList(const ACustomComboBox: TCustomComboBox): TWin32ComboBoxStringList;
-  protected
+  published
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomListBox }
 
   TWin32WSCustomListBox = class(TWSCustomListBox)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomEdit }
 
   TWin32WSCustomEdit = class(TWSCustomEdit)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSMemo }
 
   TWin32WSMemo = class(TWSMemo)
-  private
+  published
-  protected
-  public
   end;
 
   { TWin32WSCustomStaticText }
 
   TWin32WSCustomStaticText = class(TWSCustomStaticText)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSButtonControl }
 
   TWin32WSButtonControl = class(TWSButtonControl)
-  private
+  published
-  protected
-  public
     class procedure GetPreferredSize(const AWinControl: TWinControl;
           var PreferredWidth, PreferredHeight: integer;
           WithThemeSpace: Boolean); override;
@@ -255,9 +228,7 @@ type
   { TWin32WSButton }
 
   TWin32WSButton = class(TWSButton)
-  private
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
     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
+  published
-  protected
-  public
   end;
 
   { TWin32WSToggleBox }
 
   TWin32WSToggleBox = class(TWSToggleBox)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
   end;
@@ -304,9 +269,7 @@ type
   { TWin32WSRadioButton }
 
   TWin32WSRadioButton = class(TWSRadioButton)
-  private
+  published
-  protected
-  public
     class function  CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
   end;

lcl/interfaces/win32/win32wstoolwin.pp

@@ -42,9 +42,7 @@ type
   { TWin32WSToolWindow }
 
   TWin32WSToolWindow = class(TWSToolWindow)
-  private
+  published
-  protected
-  public
   end;
 
 

lcl/widgetset/wsactnlist.pp

@@ -52,11 +52,13 @@ type
   { TWSCustomActionList }
 
   TWSCustomActionList = class(TWSLCLComponent)
+  published
   end;
 
   { TWSActionList }
 
   TWSActionList = class(TWSCustomActionList)
+  published
   end;
 
 

lcl/widgetset/wsarrow.pp

@@ -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;

lcl/widgetset/wsbuttons.pp

@@ -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;
 
 

lcl/widgetset/wscalendar.pp

@@ -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; 

lcl/widgetset/wschecklst.pp

@@ -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;

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;
 
 

lcl/widgetset/wscontrols.pp

@@ -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;
 
 

lcl/widgetset/wsdbctrls.pp

@@ -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;
 
 

lcl/widgetset/wsdbgrids.pp

@@ -52,11 +52,13 @@ type
   { TWSCustomDbGrid }
 
   TWSCustomDbGrid = class(TWSCustomGrid)
+  published
   end;
 
   { TWSdbGrid }
 
   TWSdbGrid = class(TWSCustomDbGrid)
+  published
   end;
 
 

lcl/widgetset/wsdesigner.pp

@@ -47,6 +47,7 @@ type
   { TWsCustomRubberBand }
 
   TWsCustomRubberBand = class(TWsWinControl)
+  published
     class procedure SetShape(ARubberBand: TCustomRubberBand; AShape: TRubberBandShape); virtual; overload;
   end;
   TWsCustomRubberBandClass = class of TWsCustomRubberBand;

lcl/widgetset/wsdialogs.pp

@@ -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;
 
 

lcl/widgetset/wsdirsel.pp

@@ -52,6 +52,7 @@ type
   { TWSDirSelDlg }
 
   TWSDirSelDlg = class(TWSForm)
+  published
   end;
 
 

lcl/widgetset/wseditbtn.pp

@@ -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;
 
 

lcl/widgetset/wsextctrls.pp

@@ -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;

lcl/widgetset/wsextdlgs.pp

@@ -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;
 
 

lcl/widgetset/wsfilectrl.pp

@@ -52,11 +52,13 @@ type
   { TWSCustomFileListBox }
 
   TWSCustomFileListBox = class(TWSCustomListBox)
+  published
   end;
 
   { TWSFileListBox }
 
   TWSFileListBox = class(TWSCustomFileListBox)
+  published
   end;
 
 

lcl/widgetset/wsforms.pp

@@ -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;
 
 

lcl/widgetset/wsgrids.pp

@@ -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;
 
 

lcl/widgetset/wsimglist.pp

@@ -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;

lcl/widgetset/wslclclasses.pp

@@ -69,6 +69,7 @@ type
   { TWSLCLHandleComponent }
 
   TWSLCLReferenceComponent = class(TWSLCLComponent)
+  published
     class procedure DestroyReference(AComponent: TComponent); virtual;
   end;
   TWSLCLReferenceComponentClass = class of TWSLCLReferenceComponent;

lcl/widgetset/wsmaskedit.pp

@@ -52,11 +52,13 @@ type
   { TWSCustomMaskEdit }
 
   TWSCustomMaskEdit = class(TWSCustomEdit)
+  published
   end;
 
   { TWSMaskEdit }
 
   TWSMaskEdit = class(TWSCustomMaskEdit)
+  published
   end;
 
 

lcl/widgetset/wsmenus.pp

@@ -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;

lcl/widgetset/wspairsplitter.pp

@@ -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;
 
 

lcl/widgetset/wsspin.pp

@@ -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;
 
 

lcl/widgetset/wsstdctrls.pp

@@ -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;
 
 

lcl/widgetset/wstoolwin.pp

@@ -52,6 +52,7 @@ type
   { TWSToolWindow }
 
   TWSToolWindow = class(TWSCustomControl)
+  published
   end;