Unit ComCtrls

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
Klasse TStatusPanel  
Klasse TStatusPanels  
Klasse TStatusBar  
Klasse TTabSheet  
Klasse TPageControl  
Klasse TTabControlStrings  
Klasse TTabControlNoteBookStrings  
Klasse TCustomTabControl  
Klasse TTabControl  
Klasse TListItem  
Klasse TListItems  
Klasse TListColumn  
Klasse TListColumns  
Klasse TCustomListView  
Klasse TListView  
Klasse TCustomProgressBar  
Klasse TProgressBar  
Klasse TCustomUpDown  
Klasse TUpDown  
Klasse TToolButtonActionLink  
Klasse TToolButton  
Klasse TToolBar  
Klasse TCustomTrackBar  
Klasse TTrackBar  
Klasse ETreeNodeError  
Klasse ETreeViewError  
packed record TTreeNodeInfo  
packed record TDelphiNodeInfo  
Klasse TTreeNode  
record TNodeCache  
Klasse TTreeNodes  
Klasse TCustomTreeView  
Klasse TTreeView  
Klasse TTreeNodeExpandedState  

Funktionen und Prozeduren

function CompareExpandedNodes(Data1, Data2: Pointer): integer;
function CompareTextWithExpandedNode(Key, Data: Pointer): integer;
function InitCommonControl(CC: Integer): Boolean;
procedure CheckCommonControl(CC: Integer);
procedure Register;

Typen

THitTest = (...);
THitTests = set of THitTest;
TStatusPanelStyle = (...);
TStatusPanelBevel = (...);
TPanelPart = (...);
TPanelParts = set of TPanelPart;
TStatusPanelClass = class of TStatusPanel;
TTabStyle = (...);
TDrawTabEvent = procedure(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean) of object;
TCustomDrawTarget = (...);
TCustomDrawStage = (...);
TCustomDrawStateFlag = (...);
TCustomDrawState = set of TCustomDrawStateFlag;
TCustomDrawResultFlag = (...);
TCustomDrawResult = set of TCustomDrawResultFlag;
TSortType = (...);
TListItemState = (...);
TListItemStates = set of TListItemState;
TListItemFlag = (...);
TListItemFlags = set of TListItemFlag;
TDisplayCode = (...);
TWidth = 0..MaxInt;
TItemChange = (...);
TViewStyle = (...);
TLVChangeEvent = procedure(Sender: TObject; Item: TListItem; Change: TItemChange) of object;
TLVColumnClickEvent = procedure(Sender: TObject; Column: TListColumn) of object;
TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn; Point: TPoint) of object;
TLVCompareEvent = procedure(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer) of object;
TLVDeletedEvent = procedure(Sender: TObject; Item: TListItem) of object;
TLVInsertEvent = TLVDeletedEvent;
TLVSelectItemEvent = procedure(Sender: TObject; Item: TListItem; Selected: Boolean) of object;
TLVCustomDrawEvent = procedure(Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean) of object;
TLVCustomDrawItemEvent = procedure(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
TLVCustomDrawSubItemEvent = procedure(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
TLVAdvancedCustomDrawEvent = procedure(Sender: TCustomListView; const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
TLVAdvancedCustomDrawItemEvent = procedure(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
TLVAdvancedCustomDrawSubItemEvent = procedure(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
TListViewProperty = (...);
TListViewProperties = set of TListViewProperty;
TListViewImageList = (...);
TListHotTrackStyle = (...);
TListHotTrackStyles = set of TListHotTrackStyle;
TListViewFlag = (...);
TListViewFlags = set of TListViewFlag;
TProgressBarOrientation = (...);
TUDAlignButton = (...);
TUDOrientation = (...);
TUDBtnType = (...);
TUDClickEvent = procedure (Sender: TObject; Button: TUDBtnType) of object;
TUDChangingEvent = procedure (Sender: TObject; var AllowChange: Boolean) of object;
TToolButtonStyle = (...);
TToolButtonFlag = (...);
TToolButtonFlags = set of TToolButtonFlag;
TToolButtonActionLinkClass = class of TToolButtonActionLink;
TToolBarFlag = (...);
TToolBarFlags = set of TToolBarFlag;
TTrackBarOrientation = (...);
TTickMark = (...);
TTickStyle = (...);
TTrackBarScalePos = (...);
TNodeState = (...);
TNodeStates = set of TNodeState;
TNodeAttachMode = (...);
TAddMode = (...);
TTreeNodeArray = ˆTTreeNode;
TTVChangingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean) of object;
TTVChangedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
TTVEditingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean) of object;
TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode; var S: string) of object;
TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean) of object;
TTVCollapsingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean) of object;
TTVExpandedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
TTVCompareEvent = procedure(Sender: TObject; Node1, Node2: TTreeNode; var Compare: Integer) of object;
TTVCustomDrawEvent = procedure(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean) of object;
TTVCustomDrawItemEvent = procedure(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
TTVAdvancedCustomDrawEvent = procedure(Sender: TCustomTreeView; const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
TTVAdvancedCustomDrawItemEvent = procedure(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean) of object;
TTVCustomCreateNodeEvent = procedure(Sender: TCustomTreeView; var ATreeNode: TTreenode) of object;
TTreeNodeCompare = function(Node1, Node2: TTreeNode): integer of object;
PTreeNodeInfo = ˆTTreeNodeInfo;
PDelphiNodeInfo = ˆTDelphiNodeInfo;
PNodeCache = ˆTNodeCache;
TTreeViewState = (...);
TTreeViewStates = set of TTreeViewState;
TTreeViewOption = (...);
TTreeViewOptions = set of TTreeViewOption;
TTreeViewExpandSignType = (...);
TTreeViewInsertMarkType = (...);

Konstanten

CN_DROPDOWNCLOSED = LM_USER + $1000;
NodeAttachModeNames: array[TNodeAttachMode] of string = ('naAdd', 'naAddFirst', 'naAddChild', 'naAddChildFirst', 'naInsert', 'naInsertBehind');
AddModeNames: array[TAddMode] of string = ('taAddFirst', 'taAdd', 'taInsert');
LCLStreamID = -7;
DefaultTreeViewOptions = [tvoShowRoot, tvoShowLines, tvoShowButtons, tvoHideSelection, tvoToolTips, tvoKeepCollapsedNodes, tvoAutoItemHeight];

Beschreibung

Funktionen und Prozeduren

function CompareExpandedNodes(Data1, Data2: Pointer): integer;
 
function CompareTextWithExpandedNode(Key, Data: Pointer): integer;
 
function InitCommonControl(CC: Integer): Boolean;
 
procedure CheckCommonControl(CC: Integer);
 
procedure Register;
 

Typen

THitTest = (...);
 
Values
  • htAbove:
  • htBelow:
  • htNowhere:
  • htOnItem:
  • htOnButton:
  • htOnIcon:
  • htOnIndent:
  • htOnLabel:
  • htOnRight:
  • htOnStateIcon:
  • htToLeft:
  • htToRight:
THitTests = set of THitTest;
 
TStatusPanelStyle = (...);
 
Values
  • psText:
  • psOwnerDraw:
TStatusPanelBevel = (...);
 
Values
  • pbNone:
  • pbLowered:
  • pbRaised:
TPanelPart = (...);
 
Values
  • ppText:
  • ppBorder:
  • ppWidth:
TPanelParts = set of TPanelPart;
 
TStatusPanelClass = class of TStatusPanel;
 
TTabStyle = (...);
 
Values
  • tsTabs:
  • tsButtons:
  • tsFlatButtons:
TDrawTabEvent = procedure(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean) of object;
 
TCustomDrawTarget = (...);
 
Values
  • dtControl:
  • dtItem:
  • dtSubItem:
TCustomDrawStage = (...);
 
Values
  • cdPrePaint:
  • cdPostPaint:
  • cdPreErase:
  • cdPostErase:
TCustomDrawStateFlag = (...);
 
Values
  • cdsSelected:
  • cdsGrayed:
  • cdsDisabled:
  • cdsChecked:
  • cdsFocused:
  • cdsDefault:
  • cdsHot:
  • cdsMarked:
  • cdsIndeterminate:
TCustomDrawState = set of TCustomDrawStateFlag;
 
TCustomDrawResultFlag = (...);
 
Values
  • cdrSkipDefault:
  • cdrNotifyPostpaint:
  • cdrNotifyItemdraw:
  • cdrNotifySubitemdraw:
  • cdrNotifyPosterase:
  • cdrNotifyItemerase:
TCustomDrawResult = set of TCustomDrawResultFlag;
 
TSortType = (...);
 
Values
  • stNone:
  • stData:
  • stText:
  • stBoth:
TListItemState = (...);
 
Values
  • lisCut:
  • lisDropTarget:
  • lisFocused:
  • lisSelected:
TListItemStates = set of TListItemState;
 
TListItemFlag = (...);
 
Values
  • lifDestroying:
  • lifCreated:
TListItemFlags = set of TListItemFlag;
 
TDisplayCode = (...);
 
Values
  • drBounds:
  • drIcon:
  • drLabel:
  • drSelectBounds:
TWidth = 0..MaxInt;
 
TItemChange = (...);
 
Values
  • ctText:
  • ctImage:
  • ctState:
TViewStyle = (...);
 
Values
  • vsIcon:
  • vsSmallIcon:
  • vsList:
  • vsReport:
TLVChangeEvent = procedure(Sender: TObject; Item: TListItem; Change: TItemChange) of object;
 
TLVColumnClickEvent = procedure(Sender: TObject; Column: TListColumn) of object;
 
TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn; Point: TPoint) of object;
 
TLVCompareEvent = procedure(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer) of object;
 
TLVDeletedEvent = procedure(Sender: TObject; Item: TListItem) of object;
 
TLVInsertEvent = TLVDeletedEvent;
 
TLVSelectItemEvent = procedure(Sender: TObject; Item: TListItem; Selected: Boolean) of object;
 
TLVCustomDrawEvent = procedure(Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean) of object;
 
TLVCustomDrawItemEvent = procedure(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
 
TLVCustomDrawSubItemEvent = procedure(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
 
TLVAdvancedCustomDrawEvent = procedure(Sender: TCustomListView; const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
 
TLVAdvancedCustomDrawItemEvent = procedure(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
 
TLVAdvancedCustomDrawSubItemEvent = procedure(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
 
TListViewProperty = (...);
 
Values
  • lvpAutoArrange:
  • lvpCheckboxes:
  • lvpColumnClick:
  • lvpFlatScrollBars:
  • lvpFullDrag:
  • lvpGridLines:
  • lvpHideSelection:
  • lvpHotTrack:
  • lvpMultiSelect:
  • lvpOwnerDraw:
  • lvpReadOnly:
  • lvpRowSelect:
  • lvpShowColumnHeaders:
  • lvpShowWorkAreas:
  • lvpWrapText:
TListViewProperties = set of TListViewProperty;
 
TListViewImageList = (...);
 
Values
  • lvilSmall:
  • lvilLarge:
  • lvilState:
TListHotTrackStyle = (...);
 
Values
  • htHandPoint:
  • htUnderlineCold:
  • htUnderlineHot:
TListHotTrackStyles = set of TListHotTrackStyle;
 
TListViewFlag = (...);
 
Values
  • lffSelectedValid:
TListViewFlags = set of TListViewFlag;
 
TProgressBarOrientation = (...);
 
Values
  • pbHorizontal:
  • pbVertical:
  • pbRightToLeft:
  • pbTopDown:
TUDAlignButton = (...);
 
Values
  • udLeft:
  • udRight:
  • udTop:
  • udBottom:
TUDOrientation = (...);
 
Values
  • udHorizontal:
  • udVertical:
TUDBtnType = (...);
 
Values
  • btNext:
  • btPrev:
TUDClickEvent = procedure (Sender: TObject; Button: TUDBtnType) of object;
 
TUDChangingEvent = procedure (Sender: TObject; var AllowChange: Boolean) of object;
 
TToolButtonStyle = (...);
 
Values
  • tbsButton:
  • tbsCheck:
  • tbsDropDown:
  • tbsSeparator:
  • tbsDivider:
TToolButtonFlag = (...);
 
Values
  • tbfPressed:
TToolButtonFlags = set of TToolButtonFlag;
 
TToolButtonActionLinkClass = class of TToolButtonActionLink;
 
TToolBarFlag = (...);
 
Values
  • tbfUpdateVisibleBarNeeded:
  • tbfPlacingControls:
TToolBarFlags = set of TToolBarFlag;
 
TTrackBarOrientation = (...);
 
Values
  • trHorizontal:
  • trVertical:
TTickMark = (...);
 
Values
  • tmBottomRight:
  • tmTopLeft:
  • tmBoth:
TTickStyle = (...);
 
Values
  • tsNone:
  • tsAuto:
  • tsManual:
TTrackBarScalePos = (...);
 
Values
  • trLeft:
  • trRight:
  • trTop:
  • trBottom:
TNodeState = (...);
 
Values
  • nsCut:
  • nsDropHilited:
  • nsFocused:
  • nsSelected:
  • nsMultiSelected:
  • nsExpanded:
  • nsHasChildren:
  • nsInTree:
  • nsDeleting:
TNodeStates = set of TNodeState;
 
TNodeAttachMode = (...);
 
Values
  • naAdd:
  • naAddFirst:
  • naAddChild:
  • naAddChildFirst:
  • naInsert:
  • naInsertBehind:
TAddMode = (...);
 
Values
  • taAddFirst:
  • taAdd:
  • taInsert:
TTreeNodeArray = ˆTTreeNode;
 
TTVChangingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean) of object;
 
TTVChangedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
 
TTVEditingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean) of object;
 
TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode; var S: string) of object;
 
TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean) of object;
 
TTVCollapsingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean) of object;
 
TTVExpandedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
 
TTVCompareEvent = procedure(Sender: TObject; Node1, Node2: TTreeNode; var Compare: Integer) of object;
 
TTVCustomDrawEvent = procedure(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean) of object;
 
TTVCustomDrawItemEvent = procedure(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
 
TTVAdvancedCustomDrawEvent = procedure(Sender: TCustomTreeView; const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object;
 
TTVAdvancedCustomDrawItemEvent = procedure(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean) of object;
 
TTVCustomCreateNodeEvent = procedure(Sender: TCustomTreeView; var ATreeNode: TTreenode) of object;
 
TTreeNodeCompare = function(Node1, Node2: TTreeNode): integer of object;
 
PTreeNodeInfo = ˆTTreeNodeInfo;
 
PDelphiNodeInfo = ˆTDelphiNodeInfo;
 
PNodeCache = ˆTNodeCache;
 
TTreeViewState = (...);
 
Values
  • tvsScrollbarChanged:
  • tvsMaxRightNeedsUpdate:
  • tvsTopsNeedsUpdate:
  • tvsMaxLvlNeedsUpdate:
  • tvsTopItemNeedsUpdate:
  • tvsBottomItemNeedsUpdate:
  • tvsCanvasChanged:
  • tvsDragged:
  • tvsIsEditing:
  • tvsStateChanging:
  • tvsManualNotify:
  • tvsUpdating:
  • tvsPainting:
  • tvsMouseCapture:
  • tvsWaitForDragging:
  • tvsDblClicked:
  • tvsTripleClicked:
  • tvsQuadClicked:
  • tvsSelectionChanged:
TTreeViewStates = set of TTreeViewState;
 
TTreeViewOption = (...);
 
Values
  • tvoAllowMultiselect:
  • tvoAutoExpand:
  • tvoAutoInsertMark:
  • tvoAutoItemHeight:
  • tvoHideSelection:
  • tvoHotTrack:
  • tvoKeepCollapsedNodes:
  • tvoReadOnly:
  • tvoRightClickSelect:
  • tvoRowSelect:
  • tvoShowButtons:
  • tvoShowLines:
  • tvoShowRoot:
  • tvoShowSeparators:
  • tvoToolTips:
  • tvoNoDoubleClickExpand:
TTreeViewOptions = set of TTreeViewOption;
 
TTreeViewExpandSignType = (...);
 
Values
  • tvestPlusMinus:
  • tvestArrow:
TTreeViewInsertMarkType = (...);
 
Values
  • tvimNone:
  • tvimAsFirstChild:
  • tvimAsNextSibling:
  • tvimAsPrevSibling:

Konstanten

CN_DROPDOWNCLOSED = LM_USER + $1000;
 
NodeAttachModeNames: array[TNodeAttachMode] of string = ('naAdd', 'naAddFirst', 'naAddChild', 'naAddChildFirst', 'naInsert', 'naInsertBehind');
 
AddModeNames: array[TAddMode] of string = ('taAddFirst', 'taAdd', 'taInsert');
 
LCLStreamID = -7;
 
DefaultTreeViewOptions = [tvoShowRoot, tvoShowLines, tvoShowButtons, tvoHideSelection, tvoToolTips, tvoKeepCollapsedNodes, tvoAutoItemHeight];
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:02:52