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

LCL: clean up

Browse Source 
git-svn-id: trunk@32469 -
This commit is contained in:
mattias 2011-09-23 09:59:08 +00:00
parent 2aee52f6f3
commit c78feb9f4b
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customcombobox.inc
View File

@ -181,7 +181,7 @@ begin
end;
{------------------------------------------------------------------------------
Method: TCustomComboBox.DoChange
Method: TCustomComboBox.LMChanged
Params: msg -
Returns: Nothing
@ -672,8 +672,7 @@ end;
procedure TCustomComboBox.SetDropDownCount(const AValue: Integer);
begin
FDropDownCount := AValue;
// ToDo
if (HandleAllocated) then
if HandleAllocated then
TWSCustomComboBoxClass(WidgetSetClass).SetDropDownCount(Self, AValue);
end;
@ -734,11 +733,6 @@ begin
AutoCompleteText := AutoCompleteText - [cbactEnabled]
end;
{------------------------------------------------------------------------------
function TCustomComboBox.GetDroppedDown: Boolean;
------------------------------------------------------------------------------}
procedure TCustomComboBox.SetDroppedDown(const AValue: Boolean);
begin
if GetDroppedDown = AValue then