我正在尝试使用Delphi 10柏林为智能设备构建一个应用程序。在这个应用程序中,我想要加载或拍照,然后我必须定位另一个组件与相同的X位置图像的宽度。我的问题是,当我将一个图像分配给TImage控件时,位图并没有占据TImage控件的所有区域,图像变小了。如何在TImage控件中获得位图的实际X位置和宽度?下面是我的代码:
begin
if Image1.Bitmap.Height > Image1.Bitmap.Width then
begin
Image1.Bitmap.Rotate(-90);
end;
Image1.Bitmap.Assign(I
我们在应用程序中使用SVG图像。 下面是我们的JPEG图像代码(这是我们的应用程序中的一个工作示例,它类似于this): Var
memoryStreamFile: TMemoryStream;
blobFieldFile:TBlobField;
JPEGImage: TJPEGImage;
//ImageJPEG:TImage is a TImage on the form
blobFieldFile:=ClientDataSet.fieldbyName('Image') as TblobField ;
memoryStreamFile := TMem
我正在尝试使用TImage组件的OnMouseDown事件在Delphi11Fire猴子中在TImage画布上画一个圆圈。我编写了以下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
// sets the size of the TBitmap
Image1.Bitmap.SetSize(Round(Image1.Width), Round(Image1.Height));
Image1.Bitmap.Clear(TAlphaColors.White);
end;
procedure TForm1.Image1Mo