ImageEn, unit iexLayerProps |
|
TIELayerProps
Properties · Methods · Events · Demos · Examples
Declaration
TIELayerProps = class(TWinControl);
Description
TIELayerProps is a TWinControl which shows properties of a layer. It is also used in the dialog when
LayersShowPropertiesDialog is called.
Note: TIELayerProps can be
localized by setting
MsgLanguage | Demos\Actions\Actions_Layers\LayerActions.dpr |
| Demos\Other\ImageEn_Dialogs\ImageEn_Dialogs.dpr |
// Display properties of the selected layer in a TImageEnView
IELayerProps1.AttachedImageEnView := ImageEnView1;
// Display properties of the layer 2
IELayerProps1.AttachedImageEnView := ImageEnView1;
IELayerProps1.LayerIndex := 2;
// Cancel any recent changes to layer properties
IELayerProps1.CancelChanges();
Layer Properties Form Example
// Example of a custom form that shows properties of a layer
// Also see: ImageEnView1.LayersShowPropertiesDialog();
// Create a form containing:
// - TIELayerProps
// - OK button with ModalResult = OK
// - Cancel button with ModalResult = mrCancel
function TMyForm.LayersShowPropertiesDialog(): Boolean;
var
dlg : TMyLayerPropsDlg;
lyrIdx: Integer;
begin
lyrIdx := ImageEnView1.LayersCurrent;
dlg := TMyLayerPropsDlg.Create( Self );
try
dlg.IELayerProps1.AttachedImageEnView := ImageEnView1;
dlg.IELayerProps1.LayerIndex := lyrIdx;
Result := dlg.ShowModal <> mrCancel;
if Result = False then
dlg.IELayerProps1.CancelChanges();
finally
FreeAndNil( dlg );
end;
end;
New Layer Properties Example 2
// Example of a custom form that allows setting properties of a new layer
// Note: The new layer is created before the dialog is shown, and removed if user clicks cancel
// Use ImageEnView1.LockUpdate/UnlockUpdate if the new layer should not be visible
// Also see: ImageEnView1.LayersNewLayerDialog();
// Create a form containing:
// - TIELayerProps
// - OK button with ModalResult = OK
// - Cancel button with ModalResult = mrCancel
function TMyForm.LayersNewLayerDialog(LayerKind: TIELayerKind): Boolean;
var
dlg : TMyLayerPropsDlg;
lyrIdx: Integer;
begin
// Append the new layer
lyrIdx := LayersAppend( LayerKind );
// Add any default props...
dlg := TMyLayerPropsDlg.Create( Self );
try
dlg.IELayerProps1.AttachedImageEnView := ImageEnView1;
dlg.IELayerProps1.LayerIndex := lyrIdx;
dlg.IELayerProps1.HeadingMode := iehCustom;
dlg.IELayerProps1.Heading := format( 'Create a new %s layer:', [ ImageEnView1.CurrentLayer.KindStr() ]);
Result := dlg.ShowModal <> mrCancel;
if Result = False then
LayersRemove( lyrIdx );
finally
FreeAndNil( dlg );
end;
end;
PropertiesMethodsEvents