stampare form

[maxt]

scusate non riesco a capire come si fa per stampare su stampante un form come si vede a video

qualcosa del tipo form1.print


grazie

[brunello]

contrariamente a delphi su lazarus TForm.Print non c'e' , pero' non e' un gran perdita visto che su delphi le checkbox ed altri componenti non vengono stampati bene io su delphi avevo fatto questa procedura dovresti vedere se su lazarus funziona, io adesso non ho tempo  per testarla, ciao Brunello

procedure PrntForm(fx: TForm);
var
  phh, phw: Integer;
  ph: HDC;
begin
  try
    printer.BeginDoc;
    ph := printer.canvas.Handle;
    phw := GetDeviceCaps(ph, PHYSICALWIDTH);
    phh := Trunc((fx.ClientHeight * phw) / fx.ClientWidth);
    StretchBlt(ph, 0, 0, phw, phh,
                      fx.Canvas.Handle, 0,0, fx.ClientWidth , fx.ClientHeight, SRCCopy);
  finally
    printer.EndDoc;
  end;
end;

[maxt]

stavo provando a salvare l'immagine del form in un file
con questo codice:


  var
  BitMap : TBitMap;
begin
  BitMap := TBitMap.Create;
  BitMap := Form1.GetFormImage;
  BitMap.SavetoFile('form.bmp');


per poi stamparlo

ma praticamente il file .bmp che crea e' un file completamente nero.. non capisco il perche'

[El Salvador]

Prova ad usare il codice che trovi in questo post per recuperare l'immagine bitmap del form

[maxt]

ok con quel codice riesce a salvare l'immagine

come mai escono immagini nere con il codice di sopra? (bug di lazarus?)

[xinyiman]

Probabilmente perchè non gli comunichi la dimensione della form. Almeno penso sia quello. Ma è solo una deduzione