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

{$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

7
Examples/GUI/DrawImage/DrawImage.dpr
View File

@@ -3,9 +3,6 @@ program DrawImageApp;
uses
KolibriOS;
const
AppPath = PPKolibriChar(32);
type
THeader = packed record
IDLength: Byte;
@@ -59,8 +56,8 @@ var
begin
HeapInit;
ExtractFileDirectory(AppPath^, AppPath^);
SetCurrentDirectory(AppPath^);
ExtractFileDirectory(AppPath, AppPath);
SetCurrentDirectory(AppPath);
TargaFile := LoadFile('Lena.tga', FileSize);