cdar

annotate unit_Start.pas @ 1:87b91371db05

find changesets by author, revision, files, or words in the commit message
removed files from hg-test
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:56:21 +0100
parents
children
rev   line source
meillo@0 1 unit unit_Start;
meillo@0 2
meillo@0 3 interface//####################################################################################
meillo@0 4
meillo@0 5 uses
meillo@0 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
meillo@0 7 Dialogs, jpeg, ExtCtrls, StdCtrls, shellapi, ComCtrls, Buttons;
meillo@0 8
meillo@0 9 type
meillo@0 10 Tform_Start = class(TForm)
meillo@0 11 img_Logo: TImage;
meillo@0 12 img_Copyright: TImage;
meillo@0 13 img_ThanksJuFo: TImage;
meillo@0 14 btn_close: TBitBtn;
meillo@0 15 btn_Editor: TBitBtn;
meillo@0 16 img_Easteregg: TImage;
meillo@0 17 License: TMemo;
meillo@0 18 procedure FormCreate(Sender: TObject);
meillo@0 19 procedure btn_CloseClick(Sender: TObject);
meillo@0 20 procedure btn_EditorClick(Sender: TObject);
meillo@0 21 procedure img_EastereggClick(Sender: TObject);
meillo@0 22 private
meillo@0 23
meillo@0 24 public
meillo@0 25
meillo@0 26 end;
meillo@0 27
meillo@0 28 var
meillo@0 29 form_Start: Tform_Start;
meillo@0 30
meillo@0 31 const ini = 'cdar.ini';
meillo@0 32 welcome = 'welcome.jpg';
meillo@0 33 enter = 'enter.jpg';
meillo@0 34
meillo@0 35 procedure shellexec(const Zielpfad :string);
meillo@0 36
meillo@0 37 implementation//###############################################################################
meillo@0 38 uses unit_Welcome, unit_Editor, modul_allgemein, unit_Easteregg;
meillo@0 39 {$R *.dfm}//###################################################################################
meillo@0 40
meillo@0 41 //------------------------------------------------------------------------------ Form Create
meillo@0 42 procedure Tform_Start.FormCreate(Sender: TObject);
meillo@0 43 begin
meillo@0 44 // init
meillo@0 45 form_start.Color := rgb(192,192,192);
meillo@0 46
meillo@0 47 // command line parameters
meillo@0 48 if lowercase(paramstr(1)) = 'editor' then // start editor
meillo@0 49 begin
meillo@0 50 application.CreateForm(tform_editor, form_editor);
meillo@0 51 form_editor.Show;
meillo@0 52 end
meillo@0 53 else if lowercase(paramstr(1)) = 'welcome' then // show welcome screen
meillo@0 54 begin
meillo@0 55 application.CreateForm(tform_welcome, form_welcome);
meillo@0 56 form_welcome.Show;
meillo@0 57 end
meillo@0 58 else if lowercase(paramstr(1)) = 'marmaro' then // easteregg ... bit boring in open source ;-)
meillo@0 59 begin
meillo@0 60 application.CreateForm(tform_easteregg, form_easteregg);
meillo@0 61 form_easteregg.show;
meillo@0 62 form_Start.hide;
meillo@0 63 end
meillo@0 64 else if lowercase(paramstr(1)) = '' then // about window
meillo@0 65 begin
meillo@0 66 // do nothing special
meillo@0 67 end
meillo@0 68 else // direct call
meillo@0 69 begin
meillo@0 70 shellexec(paramstr(1));
meillo@0 71 application.Terminate;
meillo@0 72 end;
meillo@0 73 end;//--------------------------------------------------------------------------
meillo@0 74
meillo@0 75 //#############################################################################################
meillo@0 76
meillo@0 77 //------------------------------------------------------------------------------ kill
meillo@0 78 procedure Tform_Start.btn_CloseClick(Sender: TObject);
meillo@0 79 begin
meillo@0 80 application.Terminate;
meillo@0 81 end;//--------------------------------------------------------------------------
meillo@0 82 //------------------------------------------------------------------------------ editor
meillo@0 83 procedure Tform_Start.btn_EditorClick(Sender: TObject);
meillo@0 84 begin
meillo@0 85 application.CreateForm(tform_editor, form_editor);
meillo@0 86 form_Editor.show;
meillo@0 87 form_Start.hide;
meillo@0 88 end;//--------------------------------------------------------------------------
meillo@0 89
meillo@0 90 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
meillo@0 91
meillo@0 92 //------------------------------------------------------------------------------ easteregg
meillo@0 93 procedure Tform_Start.img_EastereggClick(Sender: TObject);
meillo@0 94 begin
meillo@0 95 application.CreateForm(tform_easteregg, form_easteregg);
meillo@0 96 form_Easteregg.show;
meillo@0 97 form_Start.hide;
meillo@0 98 end;//--------------------------------------------------------------------------
meillo@0 99
meillo@0 100 //#############################################################################################
meillo@0 101
meillo@0 102 //------------------------------------------------------------------------------ shellexec
meillo@0 103 procedure shellexec(const Zielpfad :string);
meillo@0 104 begin
meillo@0 105 if zielpfad <> '..\-' then // '..\-' means 'no action'
meillo@0 106 begin
meillo@0 107 try
meillo@0 108 ShellExecute(application.Handle, 'open', pchar(zielpfad), nil, nil, sw_shownormal);
meillo@0 109 except
meillo@0 110 showmessage('could not execute file or open dir');
meillo@0 111 end;
meillo@0 112 end;
meillo@0 113 application.Terminate;
meillo@0 114 end;//--------------------------------------------------------------------------
meillo@0 115
meillo@0 116 end.//#########################################################################################