From def1546d062676cb35c5f3ba4de701fd3f8721f0 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Fri, 22 Feb 2008 18:09:03 +0000 Subject: [PATCH] Further removes clistbox. git-svn-id: trunk@14233 - --- .gitattributes | 2 - lcl/alllclunits.pp | 4 +- lcl/clistbox.pp | 65 ------------------------- lcl/interfaces/win32/win32listsl.inc | 2 +- lcl/interfaces/win32/win32listslh.inc | 2 +- lcl/interfaces/wince/wincelistsl.inc | 2 +- lcl/interfaces/wince/wincelistslh.inc | 2 +- lcl/widgetset/wsclistbox.pp | 68 --------------------------- 8 files changed, 6 insertions(+), 141 deletions(-) delete mode 100644 lcl/clistbox.pp delete mode 100644 lcl/widgetset/wsclistbox.pp diff --git a/.gitattributes b/.gitattributes index c7729db347..93b512dba0 100644 --- a/.gitattributes +++ b/.gitattributes @@ -2655,7 +2655,6 @@ lcl/calendar.pp svneol=native#text/pascal lcl/chart.pp svneol=native#text/pascal lcl/checklst.pas svneol=native#text/pascal lcl/clipbrd.pp svneol=native#text/pascal -lcl/clistbox.pp svneol=native#text/pascal lcl/colorbox.pas svneol=native#text/pascal lcl/comctrls.pp svneol=native#text/pascal lcl/controls.pp svneol=native#text/pascal @@ -3360,7 +3359,6 @@ lcl/widgetset/wsarrow.pp svneol=native#text/pascal lcl/widgetset/wsbuttons.pp svneol=native#text/pascal lcl/widgetset/wscalendar.pp svneol=native#text/pascal lcl/widgetset/wschecklst.pp svneol=native#text/pascal -lcl/widgetset/wsclistbox.pp svneol=native#text/pascal lcl/widgetset/wscomctrls.pp svneol=native#text/pascal lcl/widgetset/wscontrols.pp svneol=native#text/pascal lcl/widgetset/wsdbctrls.pp svneol=native#text/pascal diff --git a/lcl/alllclunits.pp b/lcl/alllclunits.pp index fb2d39c6b1..237aba45a9 100644 --- a/lcl/alllclunits.pp +++ b/lcl/alllclunits.pp @@ -46,7 +46,7 @@ uses LCLClasses, AsyncProcess, Maps, HelpIntfs, LazHelpIntf, LazHelpHTML, StdActns, Buttons, Extctrls, Calendar, Clipbrd, Forms, LCLIntf, Spin, Comctrls, Graphics, StdCtrls, Arrow, Controls, ImgList, Menus, Toolwin, - Dialogs, Messages, Clistbox, ActnList, Grids, MaskEdit, ButtonPanel, + Dialogs, Messages, ActnList, Grids, MaskEdit, ButtonPanel, Printers, PostScriptPrinter, PostScriptCanvas, CheckLst, PairSplitter, ExtDlgs, DBCtrls, DBGrids, DBActns, EditBtn, ExtGraphics, ColorBox, PropertyStorage, IniPropStorage, XMLPropStorage, Chart, LDockTree, LDockCtrl, @@ -55,7 +55,7 @@ uses RubberBand, // widgetset skeleton WSActnList, WSArrow, WSButtons, WSCalendar, - WSCheckLst, WSCListBox, WSComCtrls, WSControls, + WSCheckLst, WSComCtrls, WSControls, WSDbCtrls, WSDBGrids, WSDialogs, WSDirSel, WSEditBtn, WSExtCtrls, WSExtDlgs, WSFileCtrl, WSForms, WSGrids, WSImgList, WSMaskEdit, diff --git a/lcl/clistbox.pp b/lcl/clistbox.pp deleted file mode 100644 index 6c92ff7a46..0000000000 --- a/lcl/clistbox.pp +++ /dev/null @@ -1,65 +0,0 @@ -{ $Id$} - -{ - /*************************************************************************** - CListBox.pp - TCListBox implementation - ------------------- - Component Library Code - - - ***************************************************************************/ - - ***************************************************************************** - * * - * This file is part of the Lazarus Component Library (LCL) * - * * - * See the file COPYING.modifiedLGPL, included in this distribution, * - * for details about the copyright. * - * * - * This program is distributed in the hope that it will be useful, * - * but WITHOUT ANY WARRANTY; without even the implied warranty of * - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * - * * - ***************************************************************************** -} - -unit CListBox; - -{$MODE objfpc}{$H+} - -interface - -uses - Classes, Controls, LCLType, StdCtrls; - -type - TCListBox = class(TCustomListBox) - private - FListColumns: integer; - public - constructor Create(AOwner: TComponent); override; - property ItemIndex; - property ListColumns: integer read FListColumns write FListColumns; - published - property BorderStyle; - property ExtendedSelect; - property Items; - property MultiSelect; - property Sorted; - property Style; - property Visible; - end; - -implementation - -{------------------------------------------------------------------------------} -{ constructor TCListBox.Create } -{------------------------------------------------------------------------------} -constructor TCListBox.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - fCompStyle := csCListBox; - FListColumns := 1; -end; - -end. diff --git a/lcl/interfaces/win32/win32listsl.inc b/lcl/interfaces/win32/win32listsl.inc index 6e41850646..b2f348dba9 100644 --- a/lcl/interfaces/win32/win32listsl.inc +++ b/lcl/interfaces/win32/win32listsl.inc @@ -2,7 +2,7 @@ {****************************************************************************** win32listsl.inc - TWin32ListStringList and TWin32CListStringList + TWin32ListStringList, TWin32ComboBoxStringList and TWin32CheckListBoxStrings ****************************************************************************** diff --git a/lcl/interfaces/win32/win32listslh.inc b/lcl/interfaces/win32/win32listslh.inc index 8165b620ff..92e77c96c5 100644 --- a/lcl/interfaces/win32/win32listslh.inc +++ b/lcl/interfaces/win32/win32listslh.inc @@ -2,7 +2,7 @@ {****************************************************************************** win32listslh.inc - TWin32ListStringList and TWin32CListStringList + TWin32ListStringList, TWin32ComboBoxStringList and TWin32CheckListBoxStrings ****************************************************************************** diff --git a/lcl/interfaces/wince/wincelistsl.inc b/lcl/interfaces/wince/wincelistsl.inc index 33c3e3350c..80c7e49c70 100644 --- a/lcl/interfaces/wince/wincelistsl.inc +++ b/lcl/interfaces/wince/wincelistsl.inc @@ -2,7 +2,7 @@ {****************************************************************************** wincelistsl.inc - TWinCEListStringList and TWinCECListStringList + TWinCEListStringList, TWinCEComboBoxStringList and TWinCECheckListBoxStrings ****************************************************************************** diff --git a/lcl/interfaces/wince/wincelistslh.inc b/lcl/interfaces/wince/wincelistslh.inc index bb208386f2..c6b1534714 100644 --- a/lcl/interfaces/wince/wincelistslh.inc +++ b/lcl/interfaces/wince/wincelistslh.inc @@ -2,7 +2,7 @@ {****************************************************************************** win32listslh.inc - TWinCEListStringList and TWinCECListStringList + TWinCEListStringList, TWinCEComboBoxStringList and TWinCECheckListBoxStrings ****************************************************************************** diff --git a/lcl/widgetset/wsclistbox.pp b/lcl/widgetset/wsclistbox.pp deleted file mode 100644 index bb13d3aa3a..0000000000 --- a/lcl/widgetset/wsclistbox.pp +++ /dev/null @@ -1,68 +0,0 @@ -{ $Id$} -{ - ***************************************************************************** - * WSCListBox.pp * - * ------------- * - * * - * * - ***************************************************************************** - - ***************************************************************************** - * * - * This file is part of the Lazarus Component Library (LCL) * - * * - * See the file COPYING.modifiedLGPL, included in this distribution, * - * for details about the copyright. * - * * - * This program is distributed in the hope that it will be useful, * - * but WITHOUT ANY WARRANTY; without even the implied warranty of * - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * - * * - ***************************************************************************** -} -unit WSCListBox; - -{$mode objfpc}{$H+} - -interface -//////////////////////////////////////////////////// -// I M P O R T A N T -//////////////////////////////////////////////////// -// 1) Only class methods allowed -// 2) Class methods have to be published and virtual -// 3) To get as little as posible circles, the uses -// clause should contain only those LCL units -// needed for registration. WSxxx units are OK -// 4) To improve speed, register only classes in the -// initialization section which actually -// implement something -// 5) To enable your XXX widgetset units, look at -// the uses clause of the XXXintf.pp -//////////////////////////////////////////////////// -uses -//////////////////////////////////////////////////// -// To get as little as posible circles, -// uncomment only when needed for registration -//////////////////////////////////////////////////// -// CListBox, -//////////////////////////////////////////////////// - WSLCLClasses, WSStdCtrls; - -type - { TWSCListBox } - - TWSCListBox = class(TWSCustomListBox) - end; - - -implementation - -initialization - -//////////////////////////////////////////////////// -// To improve speed, register only classes -// which actually implement something -//////////////////////////////////////////////////// -// RegisterWSComponent(TCListBox, TWSCListBox); -//////////////////////////////////////////////////// -end. \ No newline at end of file