ImageEn, unit iexUserInteractions |
|
TIEButtonInteraction.FillTransparency
Declaration
property FillTransparency: Integer;
Description
Specify the transparency of the
Previous and Next buttons.
You can adjust the color of the button using
FillColor
The transparency of the button border is specified by
BorderTransparency
Default: 255 (fully opaque)
| Demos\Multi\MViewPreview\MViewPreview.dpr |
| Demos\Multi\MView_AttachedViewer\MViewPreview.dpr |
| Demos\InputOutput\IEViewMulti\IEViewMulti.dpr |
ImageEnView1.ButtonParams.FillTransparency := 127; // 50% transparent
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
◼FillColor
◼BorderColor
◼BorderTransparency
◼BorderWidth
◼Size
◼Offset