paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 22:30:39 +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; ComboEx, WSComboEx;
type type
{ TCocoaCustomComboBoxEx } { TCocoaWSCustomComboBoxEx }
TCocoaCustomComboBoxEx = class(TWSCustomComboBoxEx) TCocoaWSCustomComboBoxEx = class(TWSCustomComboBoxEx)
published published
class function GetFocusedEditableMainItemNoDD(const ACombo: TCustomComboboxEx; class function GetFocusedEditableMainItemNoDD(const ACombo: TCustomComboboxEx;
ADroppedDown, AMainItem: Boolean): boolean; override; ADroppedDown, AMainItem: Boolean): boolean; override;
@ -55,11 +55,10 @@ begin
Result := ACombo.Focused and (ALeft > 0) and not ADroppedDown; Result := ACombo.Focused and (ALeft > 0) and not ADroppedDown;
end; end;
class procedure TWin32WSCustomCheckCombo.GetRejectToggleOnSelect( class function TCocoaWSCustomCheckCombo.GetRejectDropdown(
const ACombo: TCustomCheckCombo; var AResult: Boolean); const ACombo: TCustomCheckCombo; ALeft, ARight: Integer): Boolean;
begin begin
if ACombo.DroppedDown then AResult := true; Result := false;
// AResult := false; end;
end;
end. end.