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

Example projects made compilable by any version of Delphi

Browse Source
This commit is contained in:
Владислав Джавадов
2020-05-10 21:38:18 +03:00
parent db03f7a14a
commit 743e32c30b
9 changed files with 490 additions and 484 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
KolibriOS/Examples/SetCursor/SetCursor.dpr
View File

@@ -4,7 +4,7 @@ uses
KolibriOS;
const
AppPath = PPChar(32);
AppPath = PPKolibriChar(32);
ARROW_BUTTON = 2;
POINT_BUTTON = 3;
@@ -39,7 +39,7 @@ type
BitmapInfoHeader: TBitmapInfoHeader;
end;
procedure ExtractFileDirectory(Src, Dst: PChar); stdcall;
procedure ExtractFileDirectory(Src, Dst: PKolibriChar); stdcall;
asm
PUSH ESI
PUSH EDI