Subversion Repositories Kolibri OS

Rev

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

Rev 7983 Rev 8097
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016, 2018 Anton Krotov
 2 
    Copyright 2016, 2018, 2020 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
6 
    the Free Software Foundation, either version 3 of the License, or
 6 
    the Free Software Foundation, either version 3 of the License, or
Line 22... Line 22...
22 
TYPE
 22 
TYPE
Line 23... Line 23...
23 
 
 23 
 
Line 24... Line 24...
24 
  DRAW_WINDOW = PROCEDURE;
 24 
  DRAW_WINDOW = PROCEDURE;
25 
 
 25 
 
26 
  TDialog = RECORD
 26 
  TDialog = RECORD
27 
    type,
 27 
    _type,
28 
    procinfo,
 28 
    procinfo,
29 
    com_area_name,
 29 
    com_area_name,
30 
    com_area,
 30 
    com_area,
Line 59... Line 59...
59 
BEGIN
 59 
BEGIN
60 
  NEW(res);
 60 
  NEW(res);
61 
  IF res # NIL THEN
 61 
  IF res # NIL THEN
62 
    res.s_com_area_name := "FFFFFFFF_color_dlg";
 62 
    res.s_com_area_name := "FFFFFFFF_color_dlg";
63 
    res.com_area := 0;
 63 
    res.com_area := 0;
64 
    res.type := 0;
 64 
    res._type := 0;
65 
    res.color_type := 0;
 65 
    res.color_type := 0;
66 
    res.procinfo := sys.ADR(res.procinf[0]);
 66 
    res.procinfo := sys.ADR(res.procinf[0]);
67 
    res.com_area_name := sys.ADR(res.s_com_area_name[0]);
 67 
    res.com_area_name := sys.ADR(res.s_com_area_name[0]);
68 
    res.start_path := sys.SADR("/rd/1/colrdial");
 68 
    res.start_path := sys.SADR("/rd/1/colrdial");
69 
    res.draw_window := draw_window;
 69 
    res.draw_window := draw_window;