|
176
|
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 TForm1.ExplorerBar1Click(ASender: TObject; );
begin
with ExplorerBar1 do
begin
OutputDebugString( ItemFromPoint[-1,-1] );
end
end;
with ExplorerBar1 do
begin
HighlightItemType := Integer(EXPLORERBARLib_TLB.exFull) Or Integer(EXPLORERBARLib_TLB.exUnion);
with Groups.Add('Group 1') do
begin
AddItem('Item <b>1</b>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item <b>2</b>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Expanded := True;
end;
end
|
|
175
|
How can I change the group's color
with ExplorerBar1 do
begin
BackColorGroup := RGB(255,0,0);
BackColorGroup2 := BackColorGroup;
GroupAppearance := EXPLORERBARLib_TLB.exNone;
with Groups do
begin
Add('Group 1');
Add('Group 2');
end;
end
|
|
174
|
How can remove the group's appearance
with ExplorerBar1 do
begin
BackColorGroup := BackColor;
BackColorGroup2 := BackColor;
GroupAppearance := EXPLORERBARLib_TLB.exSingle;
with Groups do
begin
Add('Group 1');
Add('Group 2');
end;
end
|
|
173
|
How can I align the group/item
with ExplorerBar1 do
begin
BeginUpdate();
with Groups.Add('Group 1') do
begin
Alignment := EXPLORERBARLib_TLB.exLeft;
AddItem('Item 1',Null).Alignment := EXPLORERBARLib_TLB.exLeft;
Expanded := True;
end;
EndUpdate();
end
|
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
// AddGroup event - Occurs when a new group is added to collection.
procedure TForm1.ExplorerBar1AddGroup(ASender: TObject; Group : IGroup);
begin
with ExplorerBar1 do
begin
with Group do
begin
end;
end
end;
// AddItem event - Occurs when a new item is added to a group.
procedure TForm1.ExplorerBar1AddItem(ASender: TObject; Item : IItem);
begin
with ExplorerBar1 do
begin
with Item do
begin
end;
end
end;
with ExplorerBar1 do
begin
BeginUpdate();
Appearance := EXPLORERBARLib_TLB.exNone;
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'CP:1 48 12 -24 0');
Add(3,'c:\exontrol\images\pushed.ebn');
end;
HTMLPicture['uk'] := 'c:\exontrol\images\zipdisk.gif';
HTMLPicture['brazil'] := 'c:\exontrol\images\auction.gif';
HTMLPicture['sweden'] := 'c:\exontrol\images\colorize.gif';
BackColorGroup := $2000000;
BackColorGroup2 := BackColorGroup;
GroupHeight := 40;
with Groups.Add('<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom') do
begin
BackgroundExtValue[EXPLORERBARLib_TLB.exIndexExt2,EXPLORERBARLib_TLB.exTextExt] := '<img>uk:44</img>';
AddItem('London Eye',Null);
AddItem('Tower of London',Null);
AddItem('Buckingham Palace',Null);
AddItem('River Thames',Null);
AddItem('Stonehenge',Null);
end;
with Groups.Add('<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil') do
begin
BackgroundExtValue[EXPLORERBARLib_TLB.exIndexExt2,EXPLORERBARLib_TLB.exTextExt] := '<img>brazil:44</img>';
AddItem('Cristo Redentor',Null);
AddItem('Copacabana',Null);
AddItem('Ipanema, Rio de Janeiro',Null);
AddItem('Iguazu Falls',Null);
AddItem('Sugarloaf Mountain',Null);
Expanded := True;
end;
with Groups.Add('<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden') do
begin
BackgroundExtValue[EXPLORERBARLib_TLB.exIndexExt2,EXPLORERBARLib_TLB.exTextExt] := '<img>sweden:44</img>';
AddItem('Gamla stan',Null);
AddItem('Vasa Museum',Null);
AddItem('Stockholm Palace',Null);
AddItem('Skansen',Null);
AddItem('Djurgården',Null);
end;
EndUpdate();
end
|
|
171
|
Can I specify a different colors for groups using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
BackColorGroup := $1000000;
Groups.Add('Group 1');
Groups.Add('Group 2').BackColor := $100aabb;
end
|
|
170
|
Can I change the color of the control's border (EBN files)
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXPLORERBARLib_TLB.AppearanceEnum($1aabbc8 Or Integer(EXPLORERBARLib_TLB.exDrop));
end
|
|
169
|
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
with ExplorerBar1 do
begin
BeginUpdate();
GroupHeight := 48;
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
Add('Group 4');
Add('Group 5');
Add('Group 6');
Add('Group 7');
Add('Group 8');
Add('Group 9');
Add('Group 10');
Add('Group 11');
with Add('Group 12') do
begin
AddItem(0,Null);
AddItem(1,Null);
AddItem(2,Null);
end;
end;
EnsureVisible(OleVariant(11),OleVariant(2),Null);
EndUpdate();
end
|
|
168
|
How can I scroll to the end of the groups
with ExplorerBar1 do
begin
BeginUpdate();
GroupHeight := 48;
with Groups do
begin
Add('Group 1');
Add('Group 2');
Add('Group 3');
Add('Group 4');
Add('Group 5');
Add('Group 6');
Add('Group 7');
Add('Group 8');
Add('Group 9');
Add('Group 10');
Add('Group 11');
Add('Group 12');
end;
EnsureVisible(OleVariant(11),Null,Null);
EndUpdate();
end
|
|
167
|
How can I display an item by multiple lines
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('SingleLine',Null);
with AddItem('This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed',Null) do
begin
Alignment := EXPLORERBARLib_TLB.exLeft;
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
SingleLine := False;
end;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
166
|
How can I indent an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).Alignment := EXPLORERBARLib_TLB.exLeft;
with AddItem('Sub Item <b>1</b>',Null) do
begin
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Alignment := EXPLORERBARLib_TLB.exLeft;
Indent := 12;
end;
with AddItem('Sub Item <b>2</b>',Null) do
begin
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Alignment := EXPLORERBARLib_TLB.exLeft;
Indent := 12;
end;
with AddItem('Sub Item <b>3</b>',Null) do
begin
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Alignment := EXPLORERBARLib_TLB.exLeft;
Indent := 12;
end;
with AddItem('Sub Sub Item <b>3</b>',Null) do
begin
CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Alignment := EXPLORERBARLib_TLB.exLeft;
Indent := 24;
end;
with AddItem('Item 2',Null) do
begin
Alignment := EXPLORERBARLib_TLB.exLeft;
end;
Expanded := True;
end;
end
|
|
165
|
How can I use HTML format to display my item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
164
|
How can I assign a tooltip to an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('ToolTip',Null).ToolTip := 'This is bit of text that should appear when the cursor hovers the <b>item</b>.';
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
163
|
How can I show or hide an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).Visible := False;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
162
|
How can I align an icon for an item
with ExplorerBar1 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
with AddItem('Item 1',Null) do
begin
Image := OleVariant(1);
ImageAlignment := EXPLORERBARLib_TLB.exLeft;
end;
with AddItem('Item 2',Null) do
begin
Image := OleVariant(2);
ImageAlignment := EXPLORERBARLib_TLB.exRight;
end;
Expanded := True;
end;
end
|
|
161
|
How can I stop highlighting an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2 - no ',Null).AllowHighLight := False;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
160
|
How can I change the item's background color
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
with AddItem('Item 2',Null) do
begin
BackColor := $ff;
BackColor2 := $ffffff;
end;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
159
|
How can I change the item's background color
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('<bgcolor=FF0000>Item</bgcolor> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
158
|
How can I change the item's foreground color
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).ForeColor := $ff;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
157
|
How can I change the visual appearance of the item using your EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).BackColor := $1000000;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
156
|
How can I change the item's background color
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).BackColor := $ff;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
155
|
How can I get the group of the item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).Group.Bold := True;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
154
|
How can I get the index of the item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
with AddItem('Item 1',Null) do
begin
Caption := Index;
end;
with AddItem('Item 2',Null) do
begin
Caption := Index;
end;
with AddItem('Item 3',Null) do
begin
Caption := Index;
end;
Expanded := True;
end;
end
|
|
153
|
How can I draw underlined an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('<u>Item</u> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
152
|
How can I draw underlined an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).Underline := True;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
151
|
How can I draw as strikeout an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('<s>Item</s> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
150
|
How can I draw as strikeout an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).StrikeOut := True;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
149
|
How can I draw as italic an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('<i>Item</i> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
148
|
How can I draw as italic an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).Italic := True;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
147
|
How can I add a anchor or a hyperlink
with ExplorerBar1 do
begin
HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
HandCursor := False;
with Groups.Add('Group 1') do
begin
AddItem('Link <a1><b>1</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Link <a2><b>2</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Expanded := True;
end;
end
|
|
146
|
How do I bold an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('<b>Item</a> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
145
|
How do I bold an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).Bold := True;
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
144
|
How can I align an item
with ExplorerBar1 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',OleVariant(1)).Alignment := EXPLORERBARLib_TLB.exLeft;
AddItem('Center',OleVariant(2)).Alignment := EXPLORERBARLib_TLB.exCenter;
AddItem('Right',OleVariant(3)).Alignment := EXPLORERBARLib_TLB.exRight;
AddItem('Middle',OleVariant(1)).Alignment := EXPLORERBARLib_TLB.exMiddle;
Expanded := True;
end;
end
|
|
143
|
How can I assign some extra data to an item
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null).UserData := 'your data';
AddItem('Item 2',Null);
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
142
|
How can I assign or display an icon for an item
with ExplorerBar1 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>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
AddItem('Item 2',Null).Image := OleVariant(2);
AddItem('Item 3',Null).Image := OleVariant(3);
Expanded := True;
end;
end
|
|
141
|
How can I assign or display an icon for an item
with ExplorerBar1 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',Null).Image := OleVariant(1);
AddItem('Item 2',Null).Image := OleVariant(2);
AddItem('Item 3',Null).Image := OleVariant(3);
Expanded := True;
end;
end
|
|
140
|
How can I assign or display an icon for an item
with ExplorerBar1 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',OleVariant(1));
AddItem('Item 2',OleVariant(2));
AddItem('Item 3',OleVariant(3));
Expanded := True;
end;
end
|
|
139
|
How can I change the item's position
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null).Position := 0;
Expanded := True;
end;
end
|
|
138
|
How can I change the item's caption
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null).Caption := 'new caption';
AddItem('Item 3',Null);
Expanded := True;
end;
end
|
|
137
|
How do I add new items
with ExplorerBar1 do
begin
Groups.Add('Group 1').AddItem('Item 1',Null).Bold := True;
end
|
|
136
|
How do I assign a group to a set in the shortcut bar
with ExplorerBar1 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
|
|
135
|
How can I show or hide the expanding or collapsing button
with ExplorerBar1 do
begin
Groups.Add('Group 1').AddItem('Item 1',Null);
with Groups.Add('Group 2, expanding/collapsing button is missing ') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
AllowExpand := False;
end;
Groups.Add('Group 3').AddItem('Item 1',Null);
end
|
|
134
|
How can I avoid expanding or collapsing a group
with ExplorerBar1 do
begin
Groups.Add('Group 1').AddItem('Item 1',Null);
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
AllowExpand := False;
end;
Groups.Add('Group 3').AddItem('Item 1',Null);
end
|
|
133
|
How can I assign a tooltip to a group
with ExplorerBar1 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
|
|
132
|
How can I display HTML text in the group's caption
with ExplorerBar1 do
begin
GroupHeight := 44;
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 := EXPLORERBARLib_TLB.exHTML;
end
|
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
AllowScroll := False;
end;
Groups.Add('Group 3');
end
|
|
130
|
How can I change the group's background color ( gradient )
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
BackColor := $ff;
BackColor2 := $ffffff;
end;
Groups.Add('Group 3');
end
|
|
129
|
How can I access the bounding rectangle of the group's area
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem(Top,Null);
AddItem(Left,Null);
AddItem(Width,Null);
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
128
|
How can I expand or collapse a group
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
127
|
How can I specify the height of the items
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
ItemHeight := 13;
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
126
|
How do I put a picture on the group's background
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
PictureDisplay := EXPLORERBARLib_TLB.UpperRight;
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
125
|
How do I put a picture on the group's background
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
124
|
How can I change the foreground color for items
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
ForeColorList := $ff;
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
123
|
How can I change the background color for the items
with ExplorerBar1 do
begin
Groups.Add('Group 1');
with Groups.Add('Group 2') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
BackColorList := $ff;
Expanded := True;
end;
Groups.Add('Group 3');
end
|
|
122
|
How can I change the group's foreground color
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('<fgcolor=FF0000>Group</fgcolor> 2').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Groups.Add('Group 3');
end
|
|
121
|
How can I change the group's foreground color
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').ForeColor := $ff;
Groups.Add('Group 3');
end
|
|
120
|
How can I change the group's background color
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('<bgcolor=FF0000>Group</bgcolor> 2').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
Groups.Add('Group 3');
end
|
|
119
|
How can I change the visual appearance of the group, using EBN files
with ExplorerBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
GroupAppearance := EXPLORERBARLib_TLB.exSingle;
Groups.Add('Group 1');
Groups.Add('Group 2').BackColor := $1000000;
Groups.Add('Group 3');
end
|
|
118
|
How can I change the group's background color
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').BackColor := $ff;
Groups.Add('Group 3');
end
|
|
117
|
How do I get the index of the group
with ExplorerBar1 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
|
|
116
|
How can I underline the group's name
with ExplorerBar1 do
begin
Groups.Add('<u>Group</u> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
115
|
How can I underline the group's name
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').Underline := True;
Groups.Add('Group 3');
end
|
|
114
|
How can I show the group's name as strikeout
with ExplorerBar1 do
begin
Groups.Add('<s>Group</s> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
113
|
How can I show the group's name as strikeout
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').StrikeOut := True;
Groups.Add('Group 3');
end
|
|
112
|
How can I draw as italic the group's name
with ExplorerBar1 do
begin
Groups.Add('<i>Group</i> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
111
|
How do I draw italic the group's name
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').Italic := True;
Groups.Add('Group 3');
end
|
|
110
|
How do I bold the group's name
with ExplorerBar1 do
begin
Groups.Add('<b>Group</b> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
109
|
How do I bold the group's name
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2').Bold := True;
Groups.Add('Group 3');
end
|
|
108
|
How can I align the icon in the group's caption
with ExplorerBar1 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
Image := OleVariant(1);
ImageAlignment := EXPLORERBARLib_TLB.exRight;
Alignment := EXPLORERBARLib_TLB.exRight;
end;
end
|
|
107
|
How can I align the group's name
with ExplorerBar1 do
begin
Groups.Add('Group 1').Alignment := EXPLORERBARLib_TLB.exRight;
end
|
|
106
|
How can I align the group's name
with ExplorerBar1 do
begin
Groups.Add('Group 1').Alignment := EXPLORERBARLib_TLB.exLeft;
end
|
|
105
|
How can I assign some extra data to a group
with ExplorerBar1 do
begin
Groups.Add('Group 1').UserData := 'your data';
end
|
|
104
|
How can I display an icon in the group's caption
with ExplorerBar1 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=');
Groups.Add('Group <img>1</img> text <img>2</img>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
|
|
103
|
How can I display an icon in the group's caption
with ExplorerBar1 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=');
Groups.Add('Group 1').Image := OleVariant(1);
end
|
|
102
|
How can I access an item by its position
with ExplorerBar1 do
begin
with Groups.Add('Group 1') do
begin
AddItem('Item 1',Null);
AddItem('Item 2',Null);
AddItem('Item 3',Null).Position := 0;
ItemByPos[1].Bold := True;
Expanded := True;
end;
end
|
|
101
|
How can I change the position of a group
with ExplorerBar1 do
begin
Groups.Add('Group 1');
Groups.Add('Group 2');
Groups.Add('Group 3').Position := 0;
end
|