Changeset 4 for Options.pas

Timestamp:

May 15, 2009, 9:08:00 AM (16 years ago)

Author:

george

Message:

• Upraveno: Nyní určeno pro novější verzi Delphi zdarma Turbo Delphi.
• Opraveno: Odkaz na RSS kanál aktualit webu.
• Opraveno: Odkaz na web projektu.
• Opraveno: Chyby uvolňování paměti při práci s bitmapami. Použití Assign namísto := a následně Free.
• Upraveno: Zakomentovány odkazy na uzavřenou komponentu WinSkin. Nejsou dostupné zdrojové kódy, nelze doinstalovat správně do Turbo Delphi.

File:

• Options.pas (modified) (5 diffs)

Options.pas

@@ -135 +135 @@
   end;
   CheckBox5.Checked := UpdateApplication;
-  CheckBox3.Checked := Form1.SkinData1.Active;
-  Edit1.Text := Form1.SkinData1.SkinFile;
+  //CheckBox3.Checked := Form1.SkinData1.Active;
+  //Edit1.Text := Form1.SkinData1.SkinFile;
   CheckBox10.Checked := ShowDetails;
   CheckBox4.Checked := Form1.Timer4.Enabled;
@@ -207 +207 @@
   AfterWoWStartMinimalize := RadioButton1.Checked;
   UpdateApplication := CheckBox5.Checked;
-  Form1.SkinData1.Active := CheckBox3.Checked;
+  //Form1.SkinData1.Active := CheckBox3.Checked;
   ShowDetails := CheckBox10.Checked;
   Form1.Timer4.Enabled := CheckBox4.Checked;
@@ -266 +266 @@
     Edit1.Enabled := False;
     Button3.Enabled := False;
-    Form1.SkinData1.Active := False;
+    //Form1.SkinData1.Active := False;
   end else begin
     Edit1.Enabled := True;
     Button3.Enabled := True;
-    Form1.SkinData1.Active := True;
+    //Form1.SkinData1.Active := True;
   end;
 end;
@@ -283 +283 @@
   if OpenDialog1.Execute then begin
     Edit1.Text:= OpenDialog1.FileName;
-    Form1.SkinData1.SkinFile := Edit1.Text;
-    Form1.SkinData1.Active := False;
-    Form1.SkinData1.Active := True;
+    //Form1.SkinData1.SkinFile := Edit1.Text;
+    //Form1.SkinData1.Active := False;
+    //Form1.SkinData1.Active := True;
   end;
 end;
@@ -465 +465 @@
   RSSAddress := 'http://wow.zdechov.net/rss.php';
   Form1.CoolTrayIcon1.MinimizeToTray := True;
-  Form1.SkinData1.Active := False;
+  //Form1.SkinData1.Active := False;
   Form1.Timer4.Enabled := True;