procedure TfrmLog.UpdateWindow;
var EnabledFlag: boolean;
begin
- if true then begin // ColorScript
- if lvwLog.Color <> Pref.BgColor then lvwLog.Color := Pref.BgColor;
- if lvwLog.Font.Color <> Pref.TalkColorH then lvwLog.Font.Color := Pref.TalkColorH;
- end else begin
- if lvwLog.Color <> clWindow then lvwLog.Color := clWindow;
- if lvwLog.Font.Color <> clWindowText then lvwLog.Font.Color := clWindowText;
- end;
+ lvwLog.Color := Pref.BgColor;
+ lvwLog.Font.Color := Pref.TalkColorH;
if SelectedBottleLog <> nil then begin
Caption := '\83\8d\83O - ' + SelectedBottleLog.Title;
StatusBar.Panels[0].Text := IntToStr(SelectedBottleLog.Count) + '\8c\8f';