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

add loud complaint to LCL, so we fix the combobox issue soon

Browse Source 
git-svn-id: trunk@8198 -
This commit is contained in:
micha 2005-11-19 21:49:38 +00:00
parent 555edd3371
commit d672ec111b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customcombobox.inc
View File

@ -723,8 +723,13 @@ begin
if I >= 0 then
ItemIndex := I
else if (not (csLoading in ComponentState)) then
begin
{$message warn TCustomComboBox.Editable to be implemented soon!}
if Style in [csOwnerDrawFixed, csOwnerDrawVariable] then
raise Exception.Create('Setting .Text on owner drawn TComboBox does not make sense!');
FItemIndex := -1;
inherited;
inherited;
end;
end;
{------------------------------------------------------------------------------