Declaration
procedure SetStyleEx(aStyle: TIEMStyle;
TopText : TIEImageEnMViewDefaultText;
InfoText : TIEImageEnMViewDefaultText;
BottomText : TIEImageEnMViewDefaultText;
iThumbZoom: Double = 0;
bAdjustSpacing: Boolean = True;
bAdjustStyle: Boolean = True;
bAdjustFont: Boolean = True;
bAdjustGrid: Boolean = False);
Description
Provides a shortcut method to set the style of the control to several predefined styles:
ImageEnMView1.SetStyleEx( iemsFlat, iedtNone, iedtNone, iedtFileName );
ImageEnMView1.SetStyleEx( iemsFlatAndWide, iedtFileName, iedtFilePath, iedtImageDimAndSize );
ImageEnMView1.SetStyleEx( iemsColumns, iedtFileName, iedtImageDimAndSize, iedtFileCreateDate );
ImageEnMView1.GridWidth := 1;
ImageEnMView1.SetStyleEx( iemsFilenames, iedtNone, iedtNone, iedtFileName );
Note:
◼If you have already set text for your images then you won't see the default text values you've specified above
◼An easier method is to use
AutoAdjustStyle// An application with menu items to change the view style
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageEnMView1.SetModernStyling( True );
end;
// Show Thumbs
procedure TForm1.rdbShowThumbsClick(Sender: TObject);
begin
ImageEnMView1.SetStyleEx( iemsFlat, iedtNone, iedtNone, iedtFileName, 0, True, True, True, True );
end;
// Show Large Thumbs
procedure TForm1.rdbShowLargeThumbsClick(Sender: TObject);
begin
ImageEnMView1.SetStyleEx( iemsFlat, iedtNone, iedtNone, iedtFileName, 200 );
end;
// Show Small Thumbs with Detail
procedure TForm1.rdbShowDetailsClick(Sender: TObject);
begin
ImageEnMView1.SetStyleEx( iemsFlatAndWide, iedtFileName, iedtFilePath, iedtImageDimAndSize, 0, True, True, True, True );
end;
// Show Text Columns
procedure TForm1.rdbShowColumnsClick(Sender: TObject);
begin
ImageEnMView1.SetStyleEx( iemsColumns, iedtFileName, iedtImageDimAndSize, iedtFileCreateDate, 0, True, True, True, True );
end;
// Show File List
procedure TForm1.rdbShowFileListClick(Sender: TObject);
begin
ImageEnMView1.SetStyleEx( iemsFilenames, iedtNone, iedtNone, iedtFileName, 0, True, True, True, True );
end;
| Demos\Multi\MViewStyles\MViewStyles.dpr |
See Also
◼Style◼AutoAdjustStyle◼SetModernStyling◼ThumbnailOptionsEx