IT NEWS PC REVUE PC FORUM FreeBSDInternet time: @897
Obsah fóra
Pravidlá  •  Kontakt  •  Prihlásenie  •  Registrácia

Meranie a regulácia

Analýza plynov, kvapalín, častíc, a iné Procesné a priemyselné senzory www.ecmsystems.sk

Klávesy a piána CASIO, YAMAHA

Predaj klávesov a digitálnych pián. Výhodné ceny, doprava zdarma. www.casallia.sk

Hľadáte 3 - izbový byt?

Najširšia ponuka nehnuteľností z celej SR a EÚ na najväčšom realitnom portáli! www.topreality.sk

Originál alebo reprodukcia

Čomu dávate prednosť vy? Riešenie je nadosah. Sculpio www.sculpio.com

Koľko platí firma za PHM?

Sledujte náklady za PHM online. Zbavte sa administratívy a ušetrite movys.sk

Ako uložiť graf v delphi.

Zaslať odpoveď
AutorSpráva
SVD
Užívateľ
Užívateľ

Založený: 20.06.2009
Príspevky: 24

PríspevokZaslal: Ne 16.08.09 15:35Odpovedať s citátomNávrat hore

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.
Zobraziť informácie o autoroviOdoslať súkromnú správu
SVD
Užívateľ
Užívateľ

Založený: 20.06.2009
Príspevky: 24

PríspevokZaslal: Ne 16.08.09 17:18Odpovedať s citátomNávrat hore

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?
Zobraziť informácie o autoroviOdoslať súkromnú správu
Fico
Skúsený užívateľ
Skúsený užívateľ

Založený: 11.01.2009
Príspevky: 1044

PríspevokZaslal: Ne 16.08.09 20:47Odpovedať s citátomNávrat hore

Nikdy som v Delphi nepracoval s grafmi, ale niečo som pogooglil - skús namiesto Chart1.Print dať
kód:
Chart1.PrintLandscape;
Zobraziť informácie o autoroviOdoslať súkromnú správuICQ
SVD
Užívateľ
Užívateľ

Založený: 20.06.2009
Príspevky: 24

PríspevokZaslal: Ne 16.08.09 22:41Odpovedať s citátomNávrat hore

Skúsil som aj Chart1.PrintLandscape; ale nepomohlo. Stále to kreslí len osi.
Zobraziť informácie o autoroviOdoslať súkromnú správu
djkowi
Užívateľ
Užívateľ

Založený: 03.10.2007
Príspevky: 10
Bydlisko: Bratislava

PríspevokZaslal: Po 17.08.09 9:08Odpovedať s citátomNávrat hore

v Delphi nerobím, tak možno trepnem...
niečo takéto nefunguje?
kód:
 Chart1.SaveToBitmapFile(FileName)
Chart1.SaveToFile(FileName)
Zobraziť informácie o autoroviOdoslať súkromnú správu
SVD
Užívateľ
Užívateľ

Založený: 20.06.2009
Príspevky: 24

PríspevokZaslal: Po 17.08.09 12:50Odpovedať s citátomNávrat hore

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.//
Zobraziť informácie o autoroviOdoslať súkromnú správu
SVD
Užívateľ
Užívateľ

Založený: 20.06.2009
Príspevky: 24

PríspevokZaslal: Po 17.08.09 13:08Odpovedať s citátomNávrat hore

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.
Zobraziť informácie o autoroviOdoslať súkromnú správu
Zobraziť príspevky z predchádzajúcich:    
Zaslať odpoveď
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.

Powered by phpBB 2.x.x © 2005 - 2012 PCforum, webhosting by WebSupport, edited by JanoF

SEO - optimalizácia pre vyhľadávače

Freebsd