Delphi FMX TCustomControl

[randydom]

I've a VCL Component that i want to port it into FMX 

type
TMyVclComponent = class (TCustomControl)

...

procedure TMyVclComponent.MouseUp (Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
FIsMouseDown: = false;
end;

procedure TMyVclComponent.Paint;
begin
if csDesigning in ComponentState then
with inherited Canvas do begin
Pen.Style: = psDash;
Brush.Style: = bsClear;
Rectangle (0, 0, Width, Height);
end;

TBackground(FBackground).PaintOn(FBitmapPreveiw);

Canvas.Draw (0, 0, FBitmapPreveiw);
end;

My porting progress :

type
TMyFMXComponent = class(TStyledControl)
...
procedure TMyFMXComponent.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
FIsMouseDown := false;
end;

procedure TMyFMXComponent.Paint;
begin
{
How can we port this code part ?
}
if csDesigning in ComponentState then
with inherited Canvas do begin
Pen.Style := psDash;
Brush.Style := bsClear;
Rectangle(0, 0, Width, Height);
end;

TBackground(FBackground).PaintOn(FBitmapPreveiw);

Canvas.Draw(0, 0, FBitmapPreveiw);
end;

How the code inside the Paint procedure can be ported to FMX ?

 

thank you .

[Brovin Yaroslav]

Hello,

Something like this:

procedure TFMXControl.Paint;
var
  SourceRect: TRectF;
begin
  inherited;
  if csDesigning in ComponentState then
    with Canvas do
    begin
      Stroke.Dash := TStrokeDash.Dash;
      Fill.Color := TAlphaColorRec.Null;
      FillRect(LocalRect, 0, 0, AllCorners, 1);
    end;

  SourceRect := TRectF.Create(0, 0, FBitmapPreveiw.Width, FBitmapPreveiw.Height)
  FBackground.PaintTo(FBitmapPreview, TRect.Create(0, 0, FBitmapPreveiw.Width, FBitmapPreveiw.Height));

  Canvas.DrawBitmap(FBitmapPreveiw, SourceRect, SourceRect, 1);
end;