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

made TListBox.Clear virtual

Browse Source 
git-svn-id: trunk@6812 -
This commit is contained in:
mattias 2005-02-19 18:23:28 +00:00
parent f0cd2b8c58
commit 458fb0ea45
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/stdctrls.pp
View File

@ -443,7 +443,7 @@ type
function ItemFullyVisible(Index: Integer): boolean;
procedure MakeCurrentVisible;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
procedure Clear;
procedure Clear; virtual;
procedure LockSelectionChange;
procedure UnlockSelectionChange;
public
@ -1218,6 +1218,9 @@ end.
{ =============================================================================
$Log$
Revision 1.193 2005/02/19 18:23:27 mattias
made TListBox.Clear virtual
Revision 1.192 2005/02/11 16:26:26 micha
select index of item in list, if text occurs in list

7
lcl/tests/test1_2button.lpi
View File

@ -16,12 +16,12 @@
</General>
<Units Count="1">
<Unit0>
<CursorPos X="10" Y="159"/>
<CursorPos X="14" Y="210"/>
<EditorIndex Value="0"/>
<Filename Value="test1_2button.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="142"/>
<TopLine Value="193"/>
<UnitName Value="test1_2button"/>
<UsageCount Value="34"/>
</Unit0>
@ -46,9 +46,6 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="4"/>
<SearchPaths>
<LCLWidgetType Value="gtk2"/>
</SearchPaths>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>

6
lcl/tests/test1_3label.lpi
View File

@ -9,19 +9,19 @@
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="0"/>
<ActiveEditorIndexAtStart Value="2"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="test1_3label"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="41" Y="78"/>
<CursorPos X="16" Y="32"/>
<EditorIndex Value="0"/>
<Filename Value="test1_3label.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="49"/>
<TopLine Value="21"/>
<UnitName Value="test1_3label"/>
<UsageCount Value="34"/>
</Unit0>