TDrawItem

Ta stran je trenutno še v izdelavi.

Razred TDrawItem vsebuje informacije o temah.

Vidnost teme

Visible

Lastnost Visible določa ali se navedena tema izrisuje.

Property TDrawItem.Visible As Boolean
Result	Boolean	.

Dim I as Long
For I = 0 To DrawList.Count - 1
  DrawList.Items (i).Visible = False
Next
Redraw

GroupVisible

Lastnost GroupVisible .

Property TDrawItem.GroupVisible As Boolean
Result	Boolean	.

ActuallyVisible

Lastnost ActuallyVisible .

RO Property TDrawItem.ActuallyVisible As Boolean
Result	Boolean	.

Lastnosti teme

Dim DI As TDrawItem
DI = DrawList.Add
DI.Layer = [Neka plast]
DI.Type = dtSymbol
DI.Name = 'Some name'
DI.Alias = 'Some'
DI.Comment = 'optional'
DI.Visible = True
DI.Legend = False
DI.Value (1) = 'True'

Layer

Lastnost Layer določa na katero podatkovno plast se nanaša določena tema.

Property TDrawItem.Layer As TLayer
Result	TLayer	.

Dim DI as TDrawItem
DI = DrawList.Items (0)
Hint (DI.Layer.Name)

Name

Lastnost Name določa ime teme. Če ime teme ni opredeljeno, se v tematiki izpisuje ime podatkovne plasti.

Property TDrawItem.Name As String
Result	String	.

Dim I as Long
For I = 0 To DrawList.Count - 1
  DrawList.Items (1).Name = 'To je tema ' + IntToStr(i)
Next

Alias

Lastnost Alias pove njeno drugo ime.

Property TDrawItem.Alias As String
Result	String	.

Dim I as Long
For I = 0 To DrawList.Count - 1
  DrawList.Items (I).Alias = "To je tema "+IntToStr(i)
Next

Comment

Lastnost Comment določa komentar za izbrano temo. Tu lahko vnesemo spremno besedilo.

Property TDrawItem.Comment As String
Result	String	.

Dim I as Long
For I = 0 To DrawList.Count - 1
  DrawList.Items (I).Comment = "To je tema "+IntToStr(i)
Next

Type

Lastnost Type določa tip teme. Tip teme je lahko eden od konstantnih tem v tematiki.

Property TDrawItem.Type As Long
Result	Long	.

DrawList.Items (1).Type = dtSymbol

Vrednosti

Value

Lastnost Value vrne vrednost elementa teme.

Property TDrawItem.Value (Index As Long) As String
Index	Long	.
Result	String	.

Dim DI as TDrawItem
DI = DrawList.Items (0)
DI.Value (0) = "True"

ValueCount

Lastnost ValueCount določa število elementov teme.

RO Property TDrawItem.ValueCount As Long
Result	Long	.

Dim DI as TDrawItem, I as Long
DI = DrawList.Items (1)
For I = 0 To DI.ValueCount - 1 
  Hint (DI.Value (I))
Next

Merila

MinScale

Lastnost MinScale .

Property TDrawItem.MinScale As Float
Result	Float	.

MaxScale

Lastnost MaxScale .

Property TDrawItem.MaxScale As Float
Result	Float	.

DrawScale

Lastnost DrawScale .

Property TDrawItem.DrawScale As Float
Result	Float	.

Skupina

GroupName

Lastnost GroupName .

Property TDrawItem.GroupName As String
Result	String	.

GroupOpened

Lastnost GroupOpened .

Property TDrawItem.GroupOpened As Boolean
Result	Boolean	.

Inforrmacije

Hint

Lastnost Hint določa ID index -tega polja, ki se izpisuje kot informacija.

RO Property TDrawItem.Hint (Index As Long) As Long
Index	Long	Zaporedno številka informacije.
Result	Long	ID podanega polja.

HintAdd

Metoda HintAdd doda informacijo, ki naj se izpisuuje v temi.

Method TDrawItem.HintAdd (Index As Long)
Index	Long	ID polja, ki se doda v listo informacij.

Dim DI as TDrawItem
Dim F as TField
Dim L as TLayer
L = [Neka plast]
If Assigned (L) Then
  F = L.GetField ("IDime")
  DI = DrawList.Items (0)
  DI.HintAdd (F.ID)
EndIF

HintCount

Lastnost HintCount določa število aktivnih informacij.

RO Property TDrawItem.HintCount As Long
Result	Long	.

Dim DI as TDrawItem
DI = DrawList.Items (0)
Hint (IntToStr(DI.HintCount))

HintDelete

Metoda HintDelete izbriše iz seznama aktivnih informacij index-to informacijo.

Method TDrawItem.HintDelete (Index As Long)
Index	Long	Index informacije, ki se briše.

Dim DI as TDrawItem
DI = DrawList.Items (0)
DI.HintDelete (0)

Hints

Lastnost Hints določa ali so informacije vidne.

Property TDrawItem.Hints As Boolean
Result	Boolean	.

Dim DI as TDrawItem
DI = DrawList.Items (1)
For I = 0 To DI.HintCount - 1
  DI.Hint (I) = F.ID
  ...
Next

Razno

IsLayerItem

Lastnost IsLayerItem .

RO Property TDrawItem.IsLayerItem As Boolean
Result	Boolean	.

Legend

Lastnost Legend določa vidnost legende teme.

Property TDrawItem.Legend As Boolean
Result	Boolean	.

Dim I as Long
For I = 0 To DrawList.Count - 1
  DrawList.Items (i).Legend = True
Next

ViewTags

Lastnost ViewTags .

Property TDrawItem.ViewTags As String
Result	String	.

WebInfo

Lastnost WebInfo .

Property TDrawItem.WebInfo As String
Result	String	.