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

fixed TCarbonWSCustomComboBox, adding Get-SetDroppedDown method. ComboBoxDropDown removed from carbon widgetset

Browse Source 
git-svn-id: trunk@22286 -
This commit is contained in:
dmitry 2009-10-26 10:46:45 +00:00
parent b89b28de7c
commit 97e87ee11f
3 changed files with 32 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -223,27 +223,6 @@ begin
TCarbonRegion(Dest). CombineWith(TCarbonRegion(Src2), fnCombineMode);
end;
{------------------------------------------------------------------------------
Method: ComboBoxDropDown
Params: Handle - Handle to combo box
DropDown - Show list
Returns: If the function succeeds
Shows or hides the combo box list
------------------------------------------------------------------------------}
function TCarbonWidgetSet.ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean;
begin
Result := False;
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.ComboBoxDropDown Handle: ' + DbgS(Handle) + ' Drop: ' + DbgS(DropDown));
{$ENDIF}
if not CheckWidget(Handle, 'ComboBoxDropDown', TCarbonComboBox) then Exit;
Result := TCarbonComboBox(Handle).DropDown(DropDown);
end;
{------------------------------------------------------------------------------
Method: CreateBitmap
Params: Width - Bitmap width, in pixels

1
lcl/interfaces/carbon/carbonwinapih.inc
View File

@ -50,7 +50,6 @@ function ClipboardGetOwnerShip(ClipboardType: TClipboardType;
function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; override;
function CombineRgn(Dest, Src1, Src2 : HRGN; fnCombineMode : Longint) : Longint; override;
function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; override;
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; override;
function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
function CreateCaret(Handle : HWND; Bitmap : hBitmap; width, Height : Integer) : Boolean; override;

32
lcl/interfaces/carbon/carbonwsstdctrls.pp
View File

@ -82,6 +82,9 @@ type
class function GetItems(const ACustomComboBox: TCustomComboBox): TStrings; override;
class procedure Sort(const ACustomComboBox: TCustomComboBox; AList: TStrings; IsSorted: boolean); override;
class function GetDroppedDown(const ACustomComboBox: TCustomComboBox): Boolean; override;
class procedure SetDroppedDown(const ACustomComboBox: TCustomComboBox; ADroppedDown: Boolean); override;
end;
{ TCarbonWSComboBox }
@ -481,6 +484,35 @@ begin
TCarbonComboBoxStrings(AList).Sorted := IsSorted;
end;
{------------------------------------------------------------------------------
Method: TCarbonWSCustomComboBox.GetDroppedDown
Returns: True if the combobox is dropped down
------------------------------------------------------------------------------}
class function TCarbonWSCustomComboBox.GetDroppedDown(const ACustomComboBox: TCustomComboBox): Boolean;
begin
Result := false;
if not CheckHandle(ACustomComboBox, Self, 'GetDroppedDown') then Exit;
TCarbonComboBox(ACustomComboBox.Handle).IsDroppedDown;
end;
{------------------------------------------------------------------------------
Method: TCarbonWSCustomComboBox.SetDroppedDown
Params: DropDown - Show list
Returns: If the function succeeds
Shows or hides the combo box list
------------------------------------------------------------------------------}
class procedure TCarbonWSCustomComboBox.SetDroppedDown(const ACustomComboBox: TCustomComboBox;
ADroppedDown: Boolean);
begin
if not CheckHandle(ACustomComboBox, Self, 'SetDroppedDown') then Exit;
TCarbonComboBox(ACustomComboBox.Handle).DropDown(ADroppedDown);
end;
{ TCarbonWSCustomListBox }
{------------------------------------------------------------------------------