git-svn-id: https://spexeah.com:8443/svn/Asuro@670 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
199
src/prog/themer.pas
Normal file
199
src/prog/themer.pas
Normal file
@ -0,0 +1,199 @@
|
||||
unit themer;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
console, terminal, keyboard, shell, strings, tracer;
|
||||
|
||||
procedure init();
|
||||
|
||||
implementation
|
||||
|
||||
type
|
||||
TThemeThing = record
|
||||
ThemeName : PChar;
|
||||
Colors : PRGB565Pair;
|
||||
end;
|
||||
|
||||
var
|
||||
Handle : HWND = 0;
|
||||
Colors : uint32;
|
||||
Themes : Array[0..3] of TThemeThing;
|
||||
Selected : uint32;
|
||||
ForeBack : uint32;
|
||||
Changing : Boolean = false;
|
||||
|
||||
procedure OnClose();
|
||||
begin
|
||||
Handle:= 0;
|
||||
end;
|
||||
|
||||
procedure Draw();
|
||||
var
|
||||
i, j : uint32;
|
||||
longest, len : uint32;
|
||||
|
||||
begin
|
||||
tracer.push_trace('themer.draw');
|
||||
if Handle <> 0 then begin
|
||||
clearWNDEx(Handle, Colors);
|
||||
writestringlnexWND(' ', Colors, Handle);
|
||||
writestringlnexWND(' ', Colors, Handle);
|
||||
writestringlnexWND(' ', Colors, Handle);
|
||||
writestringlnexWND(' ', Colors, Handle);
|
||||
longest:= 0;
|
||||
for i:=0 to 3 do begin
|
||||
if stringSize(Themes[i].ThemeName) > longest then longest:= stringSize(Themes[i].ThemeName);
|
||||
end;
|
||||
for j:=0 to longest do begin
|
||||
writeStringexWND(' ', Colors, Handle);
|
||||
end;
|
||||
writestringexWND(' Foreground ', Colors, Handle);
|
||||
writestringexWND(#6, Colors, Handle);
|
||||
writestringlnexWND(' Background', Colors, Handle);
|
||||
for i:=0 to 3 do begin
|
||||
len:= longest - StringSize(Themes[i].ThemeName);
|
||||
for j:=0 to len do begin
|
||||
writeStringexWND(' ', Colors, Handle);
|
||||
end;
|
||||
writestringexWND(' ', Colors, Handle);
|
||||
writeStringexWND(Themes[i].ThemeName, Colors, Handle);
|
||||
writeStringexWND(':', Colors, Handle);
|
||||
if (ForeBack = 0) and (Selected = i) and (Changing) then writeStringexWND(' *R:', Colors, Handle) else if (ForeBack = 0) and (Selected = i) then writeStringexWND(' >R:', Colors, Handle) else writeStringexWND(' R:', Colors, Handle);
|
||||
if Themes[i].Colors^.Foreground.R < 10 then writeintexWND(0, Colors, Handle);
|
||||
writeintexWND(Themes[i].Colors^.Foreground.R, Colors, Handle);
|
||||
if (ForeBack = 1) and (Selected = i) and (Changing) then writeStringexWND(' *G:', Colors, Handle) else if (ForeBack = 1) and (Selected = i) then writeStringexWND(' >G:', Colors, Handle) else writeStringexWND(' G:', Colors, Handle);
|
||||
if Themes[i].Colors^.Foreground.G < 10 then writeintexWND(0, Colors, Handle);
|
||||
writeintexWND(Themes[i].Colors^.Foreground.G, Colors, Handle);
|
||||
if (ForeBack = 2) and (Selected = i) and (Changing) then writeStringexWND(' *B:', Colors, Handle) else if (ForeBack = 2) and (Selected = i) then writeStringexWND(' >B:', Colors, Handle) else writeStringexWND(' B:', Colors, Handle);
|
||||
if Themes[i].Colors^.Foreground.B < 10 then writeintexWND(0, Colors, Handle);
|
||||
writeintexWND(Themes[i].Colors^.Foreground.B, Colors, Handle);
|
||||
writestringexWND(' ', Colors, Handle);
|
||||
writestringexWND(#6, Colors, Handle);
|
||||
if (ForeBack = 3) and (Selected = i) and (Changing) then writeStringexWND(' *R:', Colors, Handle) else if (ForeBack = 3) and (Selected = i) then writeStringexWND(' >R:', Colors, Handle) else writeStringexWND(' R:', Colors, Handle);
|
||||
if Themes[i].Colors^.Background.R < 10 then writeintexWND(0, Colors, Handle);
|
||||
writeintexWND(Themes[i].Colors^.Background.R, Colors, Handle);
|
||||
if (ForeBack = 4) and (Selected = i) and (Changing) then writeStringexWND(' *G:', Colors, Handle) else if (ForeBack = 4) and (Selected = i) then writeStringexWND(' >G:', Colors, Handle) else writeStringexWND(' G:', Colors, Handle);
|
||||
if Themes[i].Colors^.Background.G < 10 then writeintexWND(0, Colors, Handle);
|
||||
writeintexWND(Themes[i].Colors^.Background.G, Colors, Handle);
|
||||
if (ForeBack = 5) and (Selected = i) and (Changing) then writeStringexWND(' *B:', Colors, Handle) else if (ForeBack = 5) and (Selected = i) then writeStringexWND(' >B:', Colors, Handle) else writeStringexWND(' B:', Colors, Handle);
|
||||
if Themes[i].Colors^.Background.B < 10 then writeintexWND(0, Colors, Handle);
|
||||
writeintexWND(Themes[i].Colors^.Background.B, Colors, Handle);
|
||||
writestringlnexWND(' ', Colors, Handle);
|
||||
end;
|
||||
len:= longest - StringSize('Color16');
|
||||
for j:=0 to len do begin
|
||||
writeStringexWND(' ', Colors, Handle);
|
||||
end;
|
||||
writestringexWND(' ', Colors, Handle);
|
||||
writestringexWND('Color16:', Colors, Handle);
|
||||
writestringexWND(' ', Colors, Handle);
|
||||
writehexexWND(puint16(@Themes[Selected].Colors^.Foreground)^, Colors, Handle);
|
||||
writestringexWND(' '+#6, Colors, Handle);
|
||||
writestringexWND(' ', Colors, Handle);
|
||||
writehexlnexWND(puint16(@Themes[Selected].Colors^.Background)^, Colors, Handle);
|
||||
writestringlnexWND(' ', Colors, Handle);
|
||||
writestringlnexWND(' Press ''d'' to dump color values.', Colors, Handle);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure incrementSelected;
|
||||
begin
|
||||
case ForeBack of
|
||||
0:Themes[Selected].Colors^.Foreground.R:= Themes[Selected].Colors^.Foreground.R + 1;
|
||||
1:Themes[Selected].Colors^.Foreground.G:= Themes[Selected].Colors^.Foreground.G + 1;
|
||||
2:Themes[Selected].Colors^.Foreground.B:= Themes[Selected].Colors^.Foreground.B + 1;
|
||||
3:Themes[Selected].Colors^.Background.R:= Themes[Selected].Colors^.Background.R + 1;
|
||||
4:Themes[Selected].Colors^.Background.G:= Themes[Selected].Colors^.Background.G + 1;
|
||||
5:Themes[Selected].Colors^.Background.B:= Themes[Selected].Colors^.Background.B + 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure decrementSelected;
|
||||
begin
|
||||
case ForeBack of
|
||||
0:Themes[Selected].Colors^.Foreground.R:= Themes[Selected].Colors^.Foreground.R - 1;
|
||||
1:Themes[Selected].Colors^.Foreground.G:= Themes[Selected].Colors^.Foreground.G - 1;
|
||||
2:Themes[Selected].Colors^.Foreground.B:= Themes[Selected].Colors^.Foreground.B - 1;
|
||||
3:Themes[Selected].Colors^.Background.R:= Themes[Selected].Colors^.Background.R - 1;
|
||||
4:Themes[Selected].Colors^.Background.G:= Themes[Selected].Colors^.Background.G - 1;
|
||||
5:Themes[Selected].Colors^.Background.B:= Themes[Selected].Colors^.Background.B - 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure OnKeyPressed(info : TKeyInfo);
|
||||
var
|
||||
i : uint32;
|
||||
|
||||
begin
|
||||
case info.key_code of
|
||||
13:begin
|
||||
Changing:= not Changing;
|
||||
end;
|
||||
16:begin //Up
|
||||
if changing then begin
|
||||
incrementSelected;
|
||||
end else begin
|
||||
if Selected > 0 then dec(Selected);
|
||||
end;
|
||||
end;
|
||||
18:begin //Down
|
||||
if changing then begin
|
||||
decrementSelected;
|
||||
end else begin
|
||||
if Selected < 3 then inc(Selected);
|
||||
end;
|
||||
end;
|
||||
20:begin //Right
|
||||
if not changing then begin
|
||||
if ForeBack < 5 then inc(ForeBack);
|
||||
end;
|
||||
end;
|
||||
19:begin //Left
|
||||
if not changing then begin
|
||||
if ForeBack > 0 then dec(ForeBack);
|
||||
end;
|
||||
end;
|
||||
uint8('d'):begin
|
||||
writestringlnWND(' ', getTerminalHWND);
|
||||
for i:=0 to 3 do begin
|
||||
writestringWND(Themes[i].ThemeName, getTerminalHWND);
|
||||
writestringWND(': Foreground: ', getTerminalHWND);
|
||||
writehexWND(puint16(@Themes[i].Colors^.Foreground)^, getTerminalHWND);
|
||||
writestringWND(' Background: ', getTerminalHWND);
|
||||
writehexlnWND(puint16(@Themes[i].Colors^.Background)^, getTerminalHWND);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure run(Params : PParamList);
|
||||
begin
|
||||
tracer.push_trace('themer.run');
|
||||
if Handle = 0 then begin
|
||||
Handle:= newWindow(20, 40, 65, 14, 'THEMER');
|
||||
registerEventHandler(Handle, EVENT_DRAW, void(@Draw));
|
||||
registerEventHandler(Handle, EVENT_CLOSE, void(@OnClose));
|
||||
registerEventHandler(Handle, EVENT_KEY_PRESSED, void(@OnKeyPressed));
|
||||
writestringlnWND('Themer Started.', getTerminalHWND);
|
||||
Themes[0].ThemeName:= 'Windows';
|
||||
Themes[0].Colors:= PRGB565Pair(getWindowColorPtr);
|
||||
Themes[1].ThemeName:= 'Background';
|
||||
Themes[1].Colors:= PRGB565Pair(getDesktopColorsPtr);
|
||||
Themes[2].ThemeName:= 'Explore Button';
|
||||
Themes[2].Colors:= PRGB565Pair(getExploreColorsPtr);
|
||||
Themes[3].ThemeName:= 'Taskbar';
|
||||
Themes[3].Colors:= PRGB565Pair(getTaskbarColorsPtr);
|
||||
Selected:= 0;
|
||||
ForeBack:= 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure init();
|
||||
begin
|
||||
Colors:= combineColors($0000, $FFFF);
|
||||
tracer.push_trace('themer.init');
|
||||
terminal.registerCommand('THEMER', @Run, 'Themer, for your themez.');
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user