cdar

annotate unit_Welcome.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_Welcome;
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, ExtCtrls, shellapi, jpeg;
meillo@0 8
meillo@0 9 type
meillo@0 10 Tform_Welcome = class(TForm)
meillo@0 11 img_Background: TImage;
meillo@0 12 img_Enter: TImage;
meillo@0 13 timer_delay: TTimer;
meillo@0 14 procedure FormClose(Sender: TObject; var Action: TCloseAction);
meillo@0 15 procedure img_EnterClick(Sender: TObject);
meillo@0 16 procedure FormCreate(Sender: TObject);
meillo@0 17 procedure timer_delayTimer(Sender: TObject);
meillo@0 18 private
meillo@0 19
meillo@0 20 public
meillo@0 21 Zielpfad : string;
meillo@0 22 end;
meillo@0 23
meillo@0 24 var
meillo@0 25 form_Welcome: Tform_Welcome;
meillo@0 26
meillo@0 27 implementation//###############################################################################
meillo@0 28 uses unit_Start, modul_allgemein;
meillo@0 29 {$R *.dfm}//###################################################################################
meillo@0 30
meillo@0 31 // Forwardings
meillo@0 32 procedure ClickEnter(const x_enter:string; const y_enter:string; const zielpfad:string); forward;
meillo@0 33 procedure Time(const delay :string; const zielpfad:string); forward;
meillo@0 34 procedure None(const zielpfad:string); forward;
meillo@0 35
meillo@0 36 //------------------------------------------------------------------------------ Form create
meillo@0 37 procedure Tform_Welcome.FormCreate(Sender: TObject);
meillo@0 38 var txtfile : textfile;
meillo@0 39 showscreentill : string;
meillo@0 40 delay : string;
meillo@0 41 x_enter : string;
meillo@0 42 y_enter : string;
meillo@0 43 //Zielpfad : string;
meillo@0 44 begin
meillo@0 45 // Form immer im Vordergrund
meillo@0 46 SetWindowPos(handle, HWND_TopMost, left, top, width, height, SWP_ShowWindow);
meillo@0 47
meillo@0 48 //Daten aus ini laden
meillo@0 49 assignfile (txtfile, fktcmd(0) + ini);
meillo@0 50 reset (txtfile);
meillo@0 51 readln (txtfile, showscreentill);
meillo@0 52 readln (txtfile, delay);
meillo@0 53 readln (txtfile, x_enter);
meillo@0 54 readln (txtfile, y_enter);
meillo@0 55 readln (txtfile, zielpfad);
meillo@0 56 closefile (txtfile);
meillo@0 57 //Fallunterscheidung
meillo@0 58 if showscreentill = 'click' then
meillo@0 59 begin
meillo@0 60 clickenter(x_enter, y_enter, zielpfad);
meillo@0 61 end
meillo@0 62 else if showscreentill = 'time' then
meillo@0 63 begin
meillo@0 64 time(delay,zielpfad);
meillo@0 65 end
meillo@0 66 else if showscreentill = 'none' then
meillo@0 67 begin
meillo@0 68 none(zielpfad);
meillo@0 69 end;
meillo@0 70 end;//--------------------------------------------------------------------------
meillo@0 71 //------------------------------------------------------------------------------ Form close
meillo@0 72 procedure Tform_Welcome.FormClose(Sender: TObject;
meillo@0 73 var Action: TCloseAction);
meillo@0 74 begin
meillo@0 75 // ShellExec trotzdem ausführen
meillo@0 76 shellexec(zielpfad);
meillo@0 77 end;//--------------------------------------------------------------------------
meillo@0 78
meillo@0 79 //#############################################################################################
meillo@0 80
meillo@0 81 //------------------------------------------------------------------------------ Klick Enter
meillo@0 82 procedure Tform_Welcome.img_EnterClick(Sender: TObject);
meillo@0 83 begin
meillo@0 84 shellexec(zielpfad);
meillo@0 85 end;//--------------------------------------------------------------------------
meillo@0 86
meillo@0 87 //------------------------------------------------------------------------------ Delay vorbei
meillo@0 88 procedure Tform_Welcome.timer_delayTimer(Sender: TObject);
meillo@0 89 begin
meillo@0 90 shellexec(Zielpfad);
meillo@0 91 end;//--------------------------------------------------------------------------
meillo@0 92
meillo@0 93 //#############################################################################################
meillo@0 94
meillo@0 95 //------------------------------------------------------------------------------ Klick ini
meillo@0 96 procedure ClickEnter(const x_enter:string; const y_enter:string; const zielpfad:string);
meillo@0 97 begin
meillo@0 98 form_welcome.img_Enter.Picture.LoadFromFile(fktcmd(0) + enter);
meillo@0 99 // Nur wenn das Enter-Bild <> 600x450 dann HG-Bild
meillo@0 100 if form_welcome.img_enter.Width <> form_welcome.img_Background.Width then
meillo@0 101 begin
meillo@0 102 if form_welcome.img_enter.Height <> form_welcome.img_Background.Height then
meillo@0 103 begin
meillo@0 104 form_welcome.img_Background.picture.loadfromfile(fktcmd(0) + welcome);
meillo@0 105 end
meillo@0 106 end;
meillo@0 107 form_welcome.img_Enter.Left := strtoint(x_enter);
meillo@0 108 form_welcome.img_Enter.top := strtoint(y_enter);
meillo@0 109 end;//--------------------------------------------------------------------------
meillo@0 110
meillo@0 111 //------------------------------------------------------------------------------ Time ini
meillo@0 112 procedure Time(const delay :string; const zielpfad:string);
meillo@0 113 begin
meillo@0 114 form_welcome.img_Background.picture.loadfromfile(fktcmd(0) + welcome);
meillo@0 115 form_welcome.img_Enter.Enabled := false;
meillo@0 116 form_welcome.timer_delay.Interval := strtoint(delay) * 1000;
meillo@0 117 form_welcome.timer_delay.Enabled := true;
meillo@0 118 end;//--------------------------------------------------------------------------
meillo@0 119
meillo@0 120 //------------------------------------------------------------------------------ Direktaufruf
meillo@0 121 procedure None(const zielpfad:string);
meillo@0 122 begin
meillo@0 123 shellexec(zielpfad);
meillo@0 124 end;//--------------------------------------------------------------------------
meillo@0 125
meillo@0 126 end.//#########################################################################################