|
Boban
Yugoslavia
41 Posts |
 Posted - Nov 08 2012 : 15:59:56
|
Hi Kuri
Maybe this can help.
(Resolution)=>
procedure TMainForm.Open1Click(Sender: TObject);
var
filename: string;
begin
with ImageEnView1.IO do
begin
filename := ExecuteOpenDialog('', '', false, 1, '');
if filename <> '' then
begin
ImageEnView1.IO.LoadFromFile(filename);
Label1.Caption := IntToStr(ImageEnView1.IEBitmap.Width);
Label2.Caption := IntToStr(ImageEnView1.IEBitmap.Height);
end;
end;
end;
(Changing the resolution)=>
Edit place two components and the events OnChange connect both component with this code:
procedure TMainForm.Edit1Change(Sender: TObject);
begin
ImageEnView1.Proc.ImageResize(StrToInt(Edit1.Text), StrToInt(Edit1.Text), iehLeft, ievTop);
end;
Edit components can connect with UpDown components.
|
 |
|
Search
Resolution TImageEnView
