Copiar TLabel.Canvas sobre TBitmap.Canvas

[ecfisa]

Hola @CSE1970.


Por favor cuando incluyas código en tus mensaje utiliza TAG's para darle más legibilidad:



De este modo se guarda correctamente:

Código Delphi [-]
... 
implementation

var
  LabelX : TLabel;

procedure TFrmMain.btnCreateLabelClick(Sender: TObject);
begin
  LabelX := TLabel.Create(Self);
  with LabelX do
  begin
    Name        := 'LabelX';
    Alignment   := taCenter;
    Layout      := tlCenter;
    AutoSize    := True;
    Transparent := False;
    Font.Name   := 'Arial';
    Font.Size   := 30;
    Font.Color  := clBlack;
    Caption     := 'H'+#13#10+'O'+#13#10+'L'+#13#10+'A';
    Parent      := FrmMain;
  end;
end;

procedure TFrmMain.btnSaveLabelClick(Sender: TObject);
var
  R1 : TRect;
begin
  if Assigned(LabelX) then
    with TBitmap.Create do
    try
      Width  := LabelX.Width;
      Height := LabelX.Height;
      R1     := Rect(0, 0, LabelX.Width, LabelX.Height);
      Canvas.CopyRect(R1, LabelX.Canvas, R1);
      SaveToFile(ExtractFilePath(Application.ExeName) + 'LABEL.BMP');
    finally
      Free;
    end;
end;

Saludos