// 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;