Hello,
Can You help me?
I'd like remove colors from PrintPreview using BeginEdit. Is it possible?
Bronius
procedure TForm1.Button1Click(Sender: TObject);
var
BM: TBitmap;
begin
Button1.Enabled := False;
if PrintPreview1.BeginEdit(1) then
try
BM := TBitmap.Create;
try
BM.Width := PrintPreview1.Pages[1].Width;
BM.Height := PrintPreview1.Pages[1].Height;
BM.PixelFormat := pf1bit;
BM.Canvas.Draw(0, 0, PrintPreview1.Pages[1]);
PrintPreview1.Canvas.StretchDraw(PrintPreview1.PageBounds, BM);
finally
BM.Free;
end;
finally
PrintPreview1.EndEdit;
end;
end;
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 3 guests