[Pete Williams]

This problem goes away when DrawNonClientArea is false.

But then the app looks a little strange.

Can you provide some kind of fix for this?

[Pete Williams]

Here is the sample app[attachment=7080:title_click.zip]

[Pete Williams]

That is absolutely awesome, thank you. Will report back to confirm.

'CheshireCat' wrote:

Hello Pete,

maybe that's a solution for you:

Code:

uses
sSkinManager, sEdit, GraphUtil;

type

TsEdit = Class(sEdit.TsEdit)
procedure WndProc(var Message: TMessage); override;
end;

procedure TsEdit.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_PAINT:
begin
if ReadOnly then
begin
SkinData.CustomColor := True;
Color := ColorAdjustLuma(ColorToRGB(Form1.sSkinManager1.Palette[pcEditBG]), -25, True);
end else SkinData.CustomColor := False;
end;
end;
inherited WndProc(Message);
end;

Example:

[attachment=6726:sEdit.jpg]

[Pete Williams]

That works, thank you.

For anyone else using this control, the tsPanel control displays with a border which doesn't look good in all case. Just change the skins property to CHECKBOX and it goes away.

[Pete Williams]

Thanks worked! So simple!

Many thanks

'Support' wrote:

Hello!

Try to place the TsSkinProvider component and change SkinData.SkinSection to 'CHECKBOX' there.

(Or to 'TRANSPARENT' if you uses version 9).

I hope, I understood your question correctly. If not, then show a screenshot or a demo, please.

[Pete Williams]

Hi Uwe

Thanks for the reply, but I'm porting a large application. I think changing to frames is something I cannot do.

Pete.

'mol' wrote:

Pete,

Use frames instead of forms. Much easier to handle in a complex application IMO.

-Uwe

[Pete Williams]

Darren,

Thanks a lot. I've done exactly what you suggested.

The skin provider in on an ancestor, and the skin manager is opened onto an invisible window when the app starts. Each provider references the Manager component directly.

To noobs like me: do this early. It's the right way to go, but I had to change some code part-way through.

[Pete Williams]

'CheshireCat' wrote:

Hello and welcome,

you can find a demo for this control in the “Demo App” section …

… or click on the following link 🙂

http://www.alphaskins.com/sfiles/demos/categorypanel.zip

Perfect – thanks for the tip. That gave me everything I needed.

[Author]

Posts