[ralfiii]

Cool, thanks!
I found TsTitleBar is also an option to place a Plogressbar up there:

procedure TfrmDarwin.sDarwinTitleBarItems1DrawItem(Item: TacTitleBarItem;
  ADrawData: TacTitleItemDrawData);
const cTopOffset = 2;
begin
     if geProgress.Progress > 0 then
     begin
          ADrawData.Bmp.Canvas.Lock;
          OffsetViewportOrgEx(ADrawData.Bmp.Canvas.Handle, aDrawData.ARect.Left, aDrawData.ARect.Top + cTopOffset, nil );
          geProgress.Perform(WM_PAINT, WPARAM(ADrawData.Bmp.Canvas.Handle), 0);
          OffsetViewportOrgEx(ADrawData.Bmp.Canvas.Handle, -aDrawData.ARect.Left, -aDrawData.ARect.Top - cTopOffset, nil );
          ADrawData.Bmp.Canvas.Unlock;
     end;
end;

• This reply was modified 3 years, 8 months ago by ralfiii.

[ralfiii]

Yes, I tested with
AlphaControls 2020 v15.21 b484
and
AlphaControls 2019 v14.23 b474

Delphi2010
Win10

[ralfiii]

Sorry, but I need to be annoying here: Is there any news on that issue?

Does this problem not occur with newer Delphi versions?
If it’s OK with Delphi 10.4 then we might consider taking that as additional reason to upgrade our Delphi…

Thanks,
Ralf

[ralfiii]

at runtime

[ralfiii]

Oh shit. That’s REALLY bad news!
At the moment it will fail EVERY time a frame is used, right?
When you want to creating multi-sheet dialogs (to avoid having to pack everything on one single page) using frames is common practice I think.
I suppose we will not not be the only people who will stumble over that.

[ralfiii]

It’s Delphi2010

[ralfiii]

I found this bug in 10.26 and checked with newest release version.

I am quite sure it worked with Version 10.19 or 10.13

(from looking at my source versioning)

Cheers,

Ralf

'Support' wrote:

Hello

Are you sure this code was working earlier?

I'm checking it with v10.26 with same result.

I will think how to improve this behaviour.

[ralfiii]

'Support' wrote:

Hello!

Here is the patched file, please try it.

This changing will be included in the next release.

Could you provide me with a fix for the bloated-dfm-files bug?

(Sent via Mail)

I'd like to include that in the test.

I just reverted to the old version because of the 2 bugs, and don't want to switch versions too often.

[ralfiii]

'Support' wrote:

I understand what you mean, but I have no idea how to improve it at the moment. I have added this issue in ToDo list and I will think later about that.

Ok, no problem.

Thanks.

[ralfiii]

Hey!

Ok, if I call

Code:

DrawAlphaImgListDC(sAlphaImageList1, Canvas.Handle, 10, 10, 0,
0 {Blend}, 0 {GrayedCol}, 0 {State}, 1 {NumGlyphs}, False {reflect});

then the bitmap really becomes monochrome, but an icon that was completely black is still black. So it doesn't look disabled.

To get such an icon the proper look I have to call with Blend=70

But if I do that, an icon that was only in colors suddenly is extremely pale.

see attached pic.

In my case that's no problem, I know the graphics and only need it for one special case, but the way DrawAlphaImgListDC works now is not good for a general solution.

Best regards,

Ralf

[ralfiii]

Hello!

I tried that function, but I didn't manage to get grayed glyphs.

Here's the code that belongs to the screenshot from my previous post:

Code:

// The color of the pixel in the lower left corner defines the transparency color
for counter:=0 to ImageList1.Count-1 do
ImageList1.Draw(Canvas, 10,10+40*counter, counter);
for counter:=0 to ImageList1.Count-1 do
ImageList1.Draw(Canvas, 30,10+40*counter, counter, False);

for counter:=0 to sAlphaImageList1.Count-1 do
sAlphaImageList1.Draw(Canvas, 50,10+40*counter, counter);
for counter:=0 to sAlphaImageList1.Count-1 do
sAlphaImageList1.Draw(Canvas, 70,10+40*counter, counter, False);
for counter:=0 to sAlphaImageList1.Count-1 do
DrawAlphaImgListDC(sAlphaImageList1, Canvas.Handle, 90, 10+40*counter, counter,
0 {Blend}, $BEA76D {GrayedCol}, 0 {State}, 1 {NumGlyphs}, False {reflect});
for counter:=0 to sAlphaImageList1.Count-1 do
DrawAlphaImgListDC(sAlphaImageList1, Canvas.Handle, 110, 10+40*counter, counter,
50 {Blend}, clNone {GrayedCol}, 0 {State}, 1 {NumGlyphs}, False {reflect});

I didn't manage to make the GreyedCol parameter do something meaningful.

Could you change the code so the back arrow is properly grayed?

Or is the only way to draw the images transparent?

Thanks,

Ralf

[ralfiii]

I just received the we sources, now it works.

Thanks a lot!

[ralfiii]

Super, thanks.

But: The clear method doesn't work yet.

The loaded images stay in the imagelist when calling “Clear”.

If you press the button in the demo more often you'll see…

[ralfiii]

This makes the code for loading the png images a lot smaller, but I can't load a .bmp file this way.

I get this error:

---

Cannot load Unknown_small.bmp

Invalid or unexpected image format.

Help…

[ralfiii]

'Support' wrote:

Hello Ralf!

When TsSkinProvider is created dynamically, try to call the LoadInit procedure

Yes, this solves it.

Thanks,

Ralf

[ralfiii]

Top, that does the job.

Thanks!

[ralfiii]

It's quite difficult to produce a standalone-app that demostrates that bug.

However, there's a second issue that I haven't mentioned in my post and I could reproduce it with a demo-app.

Maybe the 2 are related to each other.

I've sent you the demo-app.

Attached is a short vid. showing what's wrong.

(A transparent window is created and left on the screen if there's a transparent panel on one of the created docked forms. Under Win7 the left-over form is black and therefore easier to see)

Ralf

[ralfiii]

Any news on that issue?

Now I do have a problem with a skinned VCL-scrollbox (so a TScrollbox).

When it's not skinned it works, when it's skinned it shows the same problem as the AC-scrollbox.

And with the standard VCL-component the workaround doesn't compile.

(I just tried with AC V8.53 – no improvement)

[ralfiii]

'Support' wrote:

Sorry, it's not very clear for me..

Hint windows on screenshots are good or bad?

Everything is fine, only the position of the hint could be better.

See the attached pic…

[ralfiii]

'Support' wrote:

Ralfiii, look PM: http://www.alphaskins.com/forum/index.php?app=members&module=messaging

Thanks, just tested.

Nice but: Would be even nicer if the hint would appear at the same place where cropped text was shown before.

(see screenshot of a similar function)

[Author]

Posts