OSDN Git Service

Deleted unused codes
authornaru <bottle@mikage.to>
Wed, 9 Jul 2003 03:37:23 +0000 (03:37 +0000)
committernaru <bottle@mikage.to>
Wed, 9 Jul 2003 03:37:23 +0000 (03:37 +0000)
bottleclient/LogForm.pas

index f16ef7c..8e581ac 100755 (executable)
@@ -612,13 +612,8 @@ end;
 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';