用帆布

Question

繪製矩形有了這個代碼，我想畫一個矩形：

procedure TForm1.Button1Click(Sender: TObject); 
var rectangle:Trect; 
begin 
    fx:=400; 
    fy:=400; 
    sc1:=base/fx; 
    sc2:=altezza/fy; 
    sc:=max(sc1, sc2); 
    lx:=fx*sc; 
    ly:=fy*sc; 
    xc:=base/2; 
    yc:=altezza/2; 
    x1:=xc-(lx/2); x2:=xc+(lx/2); y1:=yc-(ly/2); y2:=yc+(ly/2); 
    panel1.Repaint; 
    panel1.Canvas.Brush.color:= clblack; 
    panel1.Canvas.line((panel1.width div 2),0,(panel1.Width div 2), panel1.Height); 
    panel1.Canvas.line(0,(panel1.height div 2), panel1.Width,(panel1.Height div 2)); 
    panel1.canvas.brush.style:=bsclear; 
    Rectangle:=rect(x1, y1, x2, y2); 
end; 

但是有一個問題，因爲我只使用整數值。

是否可以使用實數值繪製一個帶有TCanvas的矩形？

Answer 1

簡單的答案是否定的。由TCanvas表示的圖形設備使用具有整體座標的座標系。如果您的座標是真實值，那麼您需要在座標系和積分設備座標之間使用某種形式的映射。

但是，在這種情況下，它看起來並不那麼複雜。您本身不需要實際值的座標。你只有真正的價值，因爲你使用真正的分工。也許你所需要做的就是使用整數除法，而不是真正的除法。或者你可能更喜歡Round。

更大的問題是您的代碼位於錯誤的地方。你不能在按鈕處理程序中繪製。 Windows不會記得你畫的是什麼。下次窗口失效時，它會要求面板自行刷新，並且您的矩形將消失。繪畫代碼需要位於重寫Paint方法或等同內部。也許你需要一個油漆盒控制。