paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 15:39:33 +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; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCustomComboBox.DoChange Method: TCustomComboBox.LMChanged
Params: msg - Params: msg -
Returns: Nothing Returns: Nothing
@ -672,8 +672,7 @@ end;
procedure TCustomComboBox.SetDropDownCount(const AValue: Integer); procedure TCustomComboBox.SetDropDownCount(const AValue: Integer);
begin begin
FDropDownCount := AValue; FDropDownCount := AValue;
// ToDo if HandleAllocated then
if (HandleAllocated) then
TWSCustomComboBoxClass(WidgetSetClass).SetDropDownCount(Self, AValue); TWSCustomComboBoxClass(WidgetSetClass).SetDropDownCount(Self, AValue);
end; end;
@ -734,11 +733,6 @@ begin
AutoCompleteText := AutoCompleteText - [cbactEnabled] AutoCompleteText := AutoCompleteText - [cbactEnabled]
end; end;
{------------------------------------------------------------------------------
function TCustomComboBox.GetDroppedDown: Boolean;
------------------------------------------------------------------------------}
procedure TCustomComboBox.SetDroppedDown(const AValue: Boolean); procedure TCustomComboBox.SetDroppedDown(const AValue: Boolean);
begin begin
if GetDroppedDown = AValue then if GetDroppedDown = AValue then