ImageEn, unit iexUserInteractions |
|
TIEButtonInteraction.BorderColor
Declaration
property BorderColor: TColor;
Description
Specify the outline color of the
Previous and Next buttons.
You can also adjust the
border width and
transparency.
The color of the button fill is specified by
FillColor
Default: clDarkGray
| Demos\Multi\MViewPreview\MViewPreview.dpr |
| Demos\Multi\MView_AttachedViewer\MViewPreview.dpr |
| Demos\InputOutput\IEViewMulti\IEViewMulti.dpr |
// Red border
ImageEnView1.ButtonParams.BorderColor := clRed;
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
◼BorderTransparency
◼BorderWidth
◼FillColor
◼FillTransparency
◼Size
◼Offset