Registriert seit: 14. Jul 2003
Ort: Flintbek
810 Beiträge
Delphi XE2 Professional
|
VST einzelne Zellen editieren
14. Jul 2010, 00:19
Moin zusammen,
ich habe ein VST, welches 5 Zeilen und 6 Spalten hat. Ich möchte gerne das man in die irgendeine Zelle klicken und diese dann editieren kann.
Welche Option muss ich noch setzen bzw. wieder deaktivieren? Ich finde es einfach nicht.
Hier die Eigenschaften meines VST.
Delphi-Quellcode:
object vst_contact_contacts: TVirtualStringTree
Left = 0
Top = 0
Width = 709
Height = 161
Cursor = crHandPoint
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
ButtonFillMode = fmWindowColor
CheckImageKind = ckXP
Color = clWhite
Colors.FocusedSelectionColor = clBlack
Ctl3D = False
DefaultNodeHeight = 25
DrawSelectionMode = smBlendedRectangle
Header.AutoSizeIndex = -1
Header.Background = clWhite
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = [fsBold]
Header.Height = 20
Header.MainColumn = 1
Header.Options = [hoColumnResize, hoDrag, hoOwnerDraw, hoShowImages, hoShowSortGlyphs, hoVisible]
Header.Style = hsXPStyle
Indent = 0
LineStyle = lsSolid
ParentCtl3D = False
ParentShowHint = False
RootNodeCount = 5
ScrollBarOptions.ScrollBarStyle = sbmFlat
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes, toDisableAutoscrollOnFocus]
TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toVariableNodeHeight]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
ExplicitHeight = 171
Columns = <
item
Position = 0
Width = 120
WideText = 'Name'
end
item
Position = 1
Width = 90
WideText = 'Department'
end
item
Position = 2
Width = 120
WideText = 'Phone'
end
item
Position = 3
Width = 120
WideText = 'Mobile'
end
item
Position = 4
Width = 120
WideText = 'Fax'
end
item
Position = 5
Width = 200
WideText = 'Email'
end>
WideDefaultText = ''
end
Vielen Dank im Voraus.
Sven
|
|
Zitat
|