Incompatible types: 'Integer' and 'Extended' (??????)

[bigg]

x2 und y2 sind nicht Breite und Höhe des Quadrats. :idea:
Schau dir mein Beispiel dazu an.

[Tobias]

das weiß ich...
ich schreib gerade ein komplettes "Paint"-Programm....

nur das mit dem spinEdit klappt halt nicht...
statt deinem Edit3 hab ich ne spinEdit-Komponente, und mit der funktionierts bei mir nicht...
soll heißen wenn ich da 10 eingebe, dann bekomme ich kein rechteck mit der seitenlänge 10, sondern mit der doppelten seitenlänge...
und das mit der gleichen funktion die du auch hast....

Delphi-Quellcode:

image1.Canvas.Rectangle(x, y, x + spinEdit.Value, y + spinEdit.Value);

[bigg]

Scheinbar hast mein Beispiel nicht studiert :wink:

[Tobias]

so, jetzt hab ichs (fast) genauso wie du, und es funktioniert immer noch nicht...

Delphi-Quellcode:

 Q:=StrToInt(spinEdit.Text);

 if BitBtnPunkt.Enabled=false then
 begin
   if spinEdit.Value=1 then begin
     image1.Canvas.Pixels[x,y]:=ColorDialog2.Color;
   end else
      image1.Canvas.Brush.Color:=ColorDialog2.Color;
      image1.Canvas.Rectangle(x, y, Q + x, Q + y);
 end;

die entstehendes quadrate sind immernoch doppelt so groß wie sie sein sollten...

das einzigste was ich nicht übernommen habe ist dieses

Delphi-Quellcode:

with Canvas do
  begin

und an dem wirds wohl nicht liegen, oder?

[bigg]

am with .. do liegt es nicht :-D

[Tobias]

ja aber an was dann? ^^ :gruebel: :roll:

[Tobias]

*push*

kann mir denn keiner wieterhelfen??? ^^
was ist denn nun mein fehler? bzw. der unterschied zwischen meinem code und dem von bigg??

[Nikolas]

Sicher, dass du da falsche Seitenlängen bekommst? Ich hab's grad getestet und da siehts so aus, wie man's erwarten könnte.

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
q: integer;
begin
q:=spinedit1.Value;
image1.Canvas.Rectangle(x,y,x+q,y+q);
end;