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

LCL/CheckCombobox: Fix typos.

Browse Source
This commit is contained in:
wp_xyz 2021-10-15 16:12:23 +02:00
parent bc0b673eb6
commit 624dbca789
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/cocoa/cocoawscomboex.pas
View File

@ -18,9 +18,9 @@ uses
ComboEx, WSComboEx;
type
{ TCocoaCustomComboBoxEx }
{ TCocoaWSCustomComboBoxEx }
TCocoaCustomComboBoxEx = class(TWSCustomComboBoxEx)
TCocoaWSCustomComboBoxEx = class(TWSCustomComboBoxEx)
published
class function GetFocusedEditableMainItemNoDD(const ACombo: TCustomComboboxEx;
ADroppedDown, AMainItem: Boolean): boolean; override;
@ -55,11 +55,10 @@ begin
Result := ACombo.Focused and (ALeft > 0) and not ADroppedDown;
end;
class procedure TWin32WSCustomCheckCombo.GetRejectToggleOnSelect(
const ACombo: TCustomCheckCombo; var AResult: Boolean);
begin
if ACombo.DroppedDown then AResult := true;
// AResult := false;
end;
class function TCocoaWSCustomCheckCombo.GetRejectDropdown(
const ACombo: TCustomCheckCombo; ALeft, ARight: Integer): Boolean;
begin
Result := false;
end;
end.