Delphi-Quellcode:
procedure TFormPalettierung.SpeedButtonZeichnenClick(Sender: TObject);
var Breite, Hoehe : Integer;
begin
Lv := StrToFloat (EditLaenge.Text);
Bv := StrToFloat (EditBreite.Text);
repaint;
begin
if ComboBoxPalettenwahl.ItemIndex = 0 then Breite := 1200;
if ComboBoxPalettenwahl.ItemIndex = 0 then Hoehe := 800;
if ComboBoxPalettenwahl.ItemIndex = 1 then Breite := 1200;
if ComboBoxPalettenwahl.Itemindex = 1 then Hoehe := 1000;
end;
begin
imageDraufsicht.Canvas.rectangle(0,0, Breite div 5 , Hoehe div 5 );
begin
imagedraufsicht.canvas.MoveTo(0,Lv div 5 );
imagedraufsicht.Canvas.LineTo(Lv div 5 ,Bv div 5);
end;
end;
end;
Dies funktioniert nicht, fehler wird in der Zeile "imagedraufsicht.canvas.MoveTo(0,Lv div 5 );" und der folgenden angezeigt, "Operator ist auf diesen Operandentyp nicht anwendbar". Die variable Lv und Bv sind vorher als Single definiert.
Wenn ich nur das Rectangle zeichnen lasse funktioniert es mit dem Typ Integer, wenn die variablen Breite bzw Höhe als SIngle def. sind geht dies auch nicht.
Danke
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]