mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-15 23:29:50 +02:00
94 lines
2.6 KiB
ObjectPascal
94 lines
2.6 KiB
ObjectPascal
{ $Id$}
|
|
|
|
{
|
|
/***************************************************************************
|
|
CListBox.pp - TCListBox implementation
|
|
-------------------
|
|
Component Library Code
|
|
|
|
|
|
Initial Revision :
|
|
Revised :
|
|
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
}
|
|
|
|
unit CListBox;
|
|
|
|
{$MODE objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Controls, 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
|
|
|
|
uses
|
|
Vclglobals;
|
|
|
|
{------------------------------------------------------------------------------}
|
|
{ constructor TCListBox.Create }
|
|
{------------------------------------------------------------------------------}
|
|
constructor TCListBox.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
fCompStyle := csCListBox;
|
|
FListColumns := 1;
|
|
end;
|
|
|
|
end.
|
|
|
|
{ =============================================================================
|
|
|
|
$Log$
|
|
Revision 1.2 2001/06/15 10:31:05 lazarus
|
|
MG: set longstrings as default
|
|
|
|
Revision 1.1 2000/07/13 10:28:23 michael
|
|
+ Initial import
|
|
|
|
Revision 1.2 2000/04/13 21:36:38 lazarus
|
|
MWE:
|
|
* Fixed compiler error when derived from TCustomListBox
|
|
|
|
Revision 1.1 2000/04/13 21:25:16 lazarus
|
|
MWE:
|
|
~ Added some docu and did some cleanup.
|
|
Hans-Joachim Ott <hjott@compuserve.com>:
|
|
* TMemo.Lines works now.
|
|
+ TMemo has now a property Scrollbar.
|
|
= TControl.GetTextBuf revised :-)
|
|
+ Implementation for CListBox columns added
|
|
* Bug in TGtkCListStringList.Assign corrected.
|
|
|
|
|
|
}
|