|
 | | |
| Autor | Správa |
Siriuse
 Užívateľ
 Založený: 23.05.2009 Príspevky: 81 Bydlisko: Michalovce
 | Zaslal: Pi 26.03.10 12:46 |   |
Zdravicko, chcel by som vediet ci sa da ulozit obsah formularu tak ako je, do obrazku, do nejakeho pekneho formatu ktory si precita kazdy (ako html stranku) potom do pdf ci sa da ulozit. mam tam dynamicky vytvarane komponenty, vacsinou Tlabel, Tchart, Tgroup, a este nejaku tabulku |
| |
   |
 |
Fico
 Skúsený užívateľ
 Založený: 11.01.2009 Príspevky: 1052
 | Zaslal: Pi 26.03.10 20:31 |   |
| kód: | procedure TForm1.PrintForm;
var
c: TCanvas;
b: TBitmap;
begin
c:= TCanvas.create;
c.handle:=GetWindowDC(Handle);
b:= TBitmap.Create;
b.Width:= Width;
b.Height:= Height;
b.Canvas.CopyRect( Rect(0, 0, Width, Height), c, Rect(0, 0, Width, Height) );
b.SaveToFile('obrazok.bmp');
b.Free;
c.Free;
ShowMessage('Uložené');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PrintForm;
end; |
|
| |
   |
 |
coldak
 Skúsený užívateľ
 Založený: 29.10.2008 Príspevky: 936
 | Zaslal: Št 15.04.10 12:28 |   |
ulozenie formulara ako obrazok ti ukazal uz Fico, popripade si to este mozes konvertovat cez componentu tjpegimage na jpeg obrazok.
generovanie HTML je zlozitejsie, tam si uz musis napisat funkciu ktora ti nacita prvky daneho formularoveho okna a podla nich vygeneruje HTML, samozrejme typ prvkov by mal byt identifikovatelny napr podla nazvu alebo podla triedy z ktorej boli odvodene. samozrejme si treba uvedomit ze HTML nepodporuje tolko fontov kolko ich mozes mat ty na lokalnom PC.
generovanie PDF bude asi najjednoduchsie ak si nainstalujes nejaky free printer driver ktory tlaci do PDF a obsah obrazovky posles na taku tlaciaren, ale urcite existuju aj nejake activeX objekty ktore by si mohol pouzit. |
| |
  |
 |
|
Nemôžete pridávať nové témy do tohto fóra. Nemôžete odpovedať na témy v tomto fóre. Nemôžete upravovať svoje príspevky v tomto fóre. Nemôžete mazať svoje príspevky v tomto fóre. Nemôžete hlasovať v tomto fóre.
|
| |