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

{$APPTYPE CONSOLE} support added

Browse Source
This commit is contained in:
Владислав Джавадов
2020-12-27 01:34:54 +03:00
parent 9888dd9095
commit b52068a7f2
7 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Examples/GUI/DrawImageEx/DrawImageEx.dpr
View File

@@ -4,8 +4,6 @@ uses
KolibriOS;
const
AppPath = PPKolibriChar(32);
Picture1 = 'Flower(4bpp).bmp';
Picture2 = 'Mario(1bpp).bmp';
Picture3 = 'House(24bpp).bmp';
@@ -81,8 +79,8 @@ var
begin
HeapInit;
ExtractFileDirectory(AppPath^, AppPath^);
SetCurrentDirectory(AppPath^);
ExtractFileDirectory(AppPath, AppPath);
SetCurrentDirectory(AppPath);
GetFileAttributes(Picture1, FileAttributes);
BitmapFile1 := HeapAllocate(FileAttributes.Size);