Forcing a screen refresh ?

Viewing 7 posts - 1 through 7 (of 7 total)
  • Author
    Posts
  • #34141
    jerome59
    Participant

    Can you force a refresh of a screen?

    If yes, how is it done?

    SkinManager or SkinProvider?

    Thank you

    #44060
    Support
    Keymaster

    Hello Jerome

    Please explain what you mean. Repainting of skinned form?

    #44062
    jerome59
    Participant
    '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

    #44063
    Support
    Keymaster

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

    #44105
    jerome59
    Participant

    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.

    #44111
    Support
    Keymaster

    Your applications is drawn skinned after resizing only?

    You have TsSkinProvider component on this form?

    #44124
    jerome59
    Participant
    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;

Viewing 7 posts - 1 through 7 (of 7 total)
  • You must be logged in to reply to this topic.