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;
delphi绘图
最后编辑于 :
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
推荐阅读更多精彩内容
- dp、sp、px之间的单位转换 2D绘图基础 系统通过提供Canvas对象来提供绘图方法。这个对象提供了各种绘制图...
- 一些结构体 View 的创建方法 Custom Views UIBezierPath 的一些其它方法 UIView...
- iOS中能够用来绘图的框架一般是 UIKit , Quartz 2D(CoreGraphic), OpenGL, ...