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