Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 10 of 13 total
Thread Flicker
Fri, Mar 15 2019 1:28 AMPermanent Link

Allen Hunt

Is there a way to get rid of the flicker in this case?

procedure TFormMain.FormMainScroll(Sender: TObject);
begin
  BasicPanel1.Top := Self.ScrollTop + 100;
end;

Best regards,
Allen
Fri, Mar 15 2019 3:06 AMPermanent Link

Uli Becker

Allen,

> Is there a way to get rid of the flicker in this case?

I remembered a thread on that and yes: it was you asking something very
similar long time ago Smile

http://tinyurl.com/y5ug3j8x

Hope that helps.

Uli
Fri, Mar 15 2019 3:12 AMPermanent Link

Allen Hunt

Hi Uli,

< I remembered a thread on that and yes: it was you asking something very
similar long time ago Smile

I' ve got a different test case this time where the position of the image/panel changes when it is being scrolled.  It's actually a background image.

Best regards,
Allen
Fri, Mar 15 2019 4:00 AMPermanent Link

Uli Becker

Allen,

> I' ve got a different test case this time where the position of the image/panel changes when it is being scrolled.  It's actually a background image.

That's different indeed. Smile

Unless I misunderstand you: why not use a TScrollPanel and fill its
background with an image?

Uli
Fri, Mar 15 2019 4:11 AMPermanent Link

Allen Hunt

Uli,

<Unless I misunderstand you: why not use a TScrollPanel and fill its
background with an image??

I've tried that too Smile.  The feature I'm try to duplicate can be found here https://tinyurl.com/y25vv534.

When you scroll to the bottom there is an image in the background that moves up and down.  Thank you.

Best regards,
Allen
Fri, Mar 15 2019 5:14 AMPermanent Link

Uli Becker

Allen,

> I've tried that too Smile.  The feature I'm try to duplicate can be found here https://tinyurl.com/y25vv534.

Difficult to clone that in EWB.
Maybe I'll have some time left on the weekend to find a solution.

Uli
Fri, Mar 15 2019 5:44 AMPermanent Link

Allen Hunt

Uli,

<Difficult to clone that in EWB.
Maybe I'll have some time left on the weekend to find a solution.>

I would appreciate it.  Here is what I have.  You can put background images in the BasicPanelCompanySection and BasicPanelFloat panels to see it.  I wasn't successful using a TImage and changing the gradient.

I'll keep working on it too.  Thanks

Best regards,
Allen



Attachments: clone1.zip
Fri, Mar 15 2019 5:50 AMPermanent Link

Uli Becker

Allan,

just made a first attempt:

Use a ScrollPanel und set its background to the desired wallpaper image.
Set Width and Height of the background.image and SizeType to stSpecified

In the OnScroll event handler use this code:

   ScrollPanel1.Background.Image.Top := - (ScrollPanel1.Scrolltop div 10);

That works fine with small background images. With larger images the
scrolling is not smooth though. Maybe a different approch using a
separate BasicPanel and animation will help...

Uli
Fri, Mar 15 2019 6:03 AMPermanent Link

Allen Hunt

Uli,

> That works fine with small background images. With larger images the
> scrolling is not smooth though. Maybe a different approch using a
> separate BasicPanel and animation will help...

Yea I'm using a larger image as in the .zip I uploaded.  I'm doing it the same way.  I'll dabble with the animations.  I didn't think of that.

Best regards,
Allen
Fri, Mar 15 2019 8:19 AMPermanent Link

Uli Becker

Allen,

> Yea I'm using a larger image as in the .zip I uploaded.  I'm doing it the same way.  I'll dabble with the animations.  I didn't think of that.

Animations don't help in this case, I think.
If it's not necessary that the background image moves while scrolling, it would be possible by using transparent layers (preparing a sample for that later).
If you want to animate it like in https://tinyurl.com/y25vv534 I don't think it's possible with EWB at least not with a smooth animation.

Uli


 
Page 1 of 2Next Page
Jump to Page:  1 2
Image