pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Add JvGIF unit (read and write GIF images).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8070 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-08-14 09:23:48 +00:00
parent 9ac2000e57
commit 329c200276
7 changed files with 3232 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvCore/jvjclutils.pas
View File

@ -519,8 +519,9 @@ procedure GetIconSize(Icon: HICON; var W, H: Integer);
function CreateRealSizeIcon(Icon: TIcon): HICON;
procedure DrawRealSizeIcon(Canvas: TCanvas; Icon: TIcon; X, Y: Integer);
{end JvIconClipboardUtils }
*)
function CreateScreenCompatibleDC: HDC;
(*
{$ENDIF !CLR}
{ begin JvRLE }
@ -4903,14 +4904,14 @@ begin
DestroyIcon(Ico);
end;
end;
*)
function CreateScreenCompatibleDC: HDC;
const
HDC_DESKTOP = HDC(0);
begin
Result := CreateCompatibleDC(HDC_DESKTOP);
end;
(*
{$ENDIF !CLR}