paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 13:12:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

added but not implemented ComboBoxDropDown

Browse Source 
git-svn-id: trunk@2661 -
This commit is contained in:
mattias 2002-08-17 23:41:34 +00:00
parent f3340fb77b
commit d78a2779ec
4 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/interfacebase.inc
View File

@ -126,13 +126,18 @@ begin
Result := 0;
end;
Function TInterfaceBase.CombineRgn(Dest, Src1, Src2 : HRGN;
fnCombineMode : Longint) : Longint;
begin
Result := ERROR;
end;
function TInterfaceBase.ComboBoxDropDown(Handle: HWND;
DropDown: boolean): boolean;
begin
Result := false;
end;
constructor TInterfaceBase.Create;
begin
inherited Create;
@ -1666,6 +1671,9 @@ end;
{ =============================================================================
$Log$
Revision 1.87 2003/04/11 17:10:20 mattias
added but not implemented ComboBoxDropDown
Revision 1.86 2003/03/29 17:20:05 mattias
added TMemoScrollBar

9
lcl/include/winapi.inc
View File

@ -104,12 +104,16 @@ begin
Result := InterfaceObject.ClipboardRegisterFormat(AMimeType);
end;
Function CombineRgn(Dest, Src1, Src2 : HRGN; fnCombineMode : Longint) : Longint;
begin
Result := InterfaceObject.CombineRgn(Dest, Src1, Src2, fnCombineMode);
end;
function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean;
begin
Result := InterfaceObject.ComboBoxDropDown(Handle,DropDown);
end;
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP;
begin
Result := InterfaceObject.CreateBitmap(Width, Height, Planes, BitCount, BitmapBits);
@ -1580,6 +1584,9 @@ end;
{ =============================================================================
$Log$
Revision 1.81 2003/04/11 17:10:20 mattias
added but not implemented ComboBoxDropDown
Revision 1.80 2003/03/29 23:52:25 mattias
IpHtmlPanel can show simple HTML pages, but there are mem bugs

4
lcl/include/winapih.inc
View File

@ -58,6 +58,7 @@ function ClipboardGetOwnerShip(ClipboardType: TClipboardType;
function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function CombineRgn(Dest, Src1, Src2 : HRGN; fnCombineMode : Longint) : Longint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateCaret(Handle: HWND; Bitmap: hBitmap; width, Height: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -375,6 +376,9 @@ procedure RaiseLastOSError;
{ =============================================================================
$Log$
Revision 1.74 2003/04/11 17:10:20 mattias
added but not implemented ComboBoxDropDown
Revision 1.73 2003/03/29 17:20:05 mattias
added TMemoScrollBar

4
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -46,6 +46,7 @@ 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;
@ -201,6 +202,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.67 2003/04/11 17:10:20 mattias
added but not implemented ComboBoxDropDown
Revision 1.66 2003/03/29 17:20:05 mattias
added TMemoScrollBar