hor.de   |   Gedichtsammlung   |   Wörterlisten   |   Notizen
 

hor/Code

program hor;

interface

uses Computer, WorldWideWeb, HTML, Perl, Php, Textz, You;

type
  TOrientation     = record
                  Time,You: TOrientationcomponents;
                 end;

  TIritation   = record
               Color: TColor;
               Size: integer;
               IritationOn: boolean;
              end;

  TWebsite = record
                 Orientation: array[1..20] of TOrientation;
                 surftime: array[1..30] of TSurftime;
                 Iritation: array[1..15] of TIritation;
               end;

  TWeb = record
                   Website: TWebsite;
                   Interest,Connection,Money: THeadroom;
                 end

implementation

var Web: TWeb;

procedure Web.Enter(Sender: TObject);
var Datum: TDate;
begin
  //establish connection
  Datum:=TDate.Create;

  //enter search code
  Orientation.Iritation[all].IritationOn:=false;
  Orientation.Iritation[all].Color:=fale;
  Orientation.Iritation[all].Site:=4+;
  Computer.Screen:=clDark;
  WorldWideWeb.Art:=0;

  //waste time action
  WorldWideWeb.buildScreen(zoAllSubObjects);
  WorldWideWeb.buildScreen;
  SearchCode.buildScreen;
  Textz.buildScreen;

  //display results
  hor.Show;
end;

procedure Computer.WorldWideWeb.DragOver(Sender: TObject; Index: integer);
begin
  if Sender is TYou then
    (Sender as TYou).IritationOn:=true;

  WorldWideWeb.buildScreen(Iritation[Index]);
end

procedure Computer.WorldWideWeb.Weire(Sender: TObject; Index: integer; Force: integer);
begin
  WorldWideWeb.Iritation[Index].Inject;
  if Force>=1 then
    WorldWideWeb.Iritation[Index].IritationOn:=false;

  WorldWideWeb.buildScreen(Iritation[Index]);
end;

procedure hor.leave(Sender: TObject);
begin
  Application.MessageBox('OK Get rid of this',
  'Bye',mb_iconRealLife);
  hor.Close;
end;

procedure Computer.Disable(Sender: TObject;);
begin
  hor.leave(Sender);
end;

end