{********************************************************************}
{   Turbo Pascal V.7.0 by Borland International Copyright (c) 1992   }
{                                                                    }
{       * * * Speiser`s Techno-Tool-Unit for everybody * * *         }
{                                                                    }
{            by Dipl.-Ing. Thomas Speiser Copyright 1998             }
{********************************************************************}

{Testprogramm fr Grafische Programmierung mit Maus}

Program Test_Techno_Tool_Unit;

Uses Graph, Techno, Crt;
var Done: boolean;
    a,b: Integer;

PROCEDURE EVA;
begin
setcolor(black);
settextstyle(2,horizdir,5);
WriteText(70,120,'Eingabe:'); {WriteText}
WriteText(70,160,'Code:'); {Text}

BKGraph:=True;
LineGraph(145,120,480,''); {Arbeiten mit BKGraph: boolean;}
LineGraph(145,160,480,'');
BKGraph:=False;

LineGraph(145,120,480,''); {Eingabe & Ausgabe Fenster}
LineGraph(145,160,480,Out); {Ausgabe der Eingabe "Out" von der Unit}
end;

PROCEDURE BOX_Check;
begin
Done:=False;
Rise:=False;
repeat
if Rise = true then begin setcolor(lightgray); outtextxy(70,150,'Schalter aus'); setcolor(red);
                          outtextxy(70,150,'Schalter ein'); end;
if Rise = false then begin setcolor(lightgray); outtextxy(70,150,'Schalter ein'); setcolor(red);
                          outtextxy(70,150,'Schalter aus'); end;
Box(70,120); {funktioniert mit Falsch und Wahr}
if keypressed then Exit;
MouseGraph; {Fragt auf Best„ttigung}
until done =true;
end;

PROCEDURE View;
begin
WinGraph(90,61,550,360,'View Pro');
Button(441,101,528,'L”schen',0);
Button(440,161,529,'Ja',0);
Button(440,221,530,'Nein',0);
Button(440,281,530,'Abbruch',0);
RecGraph(110,100,420,340);
Setcolor(12);Setfillstyle(1,4);Bar3D(188,169,256,208,36,TopOn);
Setfillstyle(1,4);Floodfill(279,182,12);Setfillstyle(1,4);Floodfill(250,151,12);
WaitGraph;
end;

begin
a:=9;b:=2;
initgraph(a,b,'c:\thomas\program\tp\bgi');
initSYSError;
MouseReset; {Maus geladen}

BKcolor(2,red); {Background}

WinGraph(50,50,500,300,'Herzlich Willkommen an diesem Computer'); {Win-Fenster}

RecGraph(60,80,490,220); {Rechteck als Abdruck}
Button(100,380,500,'present by D.C.P. (Deutsche Computer Programme)',first); {Kein RealButton}
Button(180,435,620,'by Dipl.-Ing. Thomas Speiser Copyright 1997',first); {Kein RealButton}
MouseWindow(5,0,629,464); {Schlieát Maus in ein Rechteck ein}

Clock; {Stellt den Mauszeiger auf eine Uhr um}
Delay(1000);

Cross; {Stellt den Mauszeiger auf ein Kreuz um}
Delay(1000);

Mouse; {Stellt den Mauszeiger auf eine Maus um}
Delay(1000);

Handy; {Stellt den Mauszeiger auf eine Hand um}

Button(80,250,130,'OĝK',first); {Button}
Button(240,250,290,'ĝTest',first); {Button}
Button(360,250,440,'Abbrĝuch',first); {Button}

Done:=False;
repeat

Button(80,250,130,'OĝK',0); {Button}
if Left = true then Eva; {Left kommt von zurck aus Unit}
if Right = true then View; {Right kommt von zurck aus Unit}
if Ch = alt_k then begin Keys; Eva; end; {Tastaturcode wird aufgerufen}

Button(240,250,290,'ĝTest',0); {Button}
if Left = true then BOX_Check; {Left kommt von zurck aus Unit}
if Ch = alt_t then begin Keys; Box_check end; {Tastaturcode wird aufgerufen}

Button(360,250,440,'Abbrĝuch',0); {Button}
if Left = true then Break; {Left kommt von zurck aus Unit}
if Ch = alt_u then begin Keys; Break; end; {Tastaturcode wird aufgerufen}

MouseGraph; {Fragt auf Best„ttigung}
until done =true;
DoneSYSError;
end.