TForm

Ta stran je trenutno še v izdelavi.

Razred TForm vsebuje informacije o maskah, katere omogočajo pregled, vnos ali korekturo podatkov.

Osnovna uporaba

Dim F As Tform, Plast As Tlayer
Plast = [Neka plast]
F = Plast.Form
F.Clear
If F.Edit Then
  F.Name = 'ImeMaske'
  F.Alias = 'DrugoImeMaske'
  F.Comment = 'ComentarMaske'
  F.Save ('ImeMaske')
EndIf
F.Load ('ImeMaske')
Plast.Filter.Execute
Plast.Form.Open
Plast.Form.OpenList(Plast.Filteredrecords)

Edit

Metoda Edit odpre urejevalnik mask.

Method TForm.Edit As Boolean
Result	Optional Boolean	True, če je bila maska odprta, sicer pa je rezultat False.

Execute

Metoda Execute .

Method TForm.Execute

ExecuteList

Metoda ExecuteList .

Method TForm.ExecuteList (List As TRecordList)
List	TRecordList	.

Open

Metoda Open odpre masko za opredeljeno plast. Osnovna lista zapisov je lista filtriranih podatkov (TLayer.FilteredRecords).

Method TForm.Open

OpenList

Metoda OpenList odpre masko za opredeljeno plast. Osnovna lista zapisov ni lista filtriranih podatkov, pač pa lista zapisov, definirana z imenom.

Method TForm.OpenList (List As TRecordList)
List	TRecordList	TRecordList objekt, ki vsebuje seznam zapisov.

Skupne lastnosti

Name

Lastnost Name določa ime objekta.

Property TForm.Name As String
Result	String	.

Alias

Lastnost Alias omogoča nastavitev drugega imena objekta tipa TForm. Drugo ime se lahko uporablja pri sklicevanju na ta objekt.

Property TForm.Alias As String
Result	String	.

Comment

Lastnost Comment .

Property TForm.Comment As String
Result	String	.

Parent

Lastnost Parent .

RO Property TForm.Parent As TLayer
Result	TLayer	.

StoredNames

Lastnost StoredNames .

RO Property TForm.StoredNames As String
Result	String	.

Lastnosti maske

AutoCenter

Lastnost AutoCenter .

Property TForm.AutoCenter As Boolean
Result	Boolean	.

FlashObject

Lastnost FlashObject .

Property TForm.FlashObject As Boolean
Result	Boolean	.

GeoVisible

Lastnost GeoVisible .

Property TForm.GeoVisible As Boolean
Result	Boolean	.

GeoWidth

Lastnost GeoWidth .

Property TForm.GeoWidth As Long
Result	Long	.

ShowInsDelButtons

Lastnost ShowInsDelButtons .

Property TForm.ShowInsDelButtons As Boolean
Result	Boolean	.

ViewAs

Lastnost ViewAs .

Property TForm.ViewAs As Long
Result	Long	.

ShowMenu

Lastnost ShowMenu omogoča prikaz ali skritje menijev v maski.

Property TForm.ShowMenu As Boolean
Result	Boolean	.

CurLayer.Form.ShowMenu = True

ShowToolbar

Lastnost ShowToolbar omogoča prikaz ali skritje orodjarne (toolbara) v maski.

Property TForm.ShowToolbar As Boolean
Result	Boolean	.

CurLayer.Form.ShowToolbar = True

ListField1

Lastnost ListField1 .

Property TForm.ListField1 As TField
Result	TField	.

ListField2

Lastnost ListField2 .

Property TForm.ListField2 As TField
Result	TField	.

ListField3

Lastnost ListField3 .

Property TForm.ListField3 As TField
Result	TField	.

ListVisible

Lastnost ListVisible .

Property TForm.ListVisible As Boolean
Result	Boolean	.

ListWidth

Lastnost ListWidth .

Property TForm.ListWidth As Long
Result	Long	.

ControlCount

Lastnost ControlCount .

RO Property TForm.ControlCount As Long
Result	Long	.

Controls

Lastnost Controls .

RO Property TForm.Controls (Idx As Long) As TFormControl
Idx	Long	.
Result	TFormControl	.

Skupne metode

Load

Metoda Load naloži predhodno določene maske.

Method TForm.Load (Name As String) As Boolean
Name	String	Ime shranjene maske.
Result	Optional Boolean	.

Save

Metoda Save shrani nastavitev objekta TForm.

Method TForm.Save (Name As String)
Name	String	Ime maske.

Clear

Metoda Clear briše vse nastavitve maske v pod objektu TForm za podatkovno plast.

Method TForm.Clear

CopyFrom

Metoda CopyFrom .

Method TForm.CopyFrom (L As TForm)
L	TForm	.

Delete

Metoda Delete .

Method TForm.Delete (Name As String)
Name	String	.

DeleteAll

Metoda DeleteAll .

Method TForm.DeleteAll

Metode maske

AddRecord

Metoda AddRecord .

Method TForm.AddRecord As Boolean
Result	Optional Boolean	.

Close

Metoda Close zapre aktivno masko in opozori, v primeru, če je prišlo do spremembe v podatkih.

Method TForm.Close

[SomeLayer].Form.Close

Close2

Metoda Close2 .

Method TForm.Close2

CurrentDaS

Lastnost CurrentDaS .

Property TForm.CurrentDaS (F As TField) As Long
F	TField	.
Result	Long	.

CurrentDataset

Lastnost CurrentDataset .

Property TForm.CurrentDataset (DasIndex As Long) As Long
DasIndex	Long	.
Result	Long	.

CurrentRecordIndex

Lastnost CurrentRecordIndex se uporablja za določanje izbranega zapisa v listi zapisov na maski.

Property TForm.CurrentRecordIndex As Long
Result	Long	Index izbranega zapisa. Prvi zapis ima index 0.

//Uporaba na maski na gumbu Naslednji zapis - Ukaz
CurLyr.Form.CurrentRecordIndex = CurLyr.Form.CurrentRecordIndex + 1  
//Uporaba na maski na gumbu Naslednji zapis - Aktiven
Result = Assigned (CurLyr.Form.CurrentRecordlist)
If Result Then
  Result = CurLyr.Form.CurrentRecordIndex < CurLyr.Form.CurrentRecordlist.Count - 1
EndIf

//Uporaba na maski na gumbu Prejšni zapis - Ukaz
CurLyr.Form.CurrentRecordIndex = CurLyr.Form.CurrentRecordIndex - 1
//Uporaba na maski na gumbu Prejšni zapis - Aktiven
CurLyr.Form.CurrentRecordIndex > 0

CurrentRecordlist

Lastnost CurrentRecordlist vsebuje referenco na trenutno izbrano listo zapisov v maski. Dejansko je to le referenca na eno izmed list podatkovne plasti TLayer.AllRecords, TLayer.FilteredRecords, TLayer.ClickedRecords ali pa TLayer.EditedRecords in se po uporabi ne uničuje razreda.

Property TForm.CurrentRecordlist As TRecordList
Result	TRecordList	Referenca na trenutno izbrano listo.

// Primer uporabe na maski za shranjevanje dokumenta na osnovi trenutno izbrane liste. 
Dim S As String, L as TLayer
L = CurLyr
S = '*.htm'
If InputFile ('Izberi lokacijo za shranjevanje', S) Then
  L.Document.Load ('Default')
  L.Document.SaveToHtmlList (S, L.Form.CurrentRecordlist, 300)
EndIf

EditRecord

Lastnost EditRecord kaže na trenutni zapis, ki se editira. Lastnost se potrebuje za dostop do polj in ostalih vrednosti za tekoči zapis.

RO Property TForm.EditRecord As TEditRecord
Result	TEditRecord	.

IsOpened

Lastnost IsOpened določa ali je Maska odprta.

RO Property TForm.IsOpened As Boolean
Result	Boolean	.

Hide

Metoda Hide skrije aktivno masko. Medtem lahko uporabnik izvede grafični vnos. Za ponovno aktiviranje vidnosti masko uporabite metodo Show.

Method TForm.Hide

Show

Metoda Show pokaže masko, katera je bila predhodno skrita z Hide metodo.

Method TForm.Show

SetFocus

Metoda SetFocus .

Method TForm.SetFocus (F As TField)
F	TField	.

Update

Metoda Update osveži vrednosti polj v maski. Ob klicu te metode se tudi ponovno inicializirajo navidezni nizi podatkov, tako da se lahko podatki osvežijo tudi ob spremembi v relaciji.

Method TForm.Update

If CurLyr.Form.EditRecord.IsChanged Then 
  CurLyr.Form.Update
EndIf