Discussion :

[Rizzla]

Bonjour
j ai delphi 6
je developpe une application MDI
et ja i mis une image en fond de form avec un timage
(mon image et un jpeg)
j ai mis la propriete Strech a true

mais lors d un redimensionnement de ma fenetre mere le timage en fond ne se rafraichit pas !
(sauf si j ouvre une form enfant par dessus)

comment forcer le rafraichissement !
?? merci

[rbag]

Salut,

Si tu mets un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form.Refresh;

dans l'événement OnResize de ta Form ça devrait être ok...

[Rizzla]

ok merci je teste ca de suite !

[Rizzla]

bne non ca marche pas le form.refresh !
j ai toujours mon ancienne image sur la nouvelle
j ai l ancienne image non recadree qui se superpose sur le timage resizer

so ??

[Lung]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Pour texturer le fond d'une fenêtre MDI mêre (Image1 contient la texture) : 
Code: 
 
[...] 
 
  private 
    FClientInstance, FPrevClientProc: TFarProc; 
    procedure ClientWndProc(var Message: TMessage); 
 
[...] 
 
procedure TMainForm.FormCreate(Sender: TObject); 
begin 
   FClientInstance:= MakeObjectInstance(ClientWndProc); 
  FPrevClientProc:= Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC)); 
  SetWindowLong(ClientHandle, GWL_WNDPROC, Longint(FClientInstance)); 
end; 
 
procedure TMainForm.ClientWndProc(var Message: TMessage); 
var 
  DC: HDC; 
  i, j: Word; 
begin 
  with Message do 
    case Msg of 
      WM_ERASEBKGND: begin 
                       DC:= TWMEraseBkGnd(Message).DC; 
                       for j:= 0 to ClientHeight div Image1.Picture.Height do 
                         for i:= 0 to ClientWidth div Image1.Picture.Width do 
                           with Image1.Picture do 
                             BitBlt(DC, i* Width, j* Height, Width, Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY); 
                       Result:= 1; 
                     end; 
    else 
      Result:= CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam); 
    end; 
end; 
 
[...]

Voilà une réponse à une question similaire qui a été posée. Je n'ai pas testé.

[Rizzla]

repondre moi ja i deja teste cette procedure mais elle ne fonctionnait point ! ?