Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-21 22:53:51 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

KolibriOS unit formatted to the Borland/Embarcadero style, migrated to native Delphi types

Browse Source
This commit is contained in:
Владислав Джавадов
2020-05-23 16:32:30 +03:00
parent eee4e1beeb
commit f77ebd28fc
13 changed files with 3502 additions and 3550 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Examples/DrawImageEx/DrawImageEx.dpr
View File

@@ -85,8 +85,8 @@ begin
SetCurrentDirectory(AppPath^);
GetFileAttributes(Picture1, FileAttributes);
BitmapFile1 := HeapAllocate(FileAttributes.SizeLo);
ReadFile(Picture1, BitmapFile1^, FileAttributes.SizeLo, 0, 0, BytesRead);
BitmapFile1 := HeapAllocate(FileAttributes.Size);
ReadFile(Picture1, BitmapFile1^, FileAttributes.Size, 0, BytesRead);
with BitmapFile1^, BitmapFileHeader, BitmapInfoHeader do
begin
@@ -95,8 +95,8 @@ begin
end;
GetFileAttributes(Picture2, FileAttributes);
BitmapFile2 := HeapAllocate(FileAttributes.SizeLo);
ReadFile(Picture2, BitmapFile2^, FileAttributes.SizeLo, 0, 0, BytesRead);
BitmapFile2 := HeapAllocate(FileAttributes.Size);
ReadFile(Picture2, BitmapFile2^, FileAttributes.Size, 0, BytesRead);
with BitmapFile2^, BitmapFileHeader, BitmapInfoHeader do
begin
@@ -105,8 +105,8 @@ begin
end;
GetFileAttributes(Picture3, FileAttributes);
BitmapFile3 := HeapAllocate(FileAttributes.SizeLo);
ReadFile(Picture3, BitmapFile3^, FileAttributes.SizeLo, 0, 0, BytesRead);
BitmapFile3 := HeapAllocate(FileAttributes.Size);
ReadFile(Picture3, BitmapFile3^, FileAttributes.Size, 0, BytesRead);
with BitmapFile3^, BitmapFileHeader, BitmapInfoHeader do
begin
@@ -129,7 +129,7 @@ begin
BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Draw Image Extended', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE);
WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
(* these image files was saved with 'flip row order' parameter *)
(* therefore they have negative biHeight field *)