[Support]

Hello Jerome

Please explain what you mean. Repainting of skinned form?

[jerome59]

'Support' wrote:

Hello Jerome

Please explain what you mean. Repainting of skinned form?

When my window appears, it is not skinned.

– If I move to the outside of the screen and I did it reappear, it is skinned.

– If I run another application in the foreground, when I return to my application, my application window is skinned.

– If I reduce my window in the taskbar and then I reactive, it is skinned.

I think a refresh problem.

Sorry for my English

[Support]

We can talk in Minichat now : http://www.alphaskin….php?app=ipchat

[jerome59]

Here is an example of the window

1 – The window appears : Not_skin.bmp

2 – I resize the window (bottom right corner) : Skin.bmp

There is a refresh problem or something like that.

[Support]

Your applications is drawn skinned after resizing only?

You have TsSkinProvider component on this form?

[jerome59]

Quote:

Your applications is drawn skinned after resizing only?

Yes

Quote:

You have TsSkinProvider component on this form?

My page inherits from another form. The basic form is an MDI form.

TsSkinProvider component is deposited on the basic form because when I lay on TsSkinProvider inherited form, I get an access violation.

Unfortunately, I do not reproduce with a test program.

I manage to fix the problem by putting the code into the plug formShow inherited.

Code:

const
ID_REFRESHFORM = WM_USER + 666;

procedure RefreshForm(var Message: TMessage); message ID_REFRESHFORM;

procedure TforAnalyseVenteStockNeg.FormShow(Sender: TObject);
begin
inherited;
PostMessage(Self.Handle, ID_REFRESHFORM, 0, 0);
end;

procedure TforAnalyseVenteStockNeg.RefreshForm(var Message: TMessage);
begin
Self.width:=Self.width +1;
Self.width:=Self.width -1;
end;

[Author]

Posts