Questions on framing with controller

Follow

Steven Kant

• April 20, 2020 01:09

I am using Delphi XE 10.2. I have two questions:

1. I get an access violation if I use ApplyFrame with a TwwController after setting any style (TStyleManager.SetStyle..) other than the default of 'Windows'. Is there any way around this? If I use ApplyFrame first, then change the style, it is OK.
2. Is there any way to control the color of the frame border in a wwDBEdit or other control? Does it inherit from a parent control? Is there any event I can use to change it?

0

• 

  Roy Woll

  • April 29, 2020 03:54

  1. I cannot reproduce your access violation problem.  Can you email us a simple project with the problem?

  2. The borders are drawn by windows.  In what way do you wish to change them?  They are drawn in styles, i.e. sunken, box, etc. so it is not just one color.

  0

  Comment actions Permalink
• 

  Steven Kant

  • May 02, 2020 23:30

  1. I will work on a simple project.

  2. I only want to change the color of the border line on a frame box. I realize that this is determined by the Windows theme. Is there any event that gives me access so I could change the color of the pen from the default?

  0

  Comment actions Permalink
• 

  Steven Kant

  • May 03, 2020 21:57

  I have emailed a sample project for XE10.2. To get an error, just choose a style, then ApplyFraming. Is there a way to attach the project here?

  0

  Comment actions Permalink
• 

  Roy Woll

  • May 05, 2020 05:20

  Thank you for the project. I do see a bug. I don't see a workaround, but you can modify our source in vcl.wwcommon.pas as follows. I will log this for future correction.

  function wwIsCustomStyle(Control: TControl): boolean;
  begin
   // 5/4/2020 - TwwController is not TControl so don't call wwUseThemes
    if (Control = nil) or wwIsClass(Control, 'TwwController') then
      wwIsCustomStyle := TStyleManager.IsCustomStyleActive
    else
      wwIsCustomStyle := TStyleManager.IsCustomStyleActive and
        wwUseThemes(Control);
  end;

   

  0

  Comment actions Permalink

Please sign in to leave a comment.