Subversion Repositories fastphp

Rev

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

Rev 64 Rev 66
Line 826... Line 826...
826 
  end;
 826 
  end;
827 
  {$ENDREGION}
 827 
  {$ENDREGION}
828 
end;
 828 
end;
829 
 
 829 
 
830 
procedure TForm1.BtnLightClick(Sender: TObject);
 830 
procedure TForm1.BtnLightClick(Sender: TObject);
- 
 
 831 
var
- 
 
 832 
  CanClose: boolean;
831 
begin
 833 
begin
- 
 
 834 
  FormCloseQuery(Form1, CanClose);
- 
 
 835 
  if not CanClose then exit;
- 
 
 836 
 
832 
  if IsThemeDark then
 837 
  if IsThemeDark then
833 
  begin
 838 
  begin
834 
    BtnLight.Picture.Assign(BtnLightOn.Picture);
 839 
    BtnLight.Picture.Assign(BtnLightOn.Picture);
835 
    Theme_Light;
 840 
    Theme_Light;
836 
    TFastPHPConfig.DarkTheme := false;
 841 
    TFastPHPConfig.DarkTheme := false;