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

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

@@ -4,8 +4,6 @@ uses
KolibriOS;
const
AppPath = PPKolibriChar(32);
ARROW_BUTTON = 2;
POINT_BUTTON = 3;
WAIT_BUTTON = 4;
@@ -74,8 +72,8 @@ var
begin
HeapInit;
ExtractFileDirectory(AppPath^, AppPath^);
SetCurrentDirectory(AppPath^);
ExtractFileDirectory(AppPath, AppPath);
SetCurrentDirectory(AppPath);
ArrowBitmapFile := LoadFile('arrow.bmp', FileSize);
PointBitmapFile := LoadFile('point.bmp', FileSize);