| Autor | Správa |
SVD
 Užívateľ
 Založený: 20.06.2009 Príspevky: 24
 | Zaslal: Ne 16.08.09 15:35 |   |
Dobrý deň.
Potreboval by som pomôcť s uložením grafu ako obrázok. Neexistuje v delphi nejaká komponenta na ukladanie obrázkov alebo ich tlačenie do súboru? Našiel som niečo ako "SavePictureDialog1" možno s tým by to šlo ale neviem ako by som to zapísal.
Velmi pekne ďakujem. |
| |
  |
 |
SVD
 Užívateľ
 Založený: 20.06.2009 Príspevky: 24
 | Zaslal: Ne 16.08.09 17:18 |   |
Našiel som v delphi komponentu "PrinterSetupDialog1" naproramoval som to asi takto:
procedure TForm1.T1Click(Sender: TObject);
begin
if PrinterSetupDialog1.Execute then
Chart1.Print;
end;
Len pri vytlačení grafu do súboru *.tif* mi vytlačí len osy grafu, niečo takakéto:
Ale ak dám tlačiť pomocou PDFcreator tak mi to vytlačí pekne:
Neviete ako by som to vytlačil aj z priebehom a mriežkou? |
| |
  |
 |
Fico
 Skúsený užívateľ
 Založený: 11.01.2009 Príspevky: 1044
 | Zaslal: Ne 16.08.09 20:47 |   |
Nikdy som v Delphi nepracoval s grafmi, ale niečo som pogooglil - skús namiesto Chart1.Print dať
| kód: | | Chart1.PrintLandscape; |
|
| |
   |
 |
SVD
 Užívateľ
 Založený: 20.06.2009 Príspevky: 24
 | Zaslal: Ne 16.08.09 22:41 |   |
Skúsil som aj Chart1.PrintLandscape; ale nepomohlo. Stále to kreslí len osi. |
| |
  |
 |
djkowi
 Užívateľ
 Založený: 03.10.2007 Príspevky: 10 Bydlisko: Bratislava
 |
v Delphi nerobím, tak možno trepnem...
niečo takéto nefunguje?
| kód: | Chart1.SaveToBitmapFile(FileName)
Chart1.SaveToFile(FileName)
|
|
| |
  |
 |
SVD
 Užívateľ
 Založený: 20.06.2009 Príspevky: 24
 | Zaslal: Po 17.08.09 12:50 |   |
Skúsil som to a "SaveToBitmapFile" funguje krásne len tá kvalita je rovnaká ako keby som dal PrintScren.
Našiel som však aj "SaveToMetafile" kde ukladá obrázky Metafile - *.wmf*, sú trochu veľké (15MB) ale tá kvalita stojí zato.
| kód: | procedure TForm1.Uloi1Click(Sender: TObject);
begin
if SavePictureDialog1.Execute
then
//Chart1.SaveToBitmapFile(SavePictureDialog1.FileName+'.bmp');
Chart1.SaveToMetafile(SavePictureDialog1.FileName+'.wmf');
end; |
Ďakujem.
// Tie obrázky pomocou Chart1.PrintLandscape; sú však stále bez priebehu ako na začiatku, ale nevadí hlavná, že to ukladá ako obrázky.// |
| |
  |
 |
SVD
 Užívateľ
 Založený: 20.06.2009 Príspevky: 24
 | Zaslal: Po 17.08.09 13:08 |   |
Nakoniec som na to prišiel prečo to neukladá pri tlačení priebeh ale iba prázdny graf. Pri tlačení do *.tif* je možnosť, že Formát výstupu: MDI a TIF, kde TIF je jednofarebný obrázok. To som však netušil, že červený priebeh a šedá mreižka sa neprekonvertuje na čierne ako pri Worde. Proste keď sú v grafe farebné časti vôbec ich nevytlačí.
Nuž čo človek sa učí celý život. Ale na to aby to tlačilo nebudem predsa kaziť graf len čiernov farbou preibehu, ked to tlačí do MDI farebne, dokonca aj do PDF nechám to tak.
Ďakujem ešte raz všetkým, teda len dvom Ficovi a djkowi za pomoc. |
| |
  |
 |
|