paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 10:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Further removes clistbox.

Browse Source 
git-svn-id: trunk@14233 -
This commit is contained in:
sekelsenmat 2008-02-22 18:09:03 +00:00
parent 01476eddd4
commit def1546d06
8 changed files with 6 additions and 141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -2655,7 +2655,6 @@ lcl/calendar.pp svneol=native#text/pascal
lcl/chart.pp svneol=native#text/pascal lcl/chart.pp svneol=native#text/pascal
lcl/checklst.pas svneol=native#text/pascal lcl/checklst.pas svneol=native#text/pascal
lcl/clipbrd.pp 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/colorbox.pas svneol=native#text/pascal
lcl/comctrls.pp svneol=native#text/pascal lcl/comctrls.pp svneol=native#text/pascal
lcl/controls.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/wsbuttons.pp svneol=native#text/pascal
lcl/widgetset/wscalendar.pp svneol=native#text/pascal lcl/widgetset/wscalendar.pp svneol=native#text/pascal
lcl/widgetset/wschecklst.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/wscomctrls.pp svneol=native#text/pascal
lcl/widgetset/wscontrols.pp svneol=native#text/pascal lcl/widgetset/wscontrols.pp svneol=native#text/pascal
lcl/widgetset/wsdbctrls.pp svneol=native#text/pascal lcl/widgetset/wsdbctrls.pp svneol=native#text/pascal

4
lcl/alllclunits.pp
View File

@ -46,7 +46,7 @@ uses
LCLClasses, AsyncProcess, Maps, HelpIntfs, LazHelpIntf, LazHelpHTML, LCLClasses, AsyncProcess, Maps, HelpIntfs, LazHelpIntf, LazHelpHTML,
StdActns, Buttons, Extctrls, Calendar, Clipbrd, Forms, LCLIntf, Spin, StdActns, Buttons, Extctrls, Calendar, Clipbrd, Forms, LCLIntf, Spin,
Comctrls, Graphics, StdCtrls, Arrow, Controls, ImgList, Menus, Toolwin, 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, Printers, PostScriptPrinter, PostScriptCanvas, CheckLst, PairSplitter,
ExtDlgs, DBCtrls, DBGrids, DBActns, EditBtn, ExtGraphics, ColorBox, ExtDlgs, DBCtrls, DBGrids, DBActns, EditBtn, ExtGraphics, ColorBox,
PropertyStorage, IniPropStorage, XMLPropStorage, Chart, LDockTree, LDockCtrl, PropertyStorage, IniPropStorage, XMLPropStorage, Chart, LDockTree, LDockCtrl,
@ -55,7 +55,7 @@ uses
RubberBand, RubberBand,
// widgetset skeleton // widgetset skeleton
WSActnList, WSArrow, WSButtons, WSCalendar, WSActnList, WSArrow, WSButtons, WSCalendar,
WSCheckLst, WSCListBox, WSComCtrls, WSControls, WSCheckLst, WSComCtrls, WSControls,
WSDbCtrls, WSDBGrids, WSDialogs, WSDirSel, WSDbCtrls, WSDBGrids, WSDialogs, WSDirSel,
WSEditBtn, WSExtCtrls, WSExtDlgs, WSFileCtrl, WSEditBtn, WSExtCtrls, WSExtDlgs, WSFileCtrl,
WSForms, WSGrids, WSImgList, WSMaskEdit, WSForms, WSGrids, WSImgList, WSMaskEdit,

65
lcl/clistbox.pp
View File

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

2
lcl/interfaces/win32/win32listsl.inc
View File

@ -2,7 +2,7 @@
{****************************************************************************** {******************************************************************************
win32listsl.inc win32listsl.inc
TWin32ListStringList and TWin32CListStringList TWin32ListStringList, TWin32ComboBoxStringList and TWin32CheckListBoxStrings
****************************************************************************** ******************************************************************************

2
lcl/interfaces/win32/win32listslh.inc
View File

@ -2,7 +2,7 @@
{****************************************************************************** {******************************************************************************
win32listslh.inc win32listslh.inc
TWin32ListStringList and TWin32CListStringList TWin32ListStringList, TWin32ComboBoxStringList and TWin32CheckListBoxStrings
****************************************************************************** ******************************************************************************

2
lcl/interfaces/wince/wincelistsl.inc
View File

@ -2,7 +2,7 @@
{****************************************************************************** {******************************************************************************
wincelistsl.inc wincelistsl.inc
TWinCEListStringList and TWinCECListStringList TWinCEListStringList, TWinCEComboBoxStringList and TWinCECheckListBoxStrings
****************************************************************************** ******************************************************************************

2
lcl/interfaces/wince/wincelistslh.inc
View File

@ -2,7 +2,7 @@
{****************************************************************************** {******************************************************************************
win32listslh.inc win32listslh.inc
TWinCEListStringList and TWinCECListStringList TWinCEListStringList, TWinCEComboBoxStringList and TWinCECheckListBoxStrings
****************************************************************************** ******************************************************************************

68
lcl/widgetset/wsclistbox.pp
View File

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