mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Refactoring

Browse source
This commit is contained in:
Alexander Koblov 2020-08-13 18:15:41 +00:00
commit abf14a4d6f
1 changed files with 50 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

108
src/platform/win/ugdiplus.pas
View file

@ -390,68 +390,60 @@ end;
var
hLib: HMODULE;
initialization
procedure Initialize;
begin
hLib:= LoadLibrary('gdiplus.dll');
IsGdiPlusLoaded:= (hLib <> 0);
if IsGdiPlusLoaded then
begin
@GdiplusStartup:= GetProcAddress(hLib, 'GdiplusStartup');
@GdiplusShutdown:= GetProcAddress(hLib, 'GdiplusShutdown');
@GdipCreateBitmapFromHICON:= GetProcAddress(hLib, 'GdipCreateBitmapFromHICON');
@GdipCreateBitmapFromHBITMAP:= GetProcAddress(hLib, 'GdipCreateBitmapFromHBITMAP');
@GdipCreateBitmapFromScan0:= GetProcAddress(hLib, 'GdipCreateBitmapFromScan0');
@GdipCreateBitmapFromGraphics:= GetProcAddress(hLib, 'GdipCreateBitmapFromGraphics');
@GdipCreateFromHDC:= GetProcAddress(hLib, 'GdipCreateFromHDC');
@GdipDrawImageRectI:= GetProcAddress(hLib, 'GdipDrawImageRectI');
@GdipDrawImageRectRectI:= GetProcAddress(hLib, 'GdipDrawImageRectRectI');
@GdipLoadImageFromStream:= GetProcAddress(hLib, 'GdipLoadImageFromStream');
@GdipDisposeImage:= GetProcAddress(hLib, 'GdipDisposeImage');
@GdipDeleteGraphics:= GetProcAddress(hLib, 'GdipDeleteGraphics');
@GdipGraphicsClear:= GetProcAddress(hLib, 'GdipGraphicsClear');
@GdipSetInterpolationMode:= GetProcAddress(hLib, 'GdipSetInterpolationMode');
@GdipCreateImageAttributes:= GetProcAddress(hLib, 'GdipCreateImageAttributes');
@GdipDisposeImageAttributes:= GetProcAddress(hLib, 'GdipDisposeImageAttributes');
@GdipSetImageAttributesColorKeys:= GetProcAddress(hLib, 'GdipSetImageAttributesColorKeys');
@GdipBitmapLockBits:= GetProcAddress(hLib, 'GdipBitmapLockBits');
@GdipBitmapUnlockBits:= GetProcAddress(hLib, 'GdipBitmapUnlockBits');
@GdipGetImagePixelFormat:= GetProcAddress(hLib, 'GdipGetImagePixelFormat');
@GdipGetImageWidth:= GetProcAddress(hLib, 'GdipGetImageWidth');
@GdipGetImageHeight:= GetProcAddress(hLib, 'GdipGetImageHeight');
// Initialize GDI+ StartupInput structure
StartupInput.DebugEventCallback:= nil;
StartupInput.SuppressBackgroundThread:= False;
StartupInput.SuppressExternalCodecs:= False;
StartupInput.GdiplusVersion:= 1;
// Initialize GDI+
GdiplusStartup(gdiplusToken, @StartupInput, nil);
if (hLib <> 0) then
begin
@GdiplusStartup:= GetProcAddress(hLib, 'GdiplusStartup');
@GdiplusShutdown:= GetProcAddress(hLib, 'GdiplusShutdown');
@GdipCreateBitmapFromHICON:= GetProcAddress(hLib, 'GdipCreateBitmapFromHICON');
@GdipCreateBitmapFromHBITMAP:= GetProcAddress(hLib, 'GdipCreateBitmapFromHBITMAP');
@GdipCreateBitmapFromScan0:= GetProcAddress(hLib, 'GdipCreateBitmapFromScan0');
@GdipCreateBitmapFromGraphics:= GetProcAddress(hLib, 'GdipCreateBitmapFromGraphics');
@GdipCreateFromHDC:= GetProcAddress(hLib, 'GdipCreateFromHDC');
@GdipDrawImageRectI:= GetProcAddress(hLib, 'GdipDrawImageRectI');
@GdipDrawImageRectRectI:= GetProcAddress(hLib, 'GdipDrawImageRectRectI');
@GdipLoadImageFromStream:= GetProcAddress(hLib, 'GdipLoadImageFromStream');
@GdipDisposeImage:= GetProcAddress(hLib, 'GdipDisposeImage');
@GdipDeleteGraphics:= GetProcAddress(hLib, 'GdipDeleteGraphics');
@GdipGraphicsClear:= GetProcAddress(hLib, 'GdipGraphicsClear');
@GdipSetInterpolationMode:= GetProcAddress(hLib, 'GdipSetInterpolationMode');
@GdipCreateImageAttributes:= GetProcAddress(hLib, 'GdipCreateImageAttributes');
@GdipDisposeImageAttributes:= GetProcAddress(hLib, 'GdipDisposeImageAttributes');
@GdipSetImageAttributesColorKeys:= GetProcAddress(hLib, 'GdipSetImageAttributesColorKeys');
@GdipBitmapLockBits:= GetProcAddress(hLib, 'GdipBitmapLockBits');
@GdipBitmapUnlockBits:= GetProcAddress(hLib, 'GdipBitmapUnlockBits');
@GdipGetImagePixelFormat:= GetProcAddress(hLib, 'GdipGetImagePixelFormat');
@GdipGetImageWidth:= GetProcAddress(hLib, 'GdipGetImageWidth');
@GdipGetImageHeight:= GetProcAddress(hLib, 'GdipGetImageHeight');
// Initialize GDI+ StartupInput structure
StartupInput.DebugEventCallback:= nil;
StartupInput.SuppressBackgroundThread:= False;
StartupInput.SuppressExternalCodecs:= False;
StartupInput.GdiplusVersion:= 1;
// Initialize GDI+
IsGdiPlusLoaded:= (GdiplusStartup(gdiplusToken, @StartupInput, nil) = Ok);
end;
end;
procedure Finalize;
begin
if (hLib <> 0) then
begin
// Close GDI+
if IsGdiPlusLoaded then
GdiplusShutdown(gdiplusToken);
FreeLibrary(hLib);
end;
end;
initialization
Initialize;
finalization
if IsGdiPlusLoaded then
begin
// Close GDI +
GdiplusShutdown(gdiplusToken);
GdiplusStartup:= nil;
GdiplusShutdown:= nil;
GdipCreateBitmapFromHICON:= nil;
GdipCreateBitmapFromHBITMAP:= nil;
GdipCreateBitmapFromScan0:= nil;
GdipCreateBitmapFromGraphics:= nil;
GdipCreateFromHDC:= nil;
GdipDrawImageRectI:= nil;
GdipDrawImageRectRectI:= nil;
GdipDisposeImage:= nil;
GdipDeleteGraphics:= nil;
GdipGraphicsClear:= nil;
GdipSetInterpolationMode:= nil;
GdipCreateImageAttributes:= nil;
GdipDisposeImageAttributes:= nil;
GdipSetImageAttributesColorKeys:= nil;
GdipBitmapLockBits:= nil;
GdipBitmapUnlockBits:= nil;
GdipGetImagePixelFormat:= nil;
FreeLibrary(hLib);
end;
Finalize;
end.