[Delphi] otvorenie dialogu EDIT: kreslenie

[Marek]

S delphi len zacinam, potrebujem celkom jednoduchu vec,a le ani za pomoci nejakch online priruciek sa mi ju nepodarilo vyriesit.
Potrebujem len aby sa po stlaceni buttonu na main forme otvoril maly dialog v ktorom budu edit boxy ,tlacitkom na nom sa tie edity ulozia do nejakych premennych.
Spravil som to takto.Otvoril som form1 dal jej status fsMDIForm.Potom som vytvoril form2 a nastavil ju na fsStayontop.Potrebujem aby ten dialog bol ontop a aby sa na nom dalo kliknut len na OK alebo zavriet krizikom,aby sa nedal minimalizovat,a ked je zobrazeny tak aby sa nedalo klikat na nic na form1.
Nasiel som ze ta druha forma by sa mala otvarat takto, tak som to hodil do onclicku na button na form1.

Application.CreateForm(Tform2,form2);

Ale nerobi to to co chcem.Pretoze ta form2 sa otvori uz hned pri spusteni programu.A da sa minimalizovat a buttonom na fom1 otvorit dalsia form2.
Ako spravit aby sa otvaral az po kliknuti na button a nie hned po spusteni, a aby sa potom nedalo klikat na tru form1/tam asi nejak nastavit disable na true, ale kde?

[Rainbow]

V properties si nastav vhodny typ, aby tam nebolo minimize (a pod.).
CreateForm tam nedavaj - to sa robi tusim automaticky pre vsetky formy po spusteni. Daj dal Form2.ShowModal. A pozri si v helpe veci okolo ModalResult, pri takychto veciach sa to hodi.

[Jaguchaa]

Pokud chces formular vytvaret sam musis v menu Project->Options na zalozce forms presunout pozadovany formular (Form2) do Available forms. Pak vytvoris instanci formulare do promenne tridy TForm. Nasledne jej otevres tak jak pise Rainbow, tedy Promenna.ShowModal a jeste navic v podmince kde budes testovat navratovou hodnotu, treba if Promenna.ShowModal = mrOK then nastav promenne z editboxu. Nakonec formular uvolnis z pameti Promenna.free. U form2 nastav vlastnost BorderStyle na fsDialog (Muzes vyskouset i dalsi volby, nektere se ale projevuji pouze v runtime, tak pozor).

A samozrejme je nutne nastudovat to co pise Rainbow

[Marek]

Ok diki toto som vyriesil.

problem 2:
mam formu na nej image a v tom nacitanu bitmapu.Na to kreslim cez image.canvas.x.A potreboval by som ten bitmap vratit do povodneho stavu ako bol pri spusteni.Podarilo sa mi to takto
image.picture.loadfromfile-ale tam je nevyhoda ze musi byt ta bitmapa stale s tym execkom.
Potom ma napadlo to cele zrusit a znova vytvorit image.free image.create(), ale do tej zatvorky chce aowner:tcomponent -a nejak neviem co to je.
A spravit nejak ze by som nakreslil elispsu, a potom ju z tej bitmapy vamazal?To ma napada len tak ze by som ju nakreslil znova len bielou farbou, ale to mi je na nic, lebo ja mam na tej bitmape nakreslene ciernou suradnicove osi, takze keby to ta biela trafila bolo by to vidiet.

A vlastne cely problem je ze sa budu kreslit nejake geometricke objekty a tie potom rozne tranformovat.Takze ak je aj iny sposob ako to spravit inak ako cez ten image a bitmapu tak poradte.

[Rainbow]

Tu bitmapu si mozes niekam skopirovat (napriklad do druhej bitmapy) a potom ju skopirovat naspat alebo ju kreslit programom.
Ked chces kreslit objekty, tak pouzi objektove programovanie Nejaku abstraktnu triedu TGrafickyObjekt (ktora ma metodu Kresli a mozno aj nieco ine), z nej zdedit TElipsa, TStvorUholnik (a pod.). Taketo objekty si mozes ukladat napr. do globalneho dynamickeho pola (GrafickeObjekty: array of TGrafickyObjekt) a potom kreslit (for i:=1 to Length(GrafickeObjekty) do GrafickeObjekty[i].Kresli

[Marek]

No ale mne vadi ze ta povodna bitmapa je priamo v execku.Ale ked ju chcem znova nacitat cez load from file, tak ju musim mat spolu s tym execkom extrene.Ja by som potreboval nejak refresnut nanovo tu ktora tam uz je? ide to?

[Jaguchaa]

aowner dej pro zacatek "self" (bez uvozovek). Stejnym zpusobem jako kreslis elipsu, obdelnik nakresli i osy, pokud tomu neco jineho nebrani.

Existuje take komponenta ImageList. Do te nacpes bitmapu (muze jich tam byt i vice), ty jsou pak tusim soucasti vysledneho exe. Mohlo by to byt nejak takhle (snad to bude fungovat ):

ImageList.GetBitmap(PoradiVImageList, Image.Picture.Bitmap);
Image.Refresh;