Discussion :

[Archimède]

En effet, de toutes façons, il n'y a rien d'autre à faire...

[Roland Chastain]

j'ai tenté une autre approche mais pas mieux...j'avais déjà vu avec la FlashCL qu'il était difficile d'avoir un résultat au pixel près

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
 
procedure TStringGrid.Init(colcnt, rowcnt, width, height: integer);
var
  i, j: integer;
  w, h: Number;
begin
  colcount := colcnt;
  rowcount := rowcnt;
 
  w := Trunc(width / colcount);
  h := Trunc(height / rowcount);
 
  opaqueBackground := LightSteelBlue;
 
  for i := 0 to colcount-1 do
    for j := 0 to rowcount-1 do
    begin
      cells[i,j] := TCell.Create(self);
      cells[i,j].background := true;
      cells[i,j].backgroundColor := white;
      cells[i,j].width := w - 1;
      cells[i,j].height := h - 1;
 
      cells[i,j].left := 1 + i * w;
      cells[i,j].top := 1 + j * h;
      cells[i,j].text := '';
    end;
end;

Ingénieux !

[Archimède]

Ingénieux !

Oui, en effet, c'est encore bien vu !