Hi Leute,
ich nehme wieder meinen alten thread auf weil ich das gleiche problem wieder habe...
Keine angst! wie haben eine erweiterungsaufgabe bekomm. Das Koordinatensystem soll sich, wenn der Anwander das -fenster vergrößert, auch vergrößern. Alles schön und gut! nur weiß ich jetzt nicht wie ich Zeichnen kann. Habe es soweit, dass es zeichnet aber nicht so wie es sollte^^
Die Funktionen
Delphi-Quellcode:
function GetCenter(AValue: TRect): TPoint;
begin
Result.X := (GetWidth(AValue) div 2);
Result.Y := (GetHeight(AValue) div 2);
end;
function GetWidth(AValue: TRect): Integer;
begin
Result:= (AValue.Right - AValue.Left);
end;
function GetHeight(AValue: TRect): Integer;
begin
Result:= (AValue.Bottom - AValue.Top);
end;
Und die bisherige Lösung
Delphi-Quellcode:
procedure TForm1.btn_ZeichneClick(Sender: TObject);
var
i,j, k:Integer;
x,y: Real;
begin
a:= StrToFloat(edtEingabe.Text);
b:= StrToFloat(edt_Bx.Text);
c:= StrToFloat(edt_C.Text);
i:=0;
for i := 0 to GetWidth(PaintBox1.Canvas.ClipRect) do
begin
x:=(i-GetHeight(PaintBox1.Canvas.ClipRect)) / 50;
y:=a*sqr(x)+b*x+c;
j:=round(GetHeight(PaintBox1.Canvas.ClipRect) - y * 50);
PaintBox1.Canvas.Pixels[i,j]:=clblue; //zeichnen
end;
end;
Danke schon mal