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

Call inherited in TWin32ComboBoxStringList.Insert and Delete.

Browse Source 
git-svn-id: trunk@6222 -
This commit is contained in:
vincents 2004-11-08 21:35:16 +00:00
parent 891b8aa58a
commit 90c4d52283
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -298,12 +298,14 @@ procedure TWin32ComboBoxStringList.Delete(Index: integer);
begin begin
if GetCount <= 1 then if GetCount <= 1 then
SetComboHeight(FSender, FEditHeight + FItemHeight + 2); SetComboHeight(FSender, FEditHeight + FItemHeight + 2);
inherited Delete(Index);
end; end;
procedure TWin32ComboBoxStringList.Insert(Index: integer; const S: string); procedure TWin32ComboBoxStringList.Insert(Index: integer; const S: string);
begin begin
if GetCount = 0 then if GetCount = 0 then
SetComboHeight(FSender, FEditHeight + FDropDownCount*FItemHeight + 2); SetComboHeight(FSender, FEditHeight + FDropDownCount*FItemHeight + 2);
inherited Insert(Index, S);
end; end;
@ -568,6 +570,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.37 2004/11/08 21:35:16 vincents
Call inherited in TWin32ComboBoxStringList.Insert and Delete.
Revision 1.36 2004/11/04 15:12:35 micha Revision 1.36 2004/11/04 15:12:35 micha
remove usage of fcompstyle in twin32liststringlist by using descendent class for combobox specific things remove usage of fcompstyle in twin32liststringlist by using descendent class for combobox specific things