|
164
|
How can I select an item using on its full part, not only on its icon or caption
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
procedure TWinForm1.AxListBar1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxListBar1 do
begin
OutputDebugString( get_ItemFromPoint(-1,-1) );
end
end;
with AxListBar1 do
begin
HighlightItemType := Integer(EXLISTBARLib.HighLightItemEnum.exFull) Or Integer(EXLISTBARLib.HighLightItemEnum.exUnion);
with Groups.Add('Group 1') do
begin
AddItem('Item <b>1</b>',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item <b>2</b>',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end;
end
|
|
163
|
Does your control support subscript or superscript, in HTML captions
with AxListBar1 do
begin
with Groups.Add('Group') do
begin
AddItem('Item <b><off 4><font ;6>1',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item <b><off 4><font ;6>2',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end;
end
|
|
162
|
How do I get notified once the user selects or activates a group
// SelectGroup event - Occurs when a group is selected.
procedure TWinForm1.AxListBar1_SelectGroup(sender: System.Object; e: AxEXLISTBARLib._IListBarEvents_SelectGroupEvent);
begin
with AxListBar1 do
begin
OutputDebugString( 'Current ' );
OutputDebugString( e.newGroup );
OutputDebugString( 'Previously ' );
OutputDebugString( e.oldGroup );
end
end;
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
with Groups.Add('Group 3') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
end
|
|
161
|
Can I specify a different colors for groups using your EBN files
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
(GetOcx() as EXLISTBARLib.ListBar).BackColorGroup := $1000000;
Groups.Add('Group 1');
Groups.Add('Group 2').BackColor := $100aabb;
SelectGroup := 1;
end
|
|
160
|
Can I change the color of the control's border (EBN files)
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXLISTBARLib.AppearanceEnum($1aabbc8 Or Integer(EXLISTBARLib.AppearanceEnum.exDrop));
end
|
|
159
|
How do I specify the width of the item
with AxListBar1 do
begin
HighlightItemType := EXLISTBARLib.HighLightItemEnum.exNoHighlight;
with Groups.Add('Group 1') do
begin
ItemWidth := 32;
AddItem(0,Nil);
AddItem(1,Nil);
AddItem(2,Nil);
AddItem(3,Nil);
AddItem(4,Nil);
AddItem(5,Nil);
AddItem(6,Nil);
AddItem(7,Nil);
AddItem(8,Nil);
AddItem(9,Nil);
end;
Groups.Add('Group 2');
end
|
|
158
|
How do I change the visual appearance of the item from the cursor, using EBN files
with AxListBar1 do
begin
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(22,'c:\exontrol\images\pushed.ebn');
Add(2,'CP:22 0 8 0 -8');
end;
set_Background(EXLISTBARLib.BackgroundPartEnum.exSelectItem,$1000000);
set_Background(EXLISTBARLib.BackgroundPartEnum.exHightlightItem,$2000000);
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
SelectItem := 1;
end;
Groups.Add('Group 2');
end
|
|
157
|
How do I change the visual appearance of the selected item, using EBN files
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXLISTBARLib.BackgroundPartEnum.exSelectItem,$1000000);
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
SelectItem := 1;
end;
Groups.Add('Group 2');
end
|
|
156
|
How do I select an item
with AxListBar1 do
begin
SelectItemType := EXLISTBARLib.SelectItemEnum.exSelectPop;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
SelectItem := 1;
end;
Groups.Add('Group 2');
end
|
|
155
|
How do I specify how a selected item shows
with AxListBar1 do
begin
SelectItemType := EXLISTBARLib.SelectItemEnum.exSelectPop;
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 2');
end
|
|
154
|
How do I select or activate a group
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
153
|
Is there any option to display groups from left to right
with AxListBar1 do
begin
Orientation := EXLISTBARLib.OrientationEnum.exHorizontal;
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
152
|
How do I change the foreground color of the selected group
with AxListBar1 do
begin
MarkSelectGroup := True;
SelBackColorGroup := BackColorGroup;
SelForeColorGroup := Color.FromArgb(255,0,0);
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
151
|
How do I highlight the selected group
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
MarkSelectGroup := True;
(GetOcx() as EXLISTBARLib.ListBar).SelBackColorGroup := $1000000;
SelForeColorGroup := Color.FromArgb(0,0,0);
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
150
|
How do I change the visual appearance of the selected group, using your EBN files
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
MarkSelectGroup := True;
(GetOcx() as EXLISTBARLib.ListBar).SelBackColorGroup := $1000000;
SelForeColorGroup := Color.FromArgb(0,0,0);
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
149
|
How do I specify the background color for selected group
with AxListBar1 do
begin
MarkSelectGroup := True;
SelBackColorGroup := Color.FromArgb(255,0,0);
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
148
|
How can I indent an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil).Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
with AddItem('Sub Item <b>1</b>',Nil) do
begin
CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
Indent := 12;
end;
with AddItem('Sub Item <b>2</b>',Nil) do
begin
CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
Indent := 12;
end;
with AddItem('Sub Item <b>3</b>',Nil) do
begin
CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
Indent := 12;
end;
with AddItem('Sub Sub Item <b>3</b>',Nil) do
begin
CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
Indent := 24;
end;
with AddItem('Item 2',Nil) do
begin
Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
end;
end;
end
|
|
147
|
How can I use HTML format to display my item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 3',Nil);
end;
end
|
|
146
|
How can I assign a tooltip to an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('ToolTip',Nil).ToolTip := 'This is bit of text that should appear when the cursor hovers the <b>item</b>.';
AddItem('Item 3',Nil);
end;
end
|
|
145
|
How can I show or hide an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).Visible := False;
AddItem('Item 3',Nil);
end;
end
|
|
144
|
How can I change the item's background color
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
with AddItem('Item 2',Nil) do
begin
BackColor := $ff;
BackColor2 := $ffffff;
end;
AddItem('Item 3',Nil);
end;
end
|
|
143
|
How can I change the item's background color
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('<bgcolor=FF0000>Item</bgcolor> 2',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 3',Nil);
end;
end
|
|
142
|
How can I change the item's foreground color
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).ForeColor := $ff;
AddItem('Item 3',Nil);
end;
end
|
|
141
|
How can I change the visual appearance of the item using your EBN files
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).BackColor := $1000000;
AddItem('Item 3',Nil);
end;
end
|
|
140
|
How can I change the item's background color
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).BackColor := $ff;
AddItem('Item 3',Nil);
end;
end
|
|
139
|
How can I get the group of the item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).Group.Bold := True;
AddItem('Item 3',Nil);
end;
end
|
|
138
|
How can I get the index of the item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
with AddItem('Item 1',Nil) do
begin
Caption := Index;
end;
with AddItem('Item 2',Nil) do
begin
Caption := Index;
end;
with AddItem('Item 3',Nil) do
begin
Caption := Index;
end;
end;
end
|
|
137
|
How can I draw underlined an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('<u>Item</u> 2',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 3',Nil);
end;
end
|
|
136
|
How can I draw underlined an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).Underline := True;
AddItem('Item 3',Nil);
end;
end
|
|
135
|
How can I draw as strikeout an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('<s>Item</s> 2',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 3',Nil);
end;
end
|
|
134
|
How can I draw as strikeout an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).StrikeOut := True;
AddItem('Item 3',Nil);
end;
end
|
|
133
|
How can I draw as italic an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('<i>Item</i> 2',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 3',Nil);
end;
end
|
|
132
|
How can I draw as italic an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).Italic := True;
AddItem('Item 3',Nil);
end;
end
|
|
131
|
How can I add a anchor or a hyperlink
with AxListBar1 do
begin
HighlightItemType := EXLISTBARLib.HighLightItemEnum.exNoHighlight;
with Groups.Add('Group 1') do
begin
AddItem('Link <a1><b>1</b></a>',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Link <a2><b>2</b></a>',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end;
end
|
|
130
|
How do I bold an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('<b>Item</a> 2',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 3',Nil);
end;
end
|
|
129
|
How do I bold an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).Bold := True;
AddItem('Item 3',Nil);
end;
end
|
|
128
|
How can I align an item
with AxListBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Groups.Add('Group 1') do
begin
ItemHeight := 28;
AddItem('Left',TObject(1)).Alignment := EXLISTBARLib.AlignmentEnum.exLeft;
AddItem('Center',TObject(2)).Alignment := EXLISTBARLib.AlignmentEnum.exCenter;
AddItem('Right',TObject(3)).Alignment := EXLISTBARLib.AlignmentEnum.exRight;
AddItem('Middle',TObject(1)).Alignment := EXLISTBARLib.AlignmentEnum.exMiddle;
end;
end
|
|
127
|
How can I assign some extra data to an item
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil).UserData := 'your data';
AddItem('Item 2',Nil);
AddItem('Item 3',Nil);
end;
end
|
|
126
|
How can I assign or display an icon for an item
with AxListBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Groups.Add('Group 1') do
begin
AddItem('Item <img>1</img> text <img>2</img>',Nil).CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
AddItem('Item 2',Nil).Image := TObject(2);
AddItem('Item 3',Nil).Image := TObject(3);
end;
end
|
|
125
|
How can I assign or display an icon for an item
with AxListBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil).Image := TObject(1);
AddItem('Item 2',Nil).Image := TObject(2);
AddItem('Item 3',Nil).Image := TObject(3);
end;
end
|
|
124
|
How can I assign or display an icon for an item
with AxListBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Groups.Add('Group 1') do
begin
AddItem('Item 1',TObject(1));
AddItem('Item 2',TObject(2));
AddItem('Item 3',TObject(3));
end;
end
|
|
123
|
How can I change the item's position
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
AddItem('Item 3',Nil).Position := 0;
end;
end
|
|
122
|
How can I change the item's caption
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil).Caption := 'new caption';
AddItem('Item 3',Nil);
end;
end
|
|
121
|
How do I add new items
with AxListBar1 do
begin
Groups.Add('Group 1').AddItem('Item 1',Nil).Bold := True;
end
|
|
120
|
How do I assign a group to a set in the shortcut bar
with AxListBar1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
ShowShortcutBar := True;
Groups.Add('Group 1').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 2').Shortcut := 'Set <img>1</img>';
Groups.Add('Group 3').Shortcut := 'Set <img>2</img>';
Groups.Add('Group 4').Shortcut := 'Set <img>2</img>';
end
|
|
119
|
How can I assign a tooltip to a group
with AxListBar1 do
begin
ToolTipDelay := 1;
Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the <b>group</b>.';
end
|
|
118
|
How can I display HTML text in the group's caption
with AxListBar1 do
begin
GroupHeight := 44;
set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Groups.Add('<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>').CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end
|
|
117
|
How can I change the group's background color ( gradient )
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
BackColor := $ff;
BackColor2 := $ffffff;
end;
Groups.Add('Group 3');
end
|
|
116
|
How can I specify the height of the items
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
ItemHeight := 13;
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
115
|
How do I put a picture on the group's background
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
Picture := AxListBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXLISTBARLib.PictureDisplayEnum.UpperRight;
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
114
|
How do I put a picture on the group's background
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
Picture := AxListBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
113
|
How can I change the foreground color for items
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
ForeColorList := $ff;
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
112
|
How can I change the background color for the items
with AxListBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Nil);
AddItem('Item 2',Nil);
BackColorList := $ff;
end;
Groups.Add('Group 3');
SelectGroup := 1;
end
|
|
111
|
How can I change the group's foreground color
with AxListBar1 do
begin
Groups.Add('Group 1');
Groups.Add('<fgcolor=FF0000>Group</fgcolor> 2').CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
Groups.Add('Group 3');
end
|
|
110
|
How can I change the group's foreground color
with AxListBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').ForeColor := $ff;
Groups.Add('Group 3');
end
|
|
109
|
How can I change the group's background color
with AxListBar1 do
begin
Groups.Add('Group 1');
Groups.Add('<bgcolor=FF0000>Group</bgcolor> 2').CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
Groups.Add('Group 3');
end
|
|
108
|
How can I change the visual appearance of the group, using EBN files
with AxListBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
GroupAppearance := EXLISTBARLib.AppearanceEnum.exSingle;
Groups.Add('Group 1');
Groups.Add('Group 2').BackColor := $1000000;
Groups.Add('Group 3');
end
|
|
107
|
How can I change the group's background color
with AxListBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').BackColor := $ff;
Groups.Add('Group 3');
end
|
|
106
|
How do I get the index of the group
with AxListBar1 do
begin
with Groups.Add('Group 1') do
begin
Caption := Index;
end;
with Groups.Add('Group 2') do
begin
Caption := Index;
end;
with Groups.Add('Group 3') do
begin
Caption := Index;
end;
end
|
|
105
|
How can I underline the group's name
with AxListBar1 do
begin
Groups.Add('<u>Group</u> 1').CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end
|
|
104
|
How can I underline the group's name
with AxListBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').Underline := True;
Groups.Add('Group 3');
end
|
|
103
|
How can I show the group's name as strikeout
with AxListBar1 do
begin
Groups.Add('<s>Group</s> 1').CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end
|
|
102
|
How can I show the group's name as strikeout
with AxListBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').StrikeOut := True;
Groups.Add('Group 3');
end
|
|
101
|
How can I draw as italic the group's name
with AxListBar1 do
begin
Groups.Add('<i>Group</i> 1').CaptionFormat := EXLISTBARLib.CaptionFormatEnum.exHTML;
end
|