PicShow and background white screen

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

PicShow and background white screen

Postby shkeeper » January 27th, 2005, 8:44 am

Hi, I`m from Ukraine.

I use PicShow component for my program 'Foto Show' and I have a problem when I change picture: if I show small picture (for examle 640x480), and after it I show large picture (for example 1024x2048) I see white screen between 1-st and 2-nd picture.
Also, I can see that white screen, when I change Strach properties.

And qustions: Can I disable this white screen??? And how?

Thanks and sorry for my bad English :)
shkeeper
Member
Member
 
Posts: 2
Joined: January 27th, 2005, 8:32 am

Postby Kambiz » January 27th, 2005, 10:09 am

I guess you are using a very old version of the component, right?

If I'm wrong, please post here a sample code.
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm

Postby shkeeper » January 27th, 2005, 10:31 am

I use 3.10 version.
There are simple (part of programm):

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i:byte;
begin
if form3.PicShow1.Busy or form1.CheckBox1.Checked then exit;
If Key = VK_ESCAPE then begin EndShow; exit; end;
If Key = VK_UP then if form1.ImgNum > 0 then
form1.ImgNum:=form1.ImgNum-1
else
begin exit; end;
If (Key = VK_DOWN)or(Key = VK_SPACE)or(Key = VK_RETURN) then
if form1.ImgNum < form2.ListBox1.Items.Count-1 then
form1.ImgNum:=form1.ImgNum+1
else
begin exit; end;
If Key = VK_Home then form1.ImgNum:=0;
If Key = VK_END then form1.ImgNum:=form2.ListBox1.Items.Count-1;

if PicShow1.Busy then PicShow1.Stop;
LoadImage(form1.ImgNum);
Form3.PicShow1.Execute;
if form1.CheckBox3.Checked then form3.PicShow1.Style := random(126)+1
else form3.PicShow1.Style := 0;
end;

................

procedure TForm3.PicShow1AfterNewFrame(Sender: TObject; Picture,
Screen: TBitmap);
begin
if form1.CheckBox6.Checked then
if (PicShow1.Picture.Height < PicShow1.Height) or (PicShow1.Picture.Width < PicShow1.Width) then
begin
PicShow1.Stretch := false;
end
else
PicShow1.Stretch := true;
end;

------------------------------------
I don`t Load picture while PicShow Executing, because I don`t know number of next image. So, first I Load picture and show it immediatly.
That is all.[/b]
shkeeper
Member
Member
 
Posts: 2
Joined: January 27th, 2005, 8:32 am


Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 1 guest