ralfiii

Forum Replies Created

Viewing 20 posts - 1 through 20 (of 82 total)
  • Author
    Posts
  • in reply to: How to show progressbar in form-titlebar? #70918
    ralfiii
    Participant

    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 2 years, 5 months ago by ralfiii.
    in reply to: TsEdit.TextHint property erroneous #69825
    ralfiii
    Participant

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

    Delphi2010
    Win10

    in reply to: Scaling of containers doesn’t work #69749
    ralfiii
    Participant

    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

    in reply to: Scaling of containers doesn’t work #69423
    ralfiii
    Participant

    at runtime

    in reply to: Scaling of containers doesn’t work #69420
    ralfiii
    Participant

    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.

    in reply to: Scaling of containers doesn’t work #69412
    ralfiii
    Participant

    It’s Delphi2010

    in reply to: TsEdit loses Color when SkinDate.CustomColor is toggled #54900
    ralfiii
    Participant

    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.

    in reply to: V10.10: Major: TsCheckListBox not working #53498
    ralfiii
    Participant
    '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.

    in reply to: How to draw disabled images with TsAlphaImageList #52717
    ralfiii
    Participant
    '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.

    in reply to: How to draw disabled images with TsAlphaImageList #52705
    ralfiii
    Participant

    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

    in reply to: How to draw disabled images with TsAlphaImageList #52699
    ralfiii
    Participant

    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

    in reply to: TsAlphaImageList misbehaves when used with bmp-files #51949
    ralfiii
    Participant

    I just received the we sources, now it works.

    Thanks a lot!

    in reply to: TsAlphaImageList misbehaves when used with bmp-files #51942
    ralfiii
    Participant

    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…

    in reply to: TsAlphaImageList misbehaves when used with bmp-files #51939
    ralfiii
    Participant

    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…

    in reply to: Version 9 beta bugs #51790
    ralfiii
    Participant
    'Support' wrote:

    Hello Ralf!

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

    Yes, this solves it.

    Thanks,

    Ralf

    in reply to: TsScrollBox Scrollbar not updated when position set #51688
    ralfiii
    Participant

    Top, that does the job.

    Thanks!

    in reply to: Version 9 beta bugs #51673
    ralfiii
    Participant

    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

    in reply to: TsScrollBox Scrollbar not updated when position set #51628
    ralfiii
    Participant

    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)

    in reply to: TsSpeedButton – show caption with ellipsis #51515
    ralfiii
    Participant
    '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…

    in reply to: TsSpeedButton – show caption with ellipsis #51504
    ralfiii
    Participant

    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)

Viewing 20 posts - 1 through 20 (of 82 total)