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

LCL: TComboBox: Fixed invisible mouse. Issue #34913

Browse Source 
git-svn-id: branches/fixes_2_0@60199 -
This commit is contained in:
mattias 2019-01-24 09:50:13 +00:00
parent 1a882cc823
commit f34df6c717
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customcombobox.inc
View File

@ -489,7 +489,6 @@ procedure TCustomComboBox.KeyDown(var Key: Word; Shift: TShiftState);
var
Skip, UserDropDown, PreventDropDown: Boolean;
begin
FDroppingDown := False;
Skip := False;
UserDropDown := ((Shift *[ssAlt] = [ssAlt]) and (Key = VK_DOWN));
PreventDropDown := Key in [VK_TAB, VK_RETURN, VK_ESCAPE];
@ -526,7 +525,7 @@ begin
FReturnArrowState := True;
Skip := True;
end;
FDroppingDown := True;
DroppedDown := True;
if UserDropDown then
Skip := True;
end;
@ -543,11 +542,6 @@ var
sCompleteText, sPrefixText, sResultText: string;
Utf8TextLen: Integer;
begin
if DroppingDown then
begin
FDroppingDown := False;
DroppedDown := True;
end;
inherited KeyUp(Key, Shift);
//SelectAll when hitting return key for AutoSelect feature
if (Key = VK_RETURN) then
@ -816,7 +810,6 @@ begin
FItemWidth := 0;
FMaxLength := 0;
FDropDownCount := 8;
FDroppingDown := False;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
ArrowKeysTraverseList := True;

2
lcl/stdctrls.pp
View File

@ -385,7 +385,7 @@ type
procedure ClearSelection; //override;
property CharCase: TEditCharCase read FCharCase write SetCharCase default ecNormal;
property DroppedDown: Boolean read GetDroppedDown write SetDroppedDown;
property DroppingDown: Boolean read FDroppingDown write FDroppingDown;
property DroppingDown: Boolean read FDroppingDown write FDroppingDown; deprecated 'Will be removed in 2.2';
procedure SelectAll;
property AutoComplete: boolean
read GetAutoComplete write SetAutoComplete default False;