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

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

2
Examples/ColorButtons/ColorButtons.dpr
View File

@@ -32,7 +32,7 @@ begin
begin begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Color Buttons', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Color Buttons', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
DrawButton(10, 20, 50, 30, COLOR_RED, 0, RED_BUTTON); DrawButton(10, 20, 50, 30, COLOR_RED, 0, RED_BUTTON);
DrawButton(70, 20, 50, 30, COLOR_GREEN, 0, GREEN_BUTTON); DrawButton(70, 20, 50, 30, COLOR_GREEN, 0, GREEN_BUTTON);
DrawButton(10, 60, 50, 30, COLOR_BLUE, 0, BLUE_BUTTON); DrawButton(10, 60, 50, 30, COLOR_BLUE, 0, BLUE_BUTTON);

2
Examples/DrawImage/DrawImage.dpr
View File

@@ -81,7 +81,7 @@ begin
begin begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Draw Image', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Draw Image', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
with TargaFile.Header do with TargaFile.Header do
DrawImage(Image^, 30, 20, Width, Height); DrawImage(Image^, 30, 20, Width, Height);
EndDraw; EndDraw;

14
Examples/DrawImageEx/DrawImageEx.dpr
View File

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

2
Examples/DrawText/DrawText.dpr
View File

@@ -27,7 +27,7 @@ begin
CurY := 0; CurY := 0;
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Get Key', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Get Key', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
EndDraw; EndDraw;
end; end;
KEY_EVENT: KEY_EVENT:

2
Examples/GetPixel/GetPixel.dpr
View File

@@ -33,7 +33,7 @@ begin
with Window do with Window do
DrawWindow(Left, Top, Right, Bottom, 'Get Pixel', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Get Pixel', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
with Rectangle do with Rectangle do
begin begin

6
Examples/GetPointOwner/GetPointOwner.dpr
View File

@@ -26,7 +26,7 @@ begin
(* clear unnecessary part of possible previous name by white rectangle *) (* clear unnecessary part of possible previous name by white rectangle *)
DrawRectangle(64 + I * CHAR_WIDTH, 16, (SizeOf(ThreadInfo.Name) - I) * CHAR_WIDTH, CHAR_HEIGHT, $00FFFFFF); DrawRectangle(64 + I * CHAR_WIDTH, 16, (SizeOf(ThreadInfo.Name) - I) * CHAR_WIDTH, CHAR_HEIGHT, $00FFFFFF);
(* draw current name *) (* draw current name *)
DrawText(64, 16, ThreadInfo.Name, $00000000, $00FFFFFF, DT_CP866_8X16 + DT_FILL_OPAQUE + DT_ZSTRING, 0); DrawText(64, 16, ThreadInfo.Name, $00000000, $00FFFFFF, DT_CP866_8x16 + DT_FILL_OPAQUE + DT_ZSTRING, 0);
end; end;
const const
@@ -51,8 +51,8 @@ begin
begin begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Width, Height, 'Get Point Owner', $00FFFFFF, DrawWindow(Left, Top, Width, Height, 'Get Point Owner', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
DrawText(16, 16, 'Name:', $00000000, $00FFFFFF, DT_CP866_8X16 + DT_ZSTRING, 0); DrawText(16, 16, 'Name:', $00000000, $00FFFFFF, DT_CP866_8x16 + DT_ZSTRING, 0);
EndDraw; EndDraw;
end; end;
BUTTON_EVENT: BUTTON_EVENT:

2
Examples/Hello/Hello.dpr
View File

@@ -21,7 +21,7 @@ begin
begin begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Hello!', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Hello!', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
EndDraw; EndDraw;
end; end;
KEY_EVENT: KEY_EVENT:

25
Examples/ReadFolder/ReadFolder.dpr
View File

@@ -3,6 +3,11 @@ program ReadFolderApp;
uses uses
KolibriOS; KolibriOS;
type
TInt64Rec = packed record
Lo, Hi: LongWord;
end;
var var
hConsole: Pointer; hConsole: Pointer;
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall; ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
@@ -41,17 +46,17 @@ begin
begin begin
with FolderInformation, FileInformation[0] do with FolderInformation, FileInformation[0] do
begin begin
printf('FileName = %s'#10, FileName); printf('FileName = %s'#10, Name);
with FileAttributes do with Attributes do
begin begin
printf('SizeHi = %u'#10, SizeHi); printf('SizeLo = %u'#10, TInt64Rec(Size).Lo);
printf('SizeLo = %u'#10, SizeLo); printf('SizeHi = %u'#10, TInt64Rec(Size).Hi);
with modifyDate do printf('modifyDate = %02d.%02d.%02d'#10, Day, Month, Year); with Modify.Date do printf('modifyDate = %02d.%02d.%02d'#10, Day, Month, Year);
with modifyTime do printf('modifyTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds); with Modify.Time do printf('modifyTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
with AccessDate do printf('AccessDate = %02d.%02d.%02d'#10, Day, Month, Year); with Access.Date do printf('AccessDate = %02d.%02d.%02d'#10, Day, Month, Year);
with AccessTime do printf('AccessTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds); with Access.Time do printf('AccessTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
with CreationDate do printf('CreationDate = %02d.%02d.%02d'#10, Day, Month, Year); with Creation.Date do printf('CreationDate = %02d.%02d.%02d'#10, Day, Month, Year);
with CreationTime do printf('CreationTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds); with Creation.Time do printf('CreationTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
printf('Attributes = 0x%08x'#10, Attributes); printf('Attributes = 0x%08x'#10, Attributes);
end; end;
end; end;

2
Examples/Screenshot/Screenshot.dpr
View File

@@ -81,7 +81,7 @@ begin
begin begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Screenshot', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Screenshot', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION + WS_FILL_TRANSPARENT, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION + WS_TRANSPARENT_FILL, CAPTION_MOVABLE);
with Screen do with Screen do
DrawImage(Preview^, 0, 0, Width div 2, Height div 2); DrawImage(Preview^, 0, 0, Width div 2, Height div 2);
EndDraw; EndDraw;

12
Examples/SetCursor/SetCursor.dpr
View File

@@ -104,14 +104,14 @@ begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Set Cursor', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Set Cursor', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
DrawText( 8, 8, 'Click on picture buttons', 0, $00FFFFFF, DT_CP866_8X16 + DT_FILL_OPAQUE + DT_ZSTRING, 0); DrawText( 8, 8, 'Click on picture buttons', 0, $00FFFFFF, DT_CP866_8x16 + DT_FILL_OPAQUE + DT_ZSTRING, 0);
DrawText( 8, 25, 'below to select cursor:', 0, $00FFFFFF, DT_CP866_8X16 + DT_FILL_OPAQUE + DT_ZSTRING, 0); DrawText( 8, 25, 'below to select cursor:', 0, $00FFFFFF, DT_CP866_8x16 + DT_FILL_OPAQUE + DT_ZSTRING, 0);
DrawButton(8, 40, 32, 32, 0, BS_FILL_TRANSPARENT, ARROW_BUTTON); DrawButton(8, 40, 32, 32, 0, BS_TRANSPARENT_FILL, ARROW_BUTTON);
DrawButton(52, 40, 32, 32, 0, BS_FILL_TRANSPARENT, POINT_BUTTON); DrawButton(52, 40, 32, 32, 0, BS_TRANSPARENT_FILL, POINT_BUTTON);
DrawButton(96, 40, 32, 32, 0, BS_FILL_TRANSPARENT, WAIT_BUTTON ); DrawButton(96, 40, 32, 32, 0, BS_TRANSPARENT_FILL, WAIT_BUTTON );
Blit(ArrowBitmap^, 0, 0, 32, 32, 8, 40, 32, 32, 32*4, BLIT_CLIENT_RELATIVE); Blit(ArrowBitmap^, 0, 0, 32, 32, 8, 40, 32, 32, 32*4, BLIT_CLIENT_RELATIVE);
Blit(PointBitmap^, 0, 0, 32, 32, 52, 40, 32, 32, 32*4, BLIT_CLIENT_RELATIVE); Blit(PointBitmap^, 0, 0, 32, 32, 52, 40, 32, 32, 32*4, BLIT_CLIENT_RELATIVE);

2
Examples/SetPixel/SetPixel.dpr
View File

@@ -23,7 +23,7 @@ begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Set Pixel', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Set Pixel', $00FFFFFF,
WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
for Y := 0 to 50 do for Y := 0 to 50 do
for X := 0 to 50 do for X := 0 to 50 do

6
Examples/SetWindowPos/SetWindowPos.dpr
View File

@@ -26,7 +26,7 @@ begin
with ThreadInfo.Window do with ThreadInfo.Window do
begin begin
if Boolean(ControlKeyState and (RIGHT_CTRL_PRESSED or LEFT_CTRL_PRESSED)) then if Boolean(ControlKeyState and (RIGHT_CTRL_PRESSED or LEFT_CTRL_PRESSED)) then
case Key.Scan of case Key.ScanCode of
KS_UP: KS_UP:
Dec(Bottom, MOVE_STEP); Dec(Bottom, MOVE_STEP);
KS_DOWN: KS_DOWN:
@@ -37,7 +37,7 @@ begin
Inc(Right, MOVE_STEP); Inc(Right, MOVE_STEP);
end end
else else
case Key.Scan of case Key.ScanCode of
KS_UP: KS_UP:
Dec(Top, MOVE_STEP); Dec(Top, MOVE_STEP);
KS_DOWN: KS_DOWN:
@@ -69,7 +69,7 @@ begin
begin begin
BeginDraw; BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Set Window Position', $00FFFFFF, DrawWindow(Left, Top, Right, Bottom, 'Set Window Position', $00FFFFFF,
WS_SKINNED_SIZABLE + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE); WS_SKINNED_SIZABLE + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
DrawText(24, 26, 'Use arrow keys(Left, Right, Up, Down)', $00000000, $00FFFFFF, DT_ZSTRING, 0); DrawText(24, 26, 'Use arrow keys(Left, Right, Up, Down)', $00000000, $00FFFFFF, DT_ZSTRING, 0);
DrawText(24, 35, 'to move the window.', $00000000, $00FFFFFF, DT_ZSTRING, 0); DrawText(24, 35, 'to move the window.', $00000000, $00FFFFFF, DT_ZSTRING, 0);
DrawText(24, 44, 'Use Ctrl+arrow keys to resize window.', $00000000, $00FFFFFF, DT_ZSTRING, 0); DrawText(24, 44, 'Use Ctrl+arrow keys to resize window.', $00000000, $00FFFFFF, DT_ZSTRING, 0);

3597
Lib/KolibriOS.pas
View File

File diff suppressed because it is too large Load Diff