Rad studio delphi (FMX)

[ProQsy]

Только начал осваивать и столкнулся с проблемой.
Пытался написать так:
...
uses
FMX.Object,FMX.StdCtrls... и многое другое;
...
var karta,ug: tbitmap;
...
ug:=TBitmap.Create;
ug.LoadFromFile('5.bmp');
ug.Assign( ug);
ug.Transparent:=True;<-так нельзя(
...
karta.Canvas.Draw(pnl2.left,pnl2.to p,ug);<- так тоже((
...
PaintBox1.Canvas.Draw(karta.Height, 0,karta);<- так тожe((

Единственное что понял это то что Left и Top заменяется на Position.x или y

[come-on]

ug.Assign( ug);

это так задумано?

[ProQsy]

Сообщение от come-on

это так задумано?

Это не важно, как использовать draw? и transparent

[DIONISKA]

Сообщение от ProQsy

Это не важно, как использовать draw? и transparent

draw использовать так:

  Self.Canvas.BeginScene();
  Canvas.DrawBitmap(bitmap,rect1,rect2,1,true);
//рисуем что надо
  Self.Canvas.EndScene;

где rect1, rect2:trectf - прямоугольник изображения и назначения, 1- прозрачность.

Насчёт прозрачности: как в delphi сделать не выйдет, но можно перебрать изображение и назначить прозрачный цвет. Для прямого доступа к пикселям в fmx используется структура TBitmapData. Например это можно реализовать так:

procedure makemegood;

type
   TAlphar=array [Word] of TAlphaColor;
   PAlphar=^TAlphar;
var
    rect1,rect2 :TRectF;
    bdata       :TBitmapData;
    y,x         :Integer;
    tr          :TAlphaColor;
    arr         :PAlphar;
    bmp         :TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('test.bmp');
  rect1:=TRectF.Create(0,0,bmp.Width,bmp.Height);
  rect2:=TRectF.Create(0,0,Self.Width,self.Height);
  bdata:=TBitmapData.Create(bmp.Width,bmp.Height,bmp.PixelFormat);
  try  bmp.Map(TMapAccess.ReadWrite,bdata);
  tr:=bdata.GetPixel(0,0); // за "прозрачный" цвет берём левый верхний пиксель
    for y:= 0 to bdata.Height-1 do
     begin
     arr:=bdata.GetScanline(y); // действуем по аналогии со scanline обычного tbitmap
      for x := 0 to bdata.Width-1 do
        begin
         if arr[x]=tr then arr[x]:=$00ffffff;  // сравниваем цвет или диапазон на усмотрение
        end;
     end;
  finally
     bmp.Unmap(bdata);
  end;
  Self.Canvas.BeginScene();
  Self.Canvas.DrawBitmap(bmp,rect1,rect2,1,false);
  Self.Canvas.EndScene;
  bmp.SaveToFile('out.bmp'); // на выходе 32-bit изображение с альфаканалом
  bmp.free;
end;