[prefont]

Has anyone used TJSDialog with Alphacontrols?

http://www.jed-software.com/jsd.htm

When skins are active, the dialogs using TJSdialog have a blank client area. I will try to insert some graphics:

Unskinned:

Skinned:

I do have the source code to TJSDialog, but I am not quite sure where to start. Any help much appreciated.

[Neon]

You can try this code, maybe this is what you need:

CODE

sSkinManager1.SkinningRules := sSkinManager1.SkinningRules – [srDialogs];
JsDialog1.ShowModal();
sSkinManager1.SkinningRules := sSkinManager1.SkinningRules + [srDialogs];

[prefont]

Thanks – the TJSDialog uses a TForm on XP to emulate the Vista TaskDialog, so using the below worked to show the dialog as normal:

sSkinManager1.SkinningRules := sSkinManager1.SkinningRules – [srStdForms];
..show dialog
sSkinManager1.SkinningRules := sSkinManager1.SkinningRules + [srStdForms];

Now I need to learn how I can skin the dialog so that it matches the current skinning. I might need to just replace the TJSDialog component and go back to regular dialog boxes.

[Neon]

Yeah, that's really good question. The AdvTaskDialog from TMS has the same problem and I suppose that can't be done right now…

P.S. I'm done with Delphi now, so my advices are not always correct <img src="style_emoticons//rolleyes.gif” style=”vertical-align:middle” emoid=”:roll:” border=”0″ alt=”rolleyes.gif” />

[prefont]

I really appreciate the tip – thanks!

[Author]

Posts