forked from KolibriOS/kolibrios
106 lines
2.5 KiB
Plaintext
106 lines
2.5 KiB
Plaintext
|
(*
|
||
|
|
Copyright 2021, 2022 Anton Krotov
|
||
|
|
|
||
|
|
This file is part of fb2read.
|
||
|
|
|
||
|
|
fb2read is free software: you can redistribute it and/or modify
|
||
|
|
it under the terms of the GNU General Public License as published by
|
||
|
|
the Free Software Foundation, either version 3 of the License, or
|
||
|
|
(at your option) any later version.
|
||
|
|
|
||
|
|
fb2read is distributed in the hope that it will be useful,
|
||
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with fb2read. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
*)
|
||
|
|
|
||
|
|
MODULE Icons;
|
||
|
|
|
||
|
|
IMPORT
|
||
|
|
LibImg, K := SysUtils, Graph, File, KOSAPI, SYSTEM;
|
||
|
|
|
||
|
|
CONST
|
||
|
|
fileName = "/sys/Icons16.png";
|
||
|
|
SIZE* = 18;
|
||
|
|
|
||
|
|
VAR
|
||
|
|
source: INTEGER;
|
||
|
|
|
||
|
|
(*
|
||
|
|
PROCEDURE copy (src, dst: INTEGER);
|
||
|
|
VAR
|
||
|
|
src_width, src_height,
|
||
|
|
dst_width, dst_height,
|
||
|
|
src_data, dst_data: INTEGER;
|
||
|
|
BEGIN
|
||
|
|
LibImg.GetInf(src, src_width, src_height, src_data);
|
||
|
|
LibImg.GetInf(dst, dst_width, dst_height, dst_data);
|
||
|
|
ASSERT(src_width = dst_width);
|
||
|
|
ASSERT(src_height = dst_height);
|
||
|
|
SYSTEM.MOVE(src_data, dst_data, src_width*src_height*4)
|
||
|
|
END copy;
|
||
|
|
*)
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE load (): INTEGER;
|
||
|
|
VAR
|
||
|
|
height: INTEGER;
|
||
|
|
BEGIN
|
||
|
|
RETURN LibImg.LoadFromFile(fileName, SIZE, height)
|
||
|
|
END load;
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE draw* (icons, n, x, y: INTEGER);
|
||
|
|
VAR
|
||
|
|
width, height, data: INTEGER;
|
||
|
|
BEGIN
|
||
|
|
LibImg.GetInf(icons, width, height, data);
|
||
|
|
KOSAPI.sysfunc7(65, data + SIZE*SIZE*4*n, SIZE*65536 + SIZE, x*65536 + y, 32, 0, 0)
|
||
|
|
END draw;
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE iconsBackColor (icons: INTEGER; BackColor: INTEGER);
|
||
|
|
VAR
|
||
|
|
width, height, data, x, y, pix: INTEGER;
|
||
|
|
b, g, r, gr: BYTE;
|
||
|
|
BEGIN
|
||
|
|
LibImg.GetInf(icons, width, height, data);
|
||
|
|
FOR y := 0 TO height - 1 DO
|
||
|
|
FOR x := 0 TO width - 1 DO
|
||
|
|
SYSTEM.GET32(data, pix);
|
||
|
|
Graph.getRGB(pix, r, g, b);
|
||
|
|
gr := (r + g + b) DIV 3;
|
||
|
|
IF BackColor = -1 THEN
|
||
|
|
pix := gr + 256*gr + 65536*gr
|
||
|
|
ELSIF gr = 255 THEN
|
||
|
|
pix := BackColor
|
||
|
|
END;
|
||
|
|
SYSTEM.PUT32(data, pix);
|
||
|
|
INC(data, 4)
|
||
|
|
END
|
||
|
|
END
|
||
|
|
END iconsBackColor;
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE get* (VAR icons, grayIcons: INTEGER; BackColor: INTEGER);
|
||
|
|
BEGIN
|
||
|
|
IF source = 0 THEN
|
||
|
|
source := load();
|
||
|
|
icons := load();
|
||
|
|
grayIcons := load();
|
||
|
|
iconsBackColor(grayIcons, -1);
|
||
|
|
iconsBackColor(grayIcons, BackColor);
|
||
|
|
iconsBackColor(icons, BackColor)
|
||
|
|
(*ELSE
|
||
|
|
copy(source, icons);
|
||
|
|
copy(source, grayIcons)*)
|
||
|
|
END;
|
||
|
|
END get;
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
source := 0
|
||
|
|
END Icons.
|