sry... ich habe in buttonclick width, top, etc. neu deklariert, d.h. in dieser einzelnen Prozedur entspeicht width nicht der Formularbreite sondern ist nur eine Integer-Variable wie jede andere...aber ich machs mal neu, etwas übersichtlicher:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:TPoint;
Laenge_Dreiecksseite:integer;
x_Linker_Unterer_Punkt_des_Dreiecks,y_Linker_Unterer_Punkt_des_Dreiecks:integer;
top,left:integer;
begin
Laenge_Dreiecksseite:=200;
y_Linker_Unterer_Punkt_des_Dreiecks:=300;
x_Linker_Unterer_Punkt_des_Dreiecks:=10;
//Eckpunkte des äußeren Dreiecks:
a.x:=x_Linker_Unterer_Punkt_des_Dreiecks;
a.y:=y_Linker_Unterer_Punkt_des_Dreiecks;
b.X:=Laenge_Dreiecksseite+a.x;
b.y:=a.y;
c.X:=Laenge_Dreiecksseite div 2+a.x;
c.y:=round(top-sin(60/360*2*Pi)*Laenge_Dreiecksseite);
Wenn du noch Fragen zu irgendeinem Befehl hast, sag bitte bescheid!
Ach und: Die Codelibrary ist eine Ansammlung von Algorithmen und sonstigen nützlichen Funktionen/Komponenten etc. die man in Delphi so gebrauchen kann.