Delphi - dedenie, zapuzdrenie, OOP...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TObrazec = class      { identifikátory typu* je zvykem
                          psát s "T" na zac(átku }
  private               { specifikátor viditelnosti,
                          viz stránka o zapouzdr(ení }
    Fbarva : integer;   { identifikátory privátních prome(nných
                          bývá zvykem psát s "F" na zac(átku }
  public                { specifikátor viditelnosti,
                          viz stránka o zapouzdr(ení }
    X, Y :   integer;   { sour(adnice str(edu }
    procedure Vykreslit;{ z procedur a funkcí se zda zapíší pouze hlavic(ky }
    procedure Smazat;
    procedure Presunout(NoveX, NoveY: integer);
    procedure Prebarvit(NovaBarva: integer);
  end; { konec deklarace tr(ídy TObrazec }

  TObdelnik = class(TObrazec) { Tr(ída TObdelnik je zde(de(na z tr(ídy TObrazec }
  public
    Vyska: integer;
    Sirka: integer;
    procedure Zvetsit(NovaVyska,NovaSirka:integer);
  end; { TObdelnik }

  TKruh = class(TObrazec)     { Tr(ída TKruh je zde(de(na z tr(ídy TObrazec }
  public
    Polomer: integer;
    procedure Zvetsit(NovaVyska,NovaSirka:integer);
  end; { TKruh }

var
  form1: Tform;
  O : TObdelnik;        { Instance objektu* jsou v sekci INTERFACE, }
  K : TKruh;            { aby tyto objekty byly viditelné zvne(jšku }

implementation
{$R *.dfm}

{ V c(ásti IMPLEMENTATION se dodefinují te(la všech metod všech tr(íd.
  Povšimne(te si, že pr(ed názvem metody se musí uvést jméno tr(ídy,
  ke které ta metoda patr(í (odde(lené tec(kou). To proto, že stejné
  jméno metody mu*že být ve více tr(ídách, jako zde v pr(ípade( Zvetsit. }
procedure TKruh.Zvetsit;
begin
// tady je program pro zve(tšení kruhu
end;

procedure TObrazec.Vykreslit;
begin
// ne(jaký program
end;

procedure TObrazec.Smazat;
begin
// ne(jaký program
end;

procedure TObrazec.Prebarvit(NovaBarva: integer);
begin
// ne(jaký program
end;

procedure TObrazec.Presunout(NoveX, NoveY: integer);
begin
//fdsfsd
end;

procedure TObdelnik.Zvetsit;
begin
//sdasdsa
end;

end.

o.Smazat

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
  constructor Create;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    x,y:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create;
begin
x:=5;
y:=100;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1:=TForm1.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=IntToStr(x);
label2.Caption:=IntToStr(y);
end;

end.

 begin
  vyhodnotenie:=TVyhodnotenie.create (Application);
  Vyhodnotenie.Show;
  Hra.Visible:=false;
 end;

procedure THlavnyFormular.Button1Click(Sender: TObject);
begin
Application.Mainform.Visible:=false
end;

procedure TFormular2.Button1Click(Sender: TObject);
begin
Formular2.Visible:=false
end;

procedure THlavnyFormular.Button1Click(Sender: TObject);
begin
Visible:=false
end;

procedure Thra.CheckMove;
begin
if DONE then
   begin
      ......................................................
      kod ktory dalej pokracuje do THra.MoveImage;
      ......................................................
   end;
end;





Procedure Thra.MoveImage;
var zhora,zlava:integer;
begin
DONE:=false;
...................................................................................................................
kod s podmienkami kde sa rozhodne ktore vlakno sa spusti - hore, dole,vlavo alebo vpravo
...................................................................................................................
While DONE=false do Application.ProcessMessages;

end;




procedure TPosunToRightThread.Execute;
begin
 FreeOnTerminate := True;

      ................................................
      cyklus ktory posuva obrazok o 1px
      .................................................

    DONE := True;
end;

procedure Thra.CheckMove;
begin
if DONE then
   begin
     
      // nejaky kod

      // proceduera THra.MoveImage

      // * nejaky dalsi kod, ktory sa uz nema vykonat, ak je DONE false

   end;
end;

procedure Thra.CheckMove;
begin
if done then
 begin
    if ((Obrazky[Xinvis,Yinvis].top * Obrazky [Xclicked,Yclicked].Top<>4400))
    and (Obrazky[XInvis,Yinvis].Left=obrazky[XClicked,Yclicked].Left) then MoveImage;

    if ((Obrazky[Xinvis,Yinvis].left * Obrazky [Xclicked,Yclicked].left<>816))
    and (Obrazky[XInvis,Yinvis].Top=obrazky[XClicked,Yclicked].Top) then MoveImage;
 end;
end;


Procedure Thra.MoveImage;
var zhora,zlava:integer;
begin
if FirstClick=true then
   begin
    StartTime:= Now();
    FirstClick:=false;
   End;

Zhora:=obrazky [xclicked,yclicked].Top;
Zlava:=Obrazky [xclicked,yclicked].Left;
Done:=false;
if not done then label1.Caption:='disabled';


 if obrazky [Xclicked,Yclicked].Top=obrazky [Xinvis,Yinvis].Top then begin
   if obrazky [Xclicked,Yclicked].Left>obrazky [Xinvis,Yinvis].Left then begin
     ToLeftThread := TposunToLeftThread.Create(false);
   end;
end;

 if obrazky [Xclicked,Yclicked].Top=obrazky [Xinvis,Yinvis].Top then begin
   if obrazky [Xclicked,Yclicked].Left<obrazky [Xinvis,Yinvis].Left then begin
   ToRightThread:= TposunToRightThread.Create(false);
   end;
end;

 if obrazky [Xclicked,Yclicked].Left=obrazky [Xinvis,Yinvis].Left then begin
   if obrazky [Xclicked,Yclicked].Top>obrazky [Xinvis,Yinvis].Top then begin
    ToDownThread:= TposunToDownThread.Create(false)
   end;
end;

 if obrazky [Xclicked,Yclicked].Left=obrazky [Xinvis,Yinvis].Left then begin
   if obrazky [Xclicked,Yclicked].Top<obrazky [Xinvis,Yinvis].Top then begin
    ToUpThread   := TposunToUpThread.Create(false);
   end;
end;

While Done=false do Application.ProcessMessages;
if done then label1.Caption:='enabled';

obrazky [Xinvis, Yinvis].Top:=Zhora;
Obrazky [Xinvis, Yinvis].left:=Zlava;
CheckWin;
end;

////////////////////////////////////////////////////////////////////////////////////////
//                             POSUNY - VLAKNA                                        //
////////////////////////////////////////////////////////////////////////////////////////


procedure TPosunToRightThread.Execute;
var StartAnimationPosition:integer;
begin
 FreeOnTerminate := True;
 StartAnimationPosition:=Obrazky [Xclicked,Yclicked].Left;
    for StartAnimationPosition:=StartAnimationPosition To obrazky[Xinvis,Yinvis].left do begin
       if (StartAnimationPosition mod 4)=0 then Obrazky [Xclicked,Yclicked].Left:=StartAnimationPosition;
       synchronize (hra.vykresli);
    end;
    Done := True;
end;

procedure Thra.vykresli;
begin
sleep (1);
end;