// Make all selected layers 1/3 size ImageEnView1.LockUpdate; for i := 0 to ImageEnView1.LayersCount - 1 do if ImageEnView1.Layers[ I ].Selected then begin ImageEnView1.Layers[ I ].Width := ImageEnView1.Layers[ I ].Width div 3; ImageEnView1.Layers[ I ].Height := ImageEnView1.Layers[ I ].Height div 3; end; ImageEnView1.LayersFixSizes( LYR_SELECTED_LAYERS ); ImageEnView1.UnlockUpdate;
// Set width to 600 while maintaining AR ar := ImageEnView1.CurrentLayer.Width / ImageEnView1.CurrentLayer.Height; ImageEnView1.CurrentLayer.Width := 600; ImageEnView1.CurrentLayer.Height := Round( 600 / ar ); ImageEnView1.Update();
// Set height to 600 while maintaining AR ar := ImageEnView1.CurrentLayer.Width / ImageEnView1.CurrentLayer.Height; ImageEnView1.CurrentLayer.Width := Round( 600 * ar ); ImageEnView1.CurrentLayer.Height := 600; ImageEnView1.Update();
// Load image so it fits within the current layer dimensions lyr := TIEImageLayer(ImageEnView1.CurrentLayer); // Lock image layer size lyr.Width := lyr.Width; lyr.Height := lyr.Height; ImageEnView1.IO.LoadFromFile( 'D:\image.jpg' ); lyr.RestoreAspectRatio();