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

win32 interface: implemented ComboBox.SetDroppedDown (bug #7976)

Browse Source 
git-svn-id: trunk@10347 -
This commit is contained in:
vincents 2006-12-22 09:55:04 +00:00
parent 2a47ee1f96
commit e2cfe24165
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32winapi.inc
View File

@ -628,6 +628,12 @@ begin
Result := Windows.CombineRgn(Dest, Src1, Src2, fnCombineMode);
end;
function TWin32WidgetSet.ComboBoxDropDown(Handle: HWND;
DropDown: boolean): boolean;
begin
Result:=boolean(Windows.SendMessage(Handle, CB_SHOWDROPDOWN, WPARAM(DropDown), 0));
end;
{------------------------------------------------------------------------------
Method: CreateBitmap
Params: Width - bitmap width, in pixels

1
lcl/interfaces/win32/win32winapih.inc
View File

@ -45,6 +45,7 @@ function ClipboardGetOwnerShip(ClipboardType: TClipboardType; OnRequestProc: TCl
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;