The ExScrollBar simulates vertical or horizontal scroll bar, slider, progress bar, volume or gauge controls and more. It supports skinning any part, ability to have additional controls above the up/left and down/right arrows, multiline tooltips, ability to put HTML text on any part of the control, owner draw feature, and more.

// Change event - Occurs when the value of the control is changed.
procedure TForm1.ScrollBar1Change(ASender: TObject; );
begin
with ScrollBar1 do
begin
OutputDebugString( 'Change' );
OutputDebugString( Value );
end
end;
with ScrollBar1 do
begin
ThumbSize := 0;
end

84:

How can I change the tooltip's border using your EBN files with a different color

with ScrollBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Background[EXSCROLLBARLib_TLB.exToolTipAppearance] := $100ffa0;
ToolTipText := 'This is just a text that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end

83:

Can I change the color for the control's border

with ScrollBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXSCROLLBARLib_TLB.AppearanceEnum($10000f8 Or Integer(EXSCROLLBARLib_TLB.Bump) Or Integer(EXSCROLLBARLib_TLB.Sunken));
end

82:

How do I change the control's border, using your EBN files

with ScrollBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXSCROLLBARLib_TLB.AppearanceEnum($1000000);
end

81:

How can I change the visual appearance of the right button usign your EBN files

Is there any property to disable the up or down button, as a disable when there is no scroll

with ScrollBar1 do
begin
DisableNoScroll := True;
end

65:

Is there any property to disable the up or down button, so user can't click it

with ScrollBar1 do
begin
EnablePart[EXSCROLLBARLib_TLB.exRightBPart] := False;
end

64:

Is there any property to disable the up or down button, so user can't click it

with ScrollBar1 do
begin
DisableNoScroll := True;
end

63:

Can I change the tooltip's border using your EBN files

with ScrollBar1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Background[EXSCROLLBARLib_TLB.exToolTipAppearance] := $1000000;
ToolTipText := 'This is just a text that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end

62:

Can I change the tooltip's background color

with ScrollBar1 do
begin
ToolTipText := 'This is <bgcolor=FF0000>just a text</bgcolor> that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end

61:

Can I change the tooltip's background color

with ScrollBar1 do
begin
Background[EXSCROLLBARLib_TLB.exToolTipBackColor] := $ff;
ToolTipText := 'This is just a text that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end

60:

Can I change the tooltip's foreground color

with ScrollBar1 do
begin
ToolTipText := 'This is <fgcolor=FF0000>just a text</fgcolor> that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end

59:

Can I change the tooltip's foreground color

with ScrollBar1 do
begin
Background[EXSCROLLBARLib_TLB.exToolTipForeColor] := $ff;
ToolTipText := 'This is just a text that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end

58:

Can I change the tooltip's width

with ScrollBar1 do
begin
BeginUpdate();
ToolTipWidth := 256;
ToolTipText := 'This is <font Tahoma;12>just a text with a different font</font> that''s displayed when the user clicks and drags the thumb to a ' +
'new position';
Value := 43;
EndUpdate();
end

57:

Can I change the tooltip's font

with ScrollBar1 do
begin
BeginUpdate();
ToolTipTitle := 'Title';
ToolTipText := 'This is <font Tahoma;12>just a text with a different font</font> that''s displayed when the user clicks and drags the thumb to a ' +
'new position';
Value := 43;
EndUpdate();
end

56:

Can I change the tooltip's font

with ScrollBar1 do
begin
BeginUpdate();
f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
with f do
begin
Name := 'Tahoma';
Size := 12;
end;
ToolTipFont := (IUnknown(f) as stdole_TLB.StdFont);
ToolTipTitle := 'Title';
ToolTipText := 'This is just a text that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
EndUpdate();
end

55:

Can I display a tooltip when user clicks the thumb and drags it to a new position

with ScrollBar1 do
begin
ToolTipTitle := 'Title';
ToolTipText := 'This is just a text that''s displayed when the user clicks and drags the thumb to a new position';
Value := 43;
end