paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove dummy initialization sections

Browse Source 
git-svn-id: trunk@19282 -
This commit is contained in:
paul 2009-04-09 05:52:37 +00:00
parent 26ef5cd496
commit 4e59427231
25 changed files with 25 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/widgetset/wsactnlist.pp
View File

@ -64,12 +64,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomActionList, TWSCustomActionList);
// RegisterWSComponent(TActionList, TWSActionList);
////////////////////////////////////////////////////

3
lcl/widgetset/wsarrow.pp
View File

@ -68,12 +68,11 @@ class procedure TWSArrow.SetType(const AArrow: TArrow; const AArrowType: TArrowT
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TArrow, TWSArrow);
////////////////////////////////////////////////////
end.

3
lcl/widgetset/wsbuttons.pp
View File

@ -95,12 +95,11 @@ class procedure TWSBitBtn.SetSpacing(const ABitBtn: TCustomBitBtn;
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomButton, TWSButton);
// RegisterWSComponent(TCustomBitBtn, TWSBitBtn);
// RegisterWSComponent(TCustomSpeedButton, TWSSpeedButton);

3
lcl/widgetset/wscalendar.pp
View File

@ -83,12 +83,11 @@ class procedure TWSCustomCalendar.SetDisplaySettings(const ACalendar: TCustomCal
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomCalendar, TWSCustomCalendar);
////////////////////////////////////////////////////
end.

3
lcl/widgetset/wschecklst.pp
View File

@ -94,12 +94,11 @@ class procedure TWSCustomCheckListBox.SetState(
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomCheckListBox, TWSCustomCheckListBox);
////////////////////////////////////////////////////
end.

3
lcl/widgetset/wscomctrls.pp
View File

@ -514,12 +514,11 @@ class procedure TWSTrackBar.SetPosition(const ATrackBar: TCustomTrackBar; const
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomStatusBar, TWSStatusBar);
// RegisterWSComponent(TCustomTabSheet, TWSTabSheet);
// RegisterWSComponent(TCustomPageControl, TWSPageControl);

3
lcl/widgetset/wscontrols.pp
View File

@ -328,12 +328,11 @@ begin
Result := False;
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
RegisterWSComponent(TDragImageList, TWSDragImageList);
RegisterWSComponent(TControl, TWSControl);
RegisterWSComponent(TWinControl, TWSWinControl);

3
lcl/widgetset/wsdbctrls.pp
View File

@ -125,12 +125,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TDBEdit, TWSDBEdit);
// RegisterWSComponent(TDBListBox, TWSDBListBox);
// RegisterWSComponent(TDBRadioGroup, TWSDBRadioGroup);

3
lcl/widgetset/wsdbgrids.pp
View File

@ -64,12 +64,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomDbGrid, TWSCustomDbGrid);
// RegisterWSComponent(TdbGrid, TWSdbGrid);
////////////////////////////////////////////////////

3
lcl/widgetset/wsdesigner.pp
View File

@ -61,12 +61,11 @@ class procedure TWsCustomRubberBand.SetShape(ARubberBand: TCustomRubberBand;
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomRubberBand, TWSCustomRubberBand);
////////////////////////////////////////////////////
end.

3
lcl/widgetset/wsdialogs.pp
View File

@ -117,12 +117,11 @@ class procedure TWSCommonDialog.ShowModal(const ACommonDialog: TCommonDialog);
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
RegisterWSComponent(TCommonDialog, TWSCommonDialog);
// RegisterWSComponent(TFileDialog, TWSFileDialog);
// RegisterWSComponent(TOpenDialog, TWSOpenDialog);

3
lcl/widgetset/wsdirsel.pp
View File

@ -58,12 +58,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TDirSelDlg, TWSDirSelDlg);
////////////////////////////////////////////////////
end.

3
lcl/widgetset/wseditbtn.pp
View File

@ -88,12 +88,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomEditButton, TWSCustomEditButton);
// RegisterWSComponent(TEditButton, TWSEditButton);
// RegisterWSComponent(TFileNameEdit, TWSFileNameEdit);

3
lcl/widgetset/wsextctrls.pp
View File

@ -356,12 +356,11 @@ begin
Result := ATrayIcon.Icon.Canvas;
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
// RegisterWSComponent(TCustomPage, TWSCustomPage);
RegisterWSComponent(TCustomNotebook, TWSCustomNotebook);
// RegisterWSComponent(TPage, TWSPage);

3
lcl/widgetset/wsextdlgs.pp
View File

@ -100,12 +100,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TPreviewFileControl, TWSPreviewFileControl);
// RegisterWSComponent(TPreviewFileDialog, TWSPreviewFileDialog);
// RegisterWSComponent(TOpenPictureDialog, TWSOpenPictureDialog);

3
lcl/widgetset/wsfilectrl.pp
View File

@ -64,12 +64,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomFileListBox, TWSCustomFileListBox);
// RegisterWSComponent(TFileListBox, TWSFileListBox);
////////////////////////////////////////////////////

3
lcl/widgetset/wsforms.pp
View File

@ -172,12 +172,11 @@ class procedure TWSCustomForm.ShowModal(const ACustomForm: TCustomForm);
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TScrollingWinControl, TWSScrollingWinControl);
// RegisterWSComponent(TScrollBox, TWSScrollBox);
// RegisterWSComponent(TCustomFrame, TWSCustomFrame);

3
lcl/widgetset/wsgrids.pp
View File

@ -94,12 +94,11 @@ begin
AEditor.Dispatch(GMsg);
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
// RegisterWSComponent(TStringCellEditor, TWSStringCellEditor);
RegisterWSComponent(TCustomGrid, TWSCustomGrid);
// RegisterWSComponent(TDrawGrid, TWSDrawGrid);

3
lcl/widgetset/wsimglist.pp
View File

@ -254,12 +254,11 @@ begin
TDefaultImageListImplementor(AList.Reference.Ptr)[AIndex] := ABitmap;
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
RegisterWSComponent(TCustomImageList, TWSCustomImageList);
////////////////////////////////////////////////////
end.

3
lcl/widgetset/wsmaskedit.pp
View File

@ -64,12 +64,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TCustomMaskEdit, TWSCustomMaskEdit);
// RegisterWSComponent(TMaskEdit, TWSMaskEdit);
////////////////////////////////////////////////////

3
lcl/widgetset/wsmenus.pp
View File

@ -187,12 +187,11 @@ begin
Warn;
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TMenuItem, TWSMenuItem);
// RegisterWSComponent(TMenu, TWSMenu);
// RegisterWSComponent(TMainMenu, TWSMainMenu);

3
lcl/widgetset/wspairsplitter.pp
View File

@ -198,12 +198,11 @@ begin
end;
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
// RegisterWSComponent(TPairSplitterSide, TWSPairSplitterSide);
RegisterWSComponent(TCustomPairSplitter, TWSCustomPairSplitter);
// RegisterWSComponent(TPairSplitter, TWSPairSplitter);

3
lcl/widgetset/wsspin.pp
View File

@ -86,12 +86,11 @@ class procedure TWSCustomFloatSpinEdit.UpdateControl(const ACustomFloatSpinEdit:
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
initialization
RegisterWSComponent(TCustomFloatSpinEdit, TWSCustomFloatSpinEdit);
// RegisterWSComponent(TFloatSpinEdit, TWSFloatSpinEdit);
////////////////////////////////////////////////////

3
lcl/widgetset/wsstdctrls.pp
View File

@ -563,12 +563,11 @@ class procedure TWSCustomCheckBox.SetState(const ACustomCheckBox: TCustomCheckBo
begin
end;
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TScrollBar, TWSScrollBar);
// RegisterWSComponent(TCustomGroupBox, TWSCustomGroupBox);
// RegisterWSComponent(TGroupBox, TWSGroupBox);

3
lcl/widgetset/wstoolwin.pp
View File

@ -58,12 +58,11 @@ type
implementation
initialization
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
//initialization
// RegisterWSComponent(TToolWindow, TWSToolWindow);
////////////////////////////////////////////////////
end.