paintbox

    0熱度

    2回答

    我有一個小問題。我試圖在TPanel這樣創建TPaintBox: procedure TForm1.mkPaint(S: string); var PB: TPaintBox; begin PB := TPaintBox.Create(Self); with PB do begin Parent := Panel1; Visible := Tr

    0熱度

    2回答

    這是用Delphi柏林10.1更新2 下工作(我得到的連線): brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Lightgray); brush.Thickness := 2; with Canvas do begin BeginUpdate; DrawLine(PointF(10, 10), Po

    0熱度

    1回答

    我有問題,調整大小TPaintBox並在其上繪製: 在我的表格(命名FMain)我放棄了TPaintBox(名爲DisplayImage),其中我試圖調整爲表被調整大小。 要做到這一點,我寫了FMain的onResize受到()方法(我證實,它被稱爲正確),其中我嘗試調整DisplayImage: procedure TFMain.FormResize(Sender: TObject); beg