Skip to content

Commit

Permalink
Replace green color
Browse files Browse the repository at this point in the history
changed green color to one looks normally in both - black and white styles
  • Loading branch information
sebaxakerhtc authored Jul 18, 2023
1 parent 845a89c commit 9a6c94d
Show file tree
Hide file tree
Showing 4 changed files with 4 additions and 4 deletions.
Binary file modified src-RDP_CnC/LicenseUnit.dcu
Binary file not shown.
Binary file modified src-RDP_CnC/MainUnit.dcu
Binary file not shown.
8 changes: 4 additions & 4 deletions src-RDP_CnC/MainUnit.pas
Original file line number Diff line number Diff line change
Expand Up @@ -508,7 +508,7 @@ procedure TMainForm.TimerTimer(Sender: TObject);
1: begin
lsWrapper.Caption := 'Installed';
lsWrapper.StyleElements := lsWrapper.StyleElements - [seFont];
lsWrapper.Font.Color := clLime;
lsWrapper.Font.Color := $0000C800;
CheckSupp := True;
INIPath := ExtractFilePath(ExpandPath(WrapperPath)) + 'rdpwrap.ini';
if not FileExists(INIPath) then
Expand Down Expand Up @@ -541,7 +541,7 @@ procedure TMainForm.TimerTimer(Sender: TObject);
SERVICE_RUNNING: begin
lsService.Caption := 'Running';
lsService.StyleElements := lsService.StyleElements - [seFont];
lsService.Font.Color := clLime;
lsService.Font.Color := $0000C800;
end;
SERVICE_CONTINUE_PENDING: begin
lsService.Caption := 'Resuming...';
Expand All @@ -559,7 +559,7 @@ procedure TMainForm.TimerTimer(Sender: TObject);
if IsListenerWorking then begin
lsListener.Caption := 'Listening';
lsListener.StyleElements := lsListener.StyleElements - [seFont];
lsListener.Font.Color := clLime;
lsListener.Font.Color := $0000C800;
end else begin
lsListener.Caption := 'Not listening';
lsListener.StyleElements := lsListener.StyleElements - [seFont];
Expand Down Expand Up @@ -615,7 +615,7 @@ procedure TMainForm.TimerTimer(Sender: TObject);
2: begin
lsSuppVer.Caption := '[fully supported]';
lsSuppVer.StyleElements := lsSuppVer.StyleElements - [seFont];
lsSuppVer.Font.Color := clLime;
lsSuppVer.Font.Color := $0000C800;
end;
end;
end;
Expand Down
Binary file modified src-RDP_CnC/WindowsDarkMode.dcu
Binary file not shown.

0 comments on commit 9a6c94d

Please sign in to comment.