BorlandTalk.com

k.edgeworth@uq.edu.au · Guest

Hi

Would like some advice on how you can preset the gamma before loading
the pictures into ImageEnView for the whole duration or need to be
change later when viewing. Basically using as a picture viewer.

The user could set thier level by either using Tedit or Tracking Bar
methods. (This part I can do easily but presetting or applying the
gammacorrection)

Here below is the sample code (very simple using Delphi3)
Gamma does nothing in this code at the momenet.

========================================================
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ieopensavedlg, StdCtrls, ieview, imageenview,
Buttons,ImageEnProc, imageenio;

type
TForm1 = class(TForm)
ImageEnView1: TImageEnView;
Button1: TButton;
OpenImageEnDialog1: TOpenImageEnDialog;
BitBtn1: TBitBtn;
ImageEnProc1: TImageEnProc;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ImageEnProc1Progress(Sender: TObject; per: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenImageEnDialog1.Execute then
begin
ImageEnView1.IO.LoadFromfile ( OpenImageEnDialog1.Filename );
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ImageEnProc1Progress(Sender: TObject; per: Integer);
begin
ImageEnProc1.GammaCorrect( 10, [iecRed,iecGreen,iecBlue] );
ImageEnProc1.Update;
end;
end.
========================================================

Regards
Ken

k.edgeworth@uq.edu.au · Guest

[email]k.edgeworth (AT) uq (DOT) edu.au[/email] wrote in message news:<a7d2a6c.0406192314.7d26504b (AT) posting (DOT) google.com>...