AleÅ¡ Trtnik: /* OnChangeEvent */

2011-02-11T15:58:55Z

‎OnChangeEvent

AleÅ¡ Trtnik ob 18:58, 29. november 2010

2010-11-29T18:58:43Z

AleÅ¡ Trtnik: /* Uporaba maske */

2010-11-26T10:53:18Z

‎Uporaba maske

AleÅ¡ Trtnik: Nova stran z vsebino: {{Work}} Razred '''TCustomForm''' je namenjen prikazovanju poljubne maske. To naj se nebi več uporabljalo, ampak se uporablja TDialog, ki ima tudi grafični urejevalnik di...

2010-11-26T09:14:57Z

Nova stran z vsebino: {{Work}} Razred '''TCustomForm''' je namenjen prikazovanju poljubne maske. To naj se nebi več uporabljalo, ampak se uporablja TDialog, ki ima tudi grafični urejevalnik di...

Nova stran

{{Work}}
Razred '''TCustomForm''' je namenjen prikazovanju poljubne maske. To naj se nebi več uporabljalo, ampak se uporablja [[TDialog]], ki ima tudi grafični urejevalnik dialoga.

==Uporaba maske==

===Execute===
Lastnost '''Execute''' odpre uporabniško definirano vnosno masko. Rezultat je True, če je uporabnik pritisnil gumk OK, sicer pa je rezultat False.
<declaration>
RO Property|TCustomForm.Execute
Result|Boolean|.
</declaration>
<source></source>

===Destroy===
Metoda '''Destroy''' uniči predhodno kreiran TCustomForm objekt.
<declaration>
Method|TCustomForm.Destroy
</declaration>
<source></source>

==Izgled maske==

===Caption===
Lastnost '''Caption''' določa naslov vnosne maske.
<declaration>
Property|TCustomForm.Caption
Result|String|.
</declaration>
<source></source>

===CellHeight===
Lastnost '''CellHeight''' določa velikost celice vnosne maske.
<declaration>
Property|TCustomForm.CellHeight
Result|Long|.
</declaration>
<source></source>

===CellSplit===
Lastnost '''CellSplit''' določa porazdelitev med napisom kontrole in samo kontrolo.
<declaration>
Property|TCustomForm.CellSplit
Result|Long|.
</declaration>
<source></source>

===CellWidth===
Lastnost '''CellWidth''' določa širino celice ali napisa celice na vnosni maski.
<declaration>
Property|TCustomForm.CellWidth
Result|Long|.
</declaration>
<source></source>

==Dodajanje kontrol==

===AddCheckBox===
Metoda '''AddCheckBox''' doda potrditveno polje na vnosno masko.
<declaration>
Method|TCustomForm.AddCheckBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
</declaration>
<source></source>

===AddCheckListBox===
Metoda '''AddCheckListBox''' doda kontrolo listo potrditvenih polj na vnosno masko.
<declaration>
Method|TCustomForm.AddCheckListBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
Items|String|Seznam imen psameznih potrditvenih polij, ki sestavljajo listo. Posamezna imena morajo biti med sabo ločene z vrstico ([[Line]]).
</declaration>
<source></source>

===AddComboBox===
Metoda '''AddComboBox''' doda kombinirano polje na vnosno masko.
<declaration>
Method|TCustomForm.AddComboBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
Items|String|Seznam stvari v listi. Posamezne stvari morajo biti med sabo ločene z vrstico ([[Line]]).
</declaration>
<source></source>

===AddDateBox===
Metoda '''AddDateBox''' .
<declaration>
Method|TCustomForm.AddDateBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
</declaration>
<source></source>

===AddDirectoryBox===
Metoda '''AddDirectoryBox''' .
<declaration>
Method|TCustomForm.AddDirectoryBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
</declaration>
<source></source>

===AddEditBox===
Metoda '''AddEditBox''' doda editirno polje na vnosno masko.
<declaration>
Method|TCustomForm.AddEditBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
</declaration>
<source></source>

===AddLabel===
Metoda '''AddLabel''' doda napisno polje na vnosno masko.
<declaration>
Method|TCustomForm.AddLabel
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
</declaration>
<source></source>

===AddListBox===
Metoda '''AddListBox''' doda seznamsko polje na vnosno masko.
<declaration>
Method|TCustomForm.AddListBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
Items|String|Seznam stvari, ki se dodajo v listo. Posamezne stvari morajo biti med sabo ločene z vrstico ([[Line]]).
</declaration>
<source></source>

===AddRadioBox===
Metoda '''AddRadioBox''' .
<declaration>
Method|TCustomForm.AddRadioBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
Items|String|.
</declaration>
<source></source>

===AddTreeBox===
Metoda '''AddTreeBox''' doda drevesno strukturo na vnosno masko.
<declaration>
Method|TCustomForm.AddTreeBox
Name|String|Ime kontrole.
Label|String|Tekst, ki se bo izpisal za kontrolo.
ObjType|TCollection|Objekt tipa TCollection, ki predstavlja izbor drevesne strukture.
</declaration>
<source></source>

==Lastnosti kontrol==

===Height===
Lastnost '''Height''' določi ali vrne višino kontrole na vnosni maski.
<declaration>
Property|TCustomForm.Height
Name|String|.
Result|Long|.
</declaration>
<source></source>

===Label===
Lastnost '''Label''' določi ali vrne vrednost napisnega polja na vnosni maski.
<declaration>
Property|TCustomForm.Label
Name|String|.
Result|String|.
</declaration>
<source></source>

===List===
Lastnost '''List''' lahko spremeni ali vrne stvari v seznamih seznamskih polij, kombiniranih polij ali listi potrditvenih polij.
<declaration>
Property|TCustomForm.List
Name|String|.
Result|String|.
</declaration>
<source></source>

===OnChangeEvent===
Lastnost '''OnChangeEvent''' določa, katera procedura se bo izvedla vsakič, ko pride do spremembe vrednosti določene kontrole v maski. Navedena procedura mora imeti naslednjo sintakso:
<source>Sub ImeProcedure (F As TCustomForm, ChangeName) As String</source>
<declaration>
Property|TCustomForm.OnChangeEvent
Name|String|.
Result|String|.
</declaration>
<source>...
CF.OnChangeEvent (T1) = "FormChange"
...

Sub FormChange (F As TCustomForm, CN As String)
Select case CN
Case 'C1'
If F.CheckBoxValue ('C1') Then
F.EditBoxValue ('E1') = 'Izbran'
Else
F.EditBoxValue ('E1') = 'Neizbran'
EndIf
EndSelect
EndSub</source>

===TreeFolder===
Lastnost '''TreeFolder''' .
<declaration>
Property|TCustomForm.TreeFolder
Name|String|.
Result|TFolder|.
</declaration>
<source></source>

===TreeRoot===
Lastnost '''TreeRoot''' .
<declaration>
Property|TCustomForm.TreeRoot
Name|String|.
Result|TFolder|.
</declaration>
<source></source>

==Vrednosti v kontrol==

===CheckBoxValue===
Lastnost '''CheckBoxValue''' nastavi ali vrne vrednost kontrolnega polja.
<declaration>
Property|TCustomForm.CheckBoxValue
Name|String|.
Result|Boolean|.
</declaration>
<source></source>

===CheckListBoxValue===
Lastnost '''CheckListBoxValue''' nastavi ali vrne vrednosti seznama kontrolnih polj na vnosni maski.
<declaration>
Property|TCustomForm.CheckListBoxValue
Name|String|.
Index|Long|.
Result|Boolean|.
</declaration>
<source></source>

===EditBoxValue===
Lastnost '''EditBoxValue''' nastavi ali vrne vrednost vnosnega polja.
<declaration>
Property|TCustomForm.EditBoxValue
Name|String|.
Result|String|.
</declaration>
<source></source>

===ListIndex===
Lastnost '''ListIndex''' določa ali nastavi indeks izbrane stvari v kombiniranem ali potrditvenem polju.
<declaration>
Property|TCustomForm.ListIndex
Name|String|.
Result|Long|.
</declaration>
<source></source>

===TreeValue===
Lastnost '''TreeValue''' nastavi ali izbere objekt iz seznama drevesne strukture.
<declaration>
Property|TCustomForm.TreeValue
Name|String|.
Result|TClass|.
</declaration>
<source></source>

[[Category:Razredi]]
[[Category:SDMS Basic]]

@@ Vrstica 214: / Vrstica 214: @@
 ===OnChangeEvent===
 Lastnost '''OnChangeEvent''' določa, katera procedura se bo izvedla vsakič, ko pride do spremembe vrednosti določene kontrole v maski. Navedena procedura mora imeti naslednjo sintakso:
-<source>Sub ImeProcedure (F As TCustomForm, ChangeName) As String</source>
+<source>Sub ImeProcedure (F As TCustomForm, ChangedName As String)</source>
 <declaration>
 Property|TCustomForm.OnChangeEvent

@@ Vrstica 301: / Vrstica 301: @@
 <source></source>
-[[Category:Razredi]]
+[[Category:Razredi|CustomForm]]
-[[Category:SDMS Basic]]
+[[Category:SDMS Basic|CustomForm]]

@@ Vrstica 3: / Vrstica 3: @@
 ==Uporaba maske==
 ===Execute===
@@ Vrstica 10: / Vrstica 43: @@
 Result|Boolean|.
 </declaration>
-<source></source>
 ===Destroy===

TCustomForm - Zgodovina strani

AleÅ¡ Trtnik: /* OnChangeEvent */

AleÅ¡ Trtnik ob 18:58, 29. november 2010

AleÅ¡ Trtnik: /* Uporaba maske */

AleÅ¡ Trtnik: Nova stran z vsebino: {{Work}} Razred '''TCustomForm''' je namenjen prikazovanju poljubne maske. To naj se nebi več uporabljalo, ampak se uporablja TDialog, ki ima tudi grafični urejevalnik di...