paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:40:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add CreateIconIndirect prototype

Browse Source 
git-svn-id: trunk@15452 -
This commit is contained in:
paul 2008-06-17 13:17:28 +00:00
parent 6e1292252c
commit f30d0ed590
3 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/intfbasewinapi.inc
View File

@ -161,6 +161,11 @@ begin
Result := CreateFontIndirect(LogFont);
end;
function TWidgetSet.CreateIconIndirect(IconInfo: PIconInfo): HICON;
begin
Result := 0;
end;
function TWidgetSet.CreatePalette(const LogPalette: TLogPalette): HPalette;
begin
Result := 0;
@ -212,6 +217,11 @@ begin
Result := False;
end;
function TWidgetSet.DestroyIcon(Handle: HICON): Boolean;
begin
Result := False;
end;
function TWidgetSet.DrawFrameControl(DC: HDC; const Rect : TRect; uType, uState : Cardinal) : Boolean;
var
Details: TThemedElementDetails;

10
lcl/include/winapi.inc
View File

@ -131,6 +131,11 @@ begin
Result := WidgetSet.CreateFontIndirectEx(LogFont,LongFontName);
end;
function CreateIconIndirect(IconInfo: PIconInfo): HICON;
begin
Result := WidgetSet.CreateIconIndirect(IconInfo);
end;
function CreatePalette(const LogPalette: TLogPalette): HPalette;
begin
Result := WidgetSet.CreatePalette(LogPalette);
@ -186,6 +191,11 @@ begin
Result := WidgetSet.DestroyCursor(Handle);
end;
function DestroyIcon(Handle: HICON): Boolean;
begin
Result := WidgetSet.DestroyIcon(Handle);
end;
function DrawFrameControl(DC: HDC; const Rect : TRect; uType, uState : Cardinal) : Boolean;
Begin
Result := WidgetSet.DrawFrameControl(DC, Rect, uType, uState);

2
lcl/include/winapih.inc
View File

@ -65,6 +65,7 @@ function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; {$IFDEF IF_BASE_MEMBE
//function CreateFont --> independent
function CreateFontIndirect(const LogFont: TLogFont): HFONT; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateIconIndirect(IconInfo: PIconInfo): HICON; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreatePalette(const LogPalette: TLogPalette): HPalette; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreatePatternBrush(ABitmap: HBITMAP): HBRUSH; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function CreatePen --> independent
@ -78,6 +79,7 @@ function DeleteDC(hDC: HDC): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function DeleteObject(GDIObject: HGDIOBJ): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function DestroyCaret(Handle : HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function DestroyCursor(Handle: hCursor): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function DestroyIcon(Handle: HICON): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function DrawFrameControl(DC: HDC; const Rect : TRect; uType, uState : Cardinal) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}