[Delphi] Wielokaty foremne

[Toster]

Jak w temacie, do pelni szczescia potrzeba: Button1, Paintbox1, ScrollBox1

 

unit Unit1;

interface

uses
 Windows, Messages, SysUtils,X[XX[X]7FD7G&2WD7G&3GPDf&Ó6Ć72Df&Ń      QAŃ     (        ŃŃQ       ŃŃ(Q( ScrollBar1: TScrollBar;
   procedure Button1Click(Sender: X
NYHP[J[X
N&6VGW&Rf&7&VFR6VćFW#D&ŚV7B&fFP&ŃąŃ(ą(AąąŃ(;

  TFigure = class
     public
        procedure   SetP[ĘKLKL[YNYH]67B6cD6f2&fFPgg#F(Ń(ą
        fStartAngle:real;
        fDist:      real;
    [[YYH]J[&V67B&VVćCf f&ÓD(Q()ąŃŃ()H()re TForm1.Button1Click(Sender: TObject);
var
  t,x,y,n: intYY[Z[K[HZ[6f2fĆ&V7BD&6ĆVE&V7BD&6f2    
ąą]ĄŃ(ĄAŃ        
)()TFigure }

procedure TFigure.Draw(const canv: TCanvas);
var
[YKNX[Y[[[gÓBgÓBgłBgłBGŁg\"gGŁg(Ń(Ń(Ńź
do begin
     tx := tx + dx;
     ty := ty + dy;
     can[J[

KM[
JKM[

J[
JJ
&FFRGGdćvĆRVćCŚVćC&6VGW&QIŃŃĄ%`d=`=ąĄ);
var
  tx, ty, nx, ny: real;
begin
  tx := InX - OX;
  HH[HHNH
ĘYY
[JJHHJ[VuF&BŁG6FVuF&BGŚ62QIĄąĄ(%`Ź=`(%dŹ=d)
procedure TFigure.SetParams(const x1, y1, x2, y2, n: integeNY[HHNHLHHLNL#dćvĆRŁ3cd6VBŁdF7BŁ7'BMĄŹMĄ(MŃŃąIQĄQ-(fx1-fx2), fy1-fy2))+90;
end;

procedure TForm1.ScrollBar1C[J[X
NKKX[FVvW#Ś& amp;Vv7Ł7ŁŁC((MĄMĄŹĄ
(Itate(px, py, sx, sy, ScrollBar1.Position);
  f.SetParams(Ro[

K[
JK[

K[
JK
JNZ[Kf2''W66Ć\"ŁD&6f2fĆ&V7BD&
ąŃI(AŃ    

ąą]ĄŃ(f.Draw(PaintBox1.Canvas);
end;

procedure TForm1.FormCreate([X
NY[HYKX]N][2CSBŚVćCŚVćB

 

a juz niedlugo z pomoca tej procedury przejme wladze nad swiatem buaahahahaaaa

[5corpio]

Spodziewałem się czegoś innego chociaż sam nie wiem czego ;p