Changeset 14 for trunk/About.pas

Timestamp:

Nov 27, 2009, 8:42:29 AM (15 years ago)

Author:

george

Message:

• Upraveno: Informace o nových verzích umístěny do souboru ReleaseNotes.txt.

File:

• trunk/About.pas (modified) (2 diffs)

trunk/About.pas

@@ -43 +43 @@
   Label6.Caption := ProjectHomepage;
   Label2.Caption := 'Verze: ' + ApplicationVersion;
+  try
+    Memo1.Lines.LoadFromFile('ReleaseNotes.txt');
+  except
+  end;
 end;
 
@@ -52 +56 @@
 procedure TForm3.Label4Click(Sender: TObject);
 begin
-  ShellExecute(Handle, 'open', PChar('mailto:maron2@centrum.cz'), nil, nil, SW_SHOWNORMAL);
+  ShellExecute(Handle, 'open', PChar('mailto:' + AuthorEmail), nil, nil, SW_SHOWNORMAL);
 end;