Subversion Repositories Kolibri OS

Rev

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

Rev 9628 Rev 9902
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021, 2022 Anton Krotov
 2 
    Copyright 2021-2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of CEdit.
 4 
    This file is part of CEdit.
5 
 
 5 
 
Line 90... Line 90...
90 
VAR
 90 
VAR
91 
	i, x, y, btn: INTEGER;
 91 
	i, x, y, btn: INTEGER;
92 
	button: tButton;
 92 
	button: tButton;
93 
BEGIN
 93 
BEGIN
94 
	setColors(toolbar);
 94 
	setColors(toolbar);
- 
 
 95 
	IF (toolbar.icons = 0) OR (toolbar.grayIcons = 0) THEN
95 
	Icons.get(toolbar.icons, toolbar.grayIcons, toolbar.colors.back);
 96 
		Icons.get(toolbar.icons, toolbar.grayIcons, toolbar.colors.back)
- 
 
 97 
	END;
96 
	i := 0;
 98 
	i := 0;
97 
	WHILE i < toolbar.cnt DO
 99 
	WHILE i < toolbar.cnt DO
98 
		button := toolbar.buttons[i];
 100 
		button := toolbar.buttons[i];
99 
		btn := button.btn;
 101 
		btn := button.btn;
100 
		IF btn # 0 THEN
 102 
		IF btn # 0 THEN
Line 158... Line 160...
158 
PROCEDURE create* (VAR toolbar: tToolbar; x, y: INTEGER);
 160 
PROCEDURE create* (VAR toolbar: tToolbar; x, y: INTEGER);
159 
BEGIN
 161 
BEGIN
160 
	toolbar.x := x;
 162 
	toolbar.x := x;
161 
	toolbar.y := y;
 163 
	toolbar.y := y;
162 
	toolbar.cnt := 0;
 164 
	toolbar.cnt := 0;
163 
	toolbar.width := 0
 165 
	toolbar.width := 0;
- 
 
 166 
	toolbar.icons := 0;
- 
 
 167 
	toolbar.grayIcons := 0;
164 
END create;
 168 
END create;
Line 165... Line 169...
165 
 
 169 
 
166 
 
 170