Subversion Repositories spacemission

Rev

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

Rev 1 Rev 2
Line 24... Line 24...
24 
  end;
 24 
  end;
25 
 
 25 
 
26 
var
 26 
var
27 
  SourceForm: TSourceForm;
 27 
  SourceForm: TSourceForm;
28 
 
 28 
 
29 
const
 - 
 
30 
  FCompVersion = '1.0';
 - 
 
31 
 
 - 
 
32 
implementation
 29 
implementation
33 
 
 30 
 
34 
uses
 31 
uses
35 
  LevMain, LevSpeicherung;
 32 
  Global, LevMain, LevSpeicherung;
36 
 
 33 
 
37 
{$R *.DFM}
 34 
{$R *.DFM}
38 
 
 35 
 
39 
procedure TSourceForm.ElPopupButton1Click(Sender: TObject);
 36 
procedure TSourceForm.ElPopupButton1Click(Sender: TObject);
40 
begin
 37 
begin
Line 82... Line 79...
82 
  mainform.dxtimer.enabled := false;
 79 
  mainform.dxtimer.enabled := false;
83 
end;
 80 
end;
84 
 
 81 
 
85 
procedure TSourceForm.Label1Click(Sender: TObject);
 82 
procedure TSourceForm.Label1Click(Sender: TObject);
86 
begin
 83 
begin
87 
  if not fileexists(mainform.fdirectory+'Dokumentation.pdf') then
 84 
  if not fileexists(Fdirectory+'Dokumentation.pdf') then
88 
  begin
 85 
  begin
89 
    MessageDLG('Die Datei "Dokumentation.pdf" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
 86 
    MessageDLG('Die Datei "Dokumentation.pdf" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
90 
      mtWarning, [mbOK], 0);
 87 
      mtWarning, [mbOK], 0);
91 
  end
 88 
  end
92 
  else
 89 
  else
93 
    shellexecute(handle, 'open', pchar(mainform.fdirectory+'Dokumentation.pdf'), '', '', 1);
 90 
    shellexecute(handle, 'open', pchar(fdirectory+'Dokumentation.pdf'), '', '', 1);
94 
end;
 91 
end;
95 
 
 92 
 
96 
end.
 93 
end.
97 
 
 94