我最近开始将应用程序转换为FireMonkey,并从简单的控件开始。由于某种原因,与诸如TPanel或TButton之类的表单上放置的组件相比,它们的位置不正确。从我的测试来看,位置似乎翻了一番。
我的测试项目很简单:(在Delphi XE5中)
代码:
type
TTest = class(TPaintBox)
private
FBitmap: TBitmap;
public
Constructor Create(AOwner:TComponent); override;
Destructor Destroy; override;
procedure Paint; override;
end;
{ TTest }
constructor TTest.Create(AOwner: TComponent);
begin
inherited;
FBitmap := TBitmap.Create;
FBitmap.LoadFromFile('c:\test.png');
Width := FBitmap.Width;
Height := FBitmap.Height;
end;
destructor TTest.Destroy;
begin
FreeAndNil(FBitmap);
inherited;
end;
procedure TTest.Paint;
begin
Canvas.DrawBitmap(FBitmap,
TRectf.Create(0, 0, FBitmap.Width, FBitmap.Height),
AbsoluteRect,
1);
end;
代码:
procedure TForm2.FormCreate(Sender: TObject);
var t: TTest;
begin
t := TTest.Create(self);
t.Parent := self;
t.Position.X := 50;
t.Position.Y := 50;
end;
为Win32构建它。
在我的末端,图像出现在面板的左上角,它位于100,100,但控件显然已设置为将自身定位为50,50
调试显示正确的位置和矩形值。
我不知道发生了什么事。也许有人有一些建议/解释。
谢谢。
AbsoluteRect相对于控件的Form的矩形。如果要绘制某些东西,则必须使用局部坐标,在这种情况下为LocalRect。
Canvas.DrawBitmap(FBitmap, TRectf.Create(0, 0, FBitmap.Width, FBitmap.Height), LocalRect, 1);
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句