[DrawGrid] - Appliquer une image de fond

**K20** · 31/12/2005, 14h23

J'ai quasiment utilisé le tient

Y a juste l'implémentation qui est différente.

**LadyWasky** · 31/12/2005, 15h31

Je viens de t'envoyer un message privé

**LadyWasky** · 31/12/2005, 23h26

Héhéhé.

Cher K20,

tu as oublié :

Code :

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

Carte.Repaint;

...juste avant le end; final de ta procedure Ts_editeur.RedessinerCarte;

comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Ts_editeur.RedessinerCarte;
var
  i,j,nb_cases:Integer;
begin
  TextureGrille(Textures.Text);
  nb_cases := Nbcases;
  for i:=0 to nb_cases-1 do
    for j:=0 to nb_cases-1 do
      RemplirCase(i,j,CarteGrille.Element[i,j]);
  Carte.Repaint;
end;

En effet, sur le dernier élément à gommer, TOUTES tes cases sont vides, donc RemplirCase est TOUJOURS appelé avec comme paramètre element égal à '' (chaîne vide), du coup, dans :

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
 
procedure Ts_editeur.RemplirCase(x, y: Integer; element: string);
var
  mJPEG : TJPEGImage;
  mBitMap : TBitmap;
  ARect:TRect;
begin
  if element='' then Exit;
  mJPEG := TJPEGImage.Create;
  mBitMap := TBitmap.Create;
 
  mJPEG.LoadFromFile(element);
  mBitMap.Assign(mJPEG);  // "transforme" le JPEG en BMP
  ARect:=Bounds(x*largeur_case,y*largeur_case,largeur_case,largeur_case);
  DessinCarte.Canvas.StretchDraw(AREct,mBitMap);
 
  mJPEG.Free;
  mBitMap.Free;
 
  Carte.Repaint;
end;