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

lcl: totally remove CreateCursor, replace it calls by CreateIconIndirect

Browse Source 
git-svn-id: trunk@15501 -
This commit is contained in:
paul 2008-06-21 13:11:27 +00:00
parent f40ea524b5
commit 453ea8d582
6 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/cursorimage.inc
View File

@ -100,7 +100,7 @@ begin
IconInfo.yHotSpot := H.Y;
IconInfo.hbmMask := MaskHandle;
IconInfo.hbmColor := BitmapHandle;
FSharedImage.FHandle := WidgetSet.CreateCursor(@IconInfo);
FSharedImage.FHandle := WidgetSet.CreateIconIndirect(@IconInfo);
end;

5
lcl/include/intfbasewinapi.inc
View File

@ -129,11 +129,6 @@ begin
Result := 0;
end;
function TWidgetSet.CreateCursor(ACursorInfo: PIconInfo): HCURSOR;
begin
Result := CreateIconIndirect(ACursorInfo);
end;
function TWidgetSet.CreateDIBSection(DC: HDC;
const BitmapInfo: tagBitmapInfo; Usage: UINT;
var Bits: Pointer; SectionHandle: THandle; Offset: DWORD): HBITMAP;

5
lcl/include/winapi.inc
View File

@ -115,11 +115,6 @@ begin
Result := WidgetSet.CreateCompatibleDC(DC);
end;
function CreateCursor(ACursorInfo: PIconInfo): hCursor;
begin
Result := WidgetSet.CreateCursor(ACursorInfo);
end;
function CreateFontIndirect(const LogFont: TLogFont): HFONT;
begin
Result := WidgetSet.CreateFontIndirect(LogFont);

1
lcl/include/winapih.inc
View File

@ -54,7 +54,6 @@ function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; {$IFDEF IF_BASE
function CreateCaret(Handle: HWND; Bitmap: hBitmap; width, Height: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateCompatibleDC(DC: HDC): HDC; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateCursor(ACursorInfo: PIconInfo): HCURSOR; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateDIBitmap(DC: HDC; var InfoHeader: TBitmapInfoHeader;
dwUsage: DWORD; InitBits: PChar; var InitInfo: TBitmapInfo;
wUsage: UINT): HBITMAP; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}

1
lcl/interfaces/fpgui/fpguiwinapih.inc
View File

@ -55,7 +55,6 @@ function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
function CreateCaret(Handle : HWND; Bitmap : hBitmap; Width, Height : Integer) : Boolean; override;
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; override;
function CreateCompatibleDC(DC: HDC): HDC; override;
function CreateCursor(ACursorInfo: PIconInfo): hCursor; override;
function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override;

2
lcl/interfaces/wince/wincelclintf.inc
View File

@ -424,7 +424,7 @@ begin
crSqlWait..crDrag,
crHandPoint:
begin
// will be created later by CreateCursor
// will be created later by CreateIconIndirect
end;
else
Result := Windows.LoadCursorW(0, LclCursorToWin32CursorMap[ACursor]);