Delphi7 examples

Sat Feb 04, 2017 10:00 pm

Here are some Delphi7 examples of using wrappers to call system functions from KolibriOS.lib.
Also, it is possible to use FreePascal compiler i hope. Newer version is more compatible with Delphi.
The main goal is more convenient programming with KolibriOS API.

Tools needed:

Code: Select all

dcc32   — Delphi compiler
omf2d   — utility for converting from Borland omf to Intel omf
link    — Microsoft linker
ld      — GNU linker
objcopy — utility to convert object files

Here omf2d utility just in case:

: OMF2D.7z (40.7 KiB)
Downloaded 615 times

Some examples and KolibriOS.lib:

: KOSLib_Demo.7z (23.75 KiB)
Downloaded 624 times

It contains these 5 examples:
{1} Just a simple window.
Used functions: DrawWindow, GetScreenSize, WaitEvent, BeginDraw, EndDraw, GetKey, GetButton, ThreadTerminate.

Spoiler:

{2} When you click on the buttons the window caption changes.
Used functions: DrawButton, GetButton, SetWindowCaption, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, ThreadTerminate.

Spoiler:

: 2.PNG (2.92 KiB)
Viewed 17757 times

{3} Press on the keyboard and text will be drawn in window.
Used functions: GetKey, DrawText, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetButton, ThreadTerminate.

Spoiler:

: 3.PNG (3.92 KiB)
Viewed 17757 times

{4} Load example.asm into console window.
Used functions: LoadFile, LoadLibrary, GetProcAddress, ThreadTerminate.

Spoiler:

{5} Show CurrentDirectory, AppPath and CmdLine in console window.
Used functions: GetCurrentDirectory, LoadLibrary, GetProcAddress, ThreadTerminate.

In the case of new examples they will be added to this topic below.

Sat Feb 11, 2017 11:43 pm

DrawImage example.

Load 24 bits per pixel targa file and draw it into the window.
This image file is uncompressed and was saved with top to bottom pixel order.
Used functions: DrawImage, LoadFile, HeapCreate, SetCurrentDirectory, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 6.PNG (12 KiB)
Viewed 17705 times

Source:

: {6} DrawImage.7z (9.26 KiB)
Downloaded 550 times

Sun Feb 19, 2017 11:47 pm

Just a simple example. Drawing in the window with SetPixel function.
Used functions: SetPixel, BeginDraw, DrawWindow, EndDraw, WaitEvent, GetKey, GetButton, GetScreenSize, ThreadTerminate.

Screenshot:

Spoiler:

: 7.PNG (2.66 KiB)
Viewed 17638 times

Source:

: {7} SetPixel.7z (814 Bytes)
Downloaded 532 times

Mon May 15, 2017 2:12 pm

Show info about the thread with given slot in the console window.
Used functions: LoadLibrary, GetProcAddress, GetThreadInfo, ThreadTerminate.

Screenshot:

Spoiler:

: 8.PNG (12.68 KiB)
Viewed 17243 times

Source:

: {8} GetThreadInfo.7z (1.15 KiB)
Downloaded 498 times

Sat May 27, 2017 3:44 pm

Draw the rectangle with a color of the pixel under the mouse.
Used functions: GetPixel, GetMousePos, DrawRectangle, GetScreenSize, SetEventMask, WaitEvent, BeginDraw, DrawWindow, DrawLine, EndDraw, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 9.PNG (2.79 KiB)
Viewed 17165 times

Source:

: {9} GetPixel.7z (865 Bytes)
Downloaded 489 times

Sun Jun 04, 2017 9:10 am

Reading the contents of a folder in the console window.
Used functions: ReadFolder, LoadLibrary, GetProcAddress, ThreadTerminate.

Screenshot:

Spoiler:

: 10.PNG (16.22 KiB)
Viewed 17128 times

Source:

: {10} ReadFolder.7z (959 Bytes)
Downloaded 509 times

Sun Jun 11, 2017 9:24 pm

Reading image files with different bits per pixel values(4, 1, 24) and draw images in window.
Used functions: DrawImageEx, ReadFile, HeapCreate, HeapAllocate, SetCurrentDirectory, GetFileAttributes, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 11.PNG (16.49 KiB)
Viewed 17072 times

Source:

: {11} DrawImageEx.7z (10.58 KiB)
Downloaded 511 times

Mon Jun 19, 2017 10:12 am

Launch application "TextEditor" with parameters for open "example.asm" in it. Also do minimize and restore "TextEditor" window.
Used functions: RunFile, MinimizeWindowByID, RestoreWindowByID, DrawText, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, DrawButton, EndDraw, GetKey, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 12.PNG (2.7 KiB)
Viewed 17021 times

Source:

: {12} RunFile, MinimizeWindowByID, RestoreWindowByID.7z (1006 Bytes)
Downloaded 493 times

Mon Jun 26, 2017 7:49 pm

Load 32 bit bitmaps(top to bottom pixel order) and use it as mouse cursors. Also draw these pictures on window. For this purpose Blit function is used.
Used functions: LoadCursorIndirect, SetCursor, Blit, DrawText, DrawButton, LoadFile, HeapCreate, SetCurrentDirectory, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 13.PNG (4.08 KiB)
Viewed 16947 times

Source:

: {13} LoadCursorIndirect, SetCursor.7z (1.76 KiB)
Downloaded 430 times

Fri Jul 07, 2017 9:27 pm

Get image of screen and draw it in the application window.
Used functions: GetScreenImage, DrawImage, GetSkinHeight, HeapCreate, GetScreenSize, HeapAllocate, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 14.PNG (72.08 KiB)
Viewed 16901 times

Source:

: {14} GetScreenImage.7z (1.14 KiB)
Downloaded 454 times

Thu Sep 14, 2017 6:07 pm

This example writes the system date and system time to the console window and updates it periodically.
Used functions: LoadLibrary, GetProcAddress, GetSystemDate, GetSystemTime, Sleep, ThreadTerminate.

Screenshot:

Spoiler:

: SystemDate_SystemTime.PNG (7.6 KiB)
Viewed 16680 times

Source:

: {15} GetSystemDate, GetSystemTime.7z (928 Bytes)
Downloaded 445 times

Sat Sep 23, 2017 11:18 am

In this example a folder 'test_folder' is created on '/rd/1'.
Then in the folder you created a file is created 'test_file.txt'.
In the created file data is written 'Test100500'.
After that you can open 'test_file.txt' and find in it written data.
Used functions: CreateFolder, CreateFile, WriteFile, SetEventMask, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, DrawButton, DrawText, EndDraw, GetButton, ThreadTerminate.

Screenshot:

Spoiler:

: 16.PNG (4.58 KiB)
Viewed 16615 times

Source:

: {16} CreateFolder, CreateFile, WriteFile.7z (1.36 KiB)
Downloaded 444 times