Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-09-19 17:41:01 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

KolibriOS window styles sorted by value, WS_NO_DRAW and WINDOW_BORDER_SIZE added

Browse Source
This commit is contained in:
Владислав Джавадов 2020-12-27 02:00:40 +03:00
parent e4a5b1e0a6
commit 66f8410294
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,9 +3,6 @@ program Screenshot;
uses uses
KolibriOS; KolibriOS;
const
BORDER_SIZE = 5;
type type
TRGBTriple = packed record TRGBTriple = packed record
Blue: Byte; Blue: Byte;
@ -63,8 +60,8 @@ begin
with ScreenSize do with ScreenSize do
begin begin
WndWidth := BORDER_SIZE * 2 + Width div 2 - 1; WndWidth := WINDOW_BORDER_SIZE * 2 + Width div 2 - 1;
WndHeight := BORDER_SIZE + GetSkinHeight + Height div 2 - 1; WndHeight := WINDOW_BORDER_SIZE + GetSkinHeight + Height div 2 - 1;
WndLeft := (Width - WndWidth) div 2; WndLeft := (Width - WndWidth) div 2;
WndTop := (Height - WndHeight) div 2; WndTop := (Height - WndHeight) div 2;

15
Lib/KolibriOS.pas
View File

@ -245,15 +245,18 @@ type
const const
INVALID_HANDLE = 0; INVALID_HANDLE = 0;
WINDOW_BORDER_SIZE = 5; // defined by kernel
// Window styles // Window styles
WS_SKINNED_FIXED = $4000000; WS_FIXED = $00000000;
WS_SKINNED_SIZABLE = $3000000; WS_NO_DRAW = $01000000;
WS_FIXED = $0000000; WS_SIZABLE = $02000000;
WS_SIZABLE = $2000000; WS_SKINNED_SIZABLE = $03000000;
WS_SKINNED_FIXED = $04000000;
WS_CAPTION = $10000000;
WS_CLIENT_COORDS = $20000000;
WS_TRANSPARENT_FILL = $40000000; WS_TRANSPARENT_FILL = $40000000;
WS_GRADIENT_FILL = $80000000; WS_GRADIENT_FILL = $80000000;
WS_CLIENT_COORDS = $20000000;
WS_CAPTION = $10000000;
// Caption styles // Caption styles
CAPTION_MOVABLE = $00000000; CAPTION_MOVABLE = $00000000;