Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Flash Pascal Discussion :

Limites du trackbar avec onMouseWheel


Sujet :

Flash Pascal

  1. #21
    Membre expérimenté
    En effet, de toutes façons, il n'y a rien d'autre à faire...

  2. #22
    Rédacteur/Modérateur

    Citation Envoyé par Paul TOTH Voir le message
    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 !

  3. #23
    Membre expérimenté
    Citation Envoyé par Roland Chastain Voir le message
    Ingénieux !
    Oui, en effet, c'est encore bien vu !