ImageEn, unit iexUserInteractions |
|
TIEButtonInteraction.BorderWidth
Declaration
property BorderWidth: Integer;
Description
Specify the width of the outline of the
Previous and Next buttons.
You can also adjust the
border color and
transparency.
Default: 1
| Demos\Multi\MViewPreview\MViewPreview.dpr |
| Demos\Multi\MView_AttachedViewer\MViewPreview.dpr |
| Demos\InputOutput\IEViewMulti\IEViewMulti.dpr |
// Thick border
ImageEnView1.ButtonParams.BorderWidth := 3;
ImageEnView1.Update;
// No border
ImageEnView1.ButtonParams.BorderWidth := 0;
ImageEnView1.Update;
// Change event for Style combobox
procedure TForm1.cmbButtonStyleChange(Sender: TObject);
const
__cmbButtonStyle_Default = 0;
__cmbButtonStyle_BigCustom = 1;
__cmbButtonStyle_SemiTransparent = 2;
__cmbButtonStyle_Solid = 3;
begin
case cmbButtonStyle.ItemIndex of
__cmbButtonStyle_BigCustom:
begin
// Big yellow buttons with red border
ImageEnView1.ButtonParams.FillColor := clGold;
ImageEnView1.ButtonParams.FillTransparency := 255;
ImageEnView1.ButtonParams.BorderWidth := 2;
ImageEnView1.ButtonParams.BorderColor := clPastelRed;
ImageEnView1.ButtonParams.BorderTransparency := 255;
ImageEnView1.ButtonParams.Size := 40;
end;
__cmbButtonStyle_SemiTransparent:
begin
// Buttons with gray border and semi-transparent fill
ImageEnView1.ButtonParams.FillColor := clWhite;
ImageEnView1.ButtonParams.FillTransparency := 110;
ImageEnView1.ButtonParams.BorderWidth := 2;
ImageEnView1.ButtonParams.BorderColor := clDarkGray;
ImageEnView1.ButtonParams.BorderTransparency := 255;
ImageEnView1.ButtonParams.Size := 30;
end;
__cmbButtonStyle_Solid:
begin
// Solid red buttons without border
ImageEnView1.ButtonParams.FillColor := clPastelRed;
ImageEnView1.ButtonParams.FillTransparency := 255;
ImageEnView1.ButtonParams.BorderWidth := 0;
ImageEnView1.ButtonParams.BorderColor := clDarkGray;
ImageEnView1.ButtonParams.BorderTransparency := 255;
ImageEnView1.ButtonParams.Size := 30;
end;
else // __cmbButtonStyle_Default
begin
// Standard buttons with gray border and white fill
ImageEnView1.ButtonParams.FillColor := clWhite;
ImageEnView1.ButtonParams.FillTransparency := 255;
ImageEnView1.ButtonParams.BorderWidth := 1;
ImageEnView1.ButtonParams.BorderColor := clDarkGray;
ImageEnView1.ButtonParams.BorderTransparency := 255;
ImageEnView1.ButtonParams.Size := 25;
end;
end;
ImageEnView1.Update();
end;
See Also
◼ShowButtons
◼BorderColor
◼BorderTransparency
◼FillColor
◼FillTransparency
◼Size
◼Offset