Subversion Repositories Kolibri OS

Rev

Rev 8728 | Rev 8772 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8728 Rev 8762
Line 21... Line 21...
21 
 
 21 
 
22 
IMPORT
 22 
IMPORT
Line 23... Line 23...
23 
    KOSAPI, SYSTEM;
 23 
    KOSAPI, SYSTEM;
- 
 
 24 
 
24 
 
 25 
CONST
- 
 
 26 
(*
- 
 
 27 
    winColor* = 0EEEEEEH;
- 
 
 28 
    textColor* = 0000000H;
- 
 
 29 
    btnColor* = 0CCCCCCH;
- 
 
 30 
    btnTextColor* = 0000000H;
- 
 
 31 
    toolbarColor* = 0DFDFDFH;
- 
 
 32 
    scrollColor* = 0A0A0A0H;
- 
 
 33 
    scrollBkColor* = winColor;
- 
 
 34 
    borderColor* = 0808080H;
- 
 
 35 
    selMenuColor* = 0CCE8FFH;
- 
 
 36 
    shadowColor* = 0808080H;
- 
 
 37 
    caseColor* = 00000FFH;
25 
CONST
 38 
    disCaseColor* = 0808080H;
26 
    winColor* = 0EEEEEEH;
 39 
*)
Line -... Line 40...
- 
 
 40 
    fontWidth* = 8;
- 
 
 41 
    fontHeight* = 16;
- 
 
 42 
 
- 
 
 43 
VAR
- 
 
 44 
 
- 
 
 45 
    winColor*, textColor*, btnColor*, btnTextColor*,
- 
 
 46 
    toolbarColor*, scrollColor*, scrollBkColor*,
Line 27... Line 47...
27 
    fontWidth* = 8;
 47 
    borderColor*, selMenuColor*, shadowColor*,
28 
    fontHeight* = 16;
 48 
    caseColor*, disCaseColor*: INTEGER;
29 
 
 49 
 
Line 152... Line 172...
152 
    x, y: INTEGER;
 172 
    x, y: INTEGER;
153 
BEGIN
 173 
BEGIN
154 
    KOSAPI.sysfunc5(8, LSL(Left, 16) + Width, LSL(Top, 16) + Height, id, Color);
 174 
    KOSAPI.sysfunc5(8, LSL(Left, 16) + Width, LSL(Top, 16) + Height, id, Color);
155 
    x := Left + (Width - fontWidth * LENGTH(Caption)) DIV 2;
 175 
    x := Left + (Width - fontWidth * LENGTH(Caption)) DIV 2;
156 
    y := Top + (Height - fontHeight) DIV 2 + 1;
 176 
    y := Top + (Height - fontHeight) DIV 2 + 1;
157 
    DrawText(x, y, 0, Caption)
 177 
    DrawText(x, y, btnTextColor, Caption)
158 
END CreateButton;
 178 
END CreateButton;
Line 159... Line 179...
159 
 
 179 
 
160 
 
 180 
 
Line 296... Line 316...
296 
BEGIN
 316 
BEGIN
297 
    KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg), SYSTEM.SIZE(INTEGER))
 317 
    KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg), SYSTEM.SIZE(INTEGER))
298 
END SendIPC;
 318 
END SendIPC;
Line -... Line 319...
- 
 
 319 
 
- 
 
 320 
 
- 
 
 321 
PROCEDURE PutPixel* (x, y, color: INTEGER);
- 
 
 322 
BEGIN
- 
 
 323 
    KOSAPI.sysfunc4(1, x, y, color)
- 
 
 324 
END PutPixel;
- 
 
 325 
 
- 
 
 326 
 
- 
 
 327 
PROCEDURE GetSystemColors*;
- 
 
 328 
VAR
- 
 
 329 
    buf: ARRAY 10 OF INTEGER;
- 
 
 330 
BEGIN
- 
 
 331 
(*    winColor := 0EEEEEEH;
- 
 
 332 
    textColor := 0000000H;
- 
 
 333 
    btnColor := 0CCCCCCH;
- 
 
 334 
    btnTextColor := 0000000H;
- 
 
 335 
    scrollColor := 0A0A0A0H;
- 
 
 336 
    scrollBkColor := winColor;
- 
 
 337 
    borderColor := 0808080H;
- 
 
 338 
    *)
- 
 
 339 
    selMenuColor := 0CCE8FFH;
- 
 
 340 
    toolbarColor := 0DFDFDFH;
- 
 
 341 
    shadowColor := 0808080H;
- 
 
 342 
    caseColor := 00000FFH;
- 
 
 343 
    disCaseColor := 0808080H;
- 
 
 344 
 
- 
 
 345 
    ASSERT(LEN(buf) >= 10);
- 
 
 346 
    KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40);
- 
 
 347 
 
- 
 
 348 
    winColor := buf[5];
- 
 
 349 
    textColor := buf[8];
- 
 
 350 
    btnColor := buf[6];
- 
 
 351 
    btnTextColor := buf[7];
- 
 
 352 
    scrollColor := btnColor;
- 
 
 353 
    scrollBkColor := winColor;
- 
 
 354 
    borderColor := buf[9];
- 
 
 355 
END GetSystemColors;
299 
 
 356 
 
300 
 
 357