delphi繪圖

procedure TForm1.Button3Click(Sender: TObject);
var
  flag: integer;
  FixRect: TRect;
  no:string;
begin
  PaintBox1.Canvas.Brush.Color := clRed;
  PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
  PaintBox1.Canvas.Brush.Color := clBlue;

  FixRect := PaintBox1.ClientRect;
  FixRect.Left := FixRect.Left-5;
  FixRect.Top := FixRect.Top-5;
  FixRect.Right := FixRect.Right-10;
  FixRect.Bottom := FixRect.Bottom-10;
  PaintBox1.Canvas.FillRect(FixRect);
  PaintBox1.Canvas.Brush.Color := clYellow;
  no := 'HELLOWORLDHELLOWOR\nFJEOJEEJGOEGJOEGJOE';
//  Flag := DT_SINGLELINE or DT_RIGHT or DT_CENTER;
  flag := DT_VCENTER;
  DrawText(PaintBox1.Canvas.Handle, PChar(No), Length(No), FixRect, Flag);
end;
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容