Les composants Graphics

C'est a dire les composants qui sont dessinés à l’écran.

• Utilisation de TCanvas

Affichage : API Windows ShowScrollBar(Handle, SB_BOTH, true);

• Handle = Handle du component (TWinControl.handle)
• SB_BOTH = affichage des deux SB_HORZ et SB_VERT
• True = visible

Pour capter les scrolling, implementer les procedures suivantes

      procedure WMHScroll(var Msg: TLMScroll); message WM_HSCROLL;
      procedure WMVScroll(var Msg: TLMScroll); message WM_VSCROLL;

Le message TLMScroll contient les membres suivants:

LMessages

 TLMScroll = record
    Msg: Cardinal;
    ...
    ScrollCode: SmallInt; // code voir plus bas
    SmallPos: SmallInt;    // Position sous forme d'un SmallInt
    ScrollBar: HWND;        // Handle de la scrollbar
    ...
    Result: LRESULT;        // See remark
    Pos: LongInt;                 // Position en integer
  end;      

ScrollCodes

defines.inc

{ Scroll Bar notifications }
      SB_LINEUP = 0;
      SB_LINEDOWN = 1;
      SB_LINELEFT = 0;
      SB_LINERIGHT = 1;
      SB_PAGEUP = 2;
      SB_PAGEDOWN = 3;
      SB_PAGELEFT = 2;
      SB_PAGERIGHT = 3;
      SB_THUMBPOSITION = 4;
      SB_THUMBTRACK = 5;
      SB_ENDSCROLL = 8;
      SB_LEFT = 6;
      SB_RIGHT = 7;
      SB_BOTTOM = 7;
      SB_TOP = 6; 

L'objet Screen (TScreen) de l'unit Forms, permet de connaitre (entre autre) la taille de l’écran utilisé.

  screen.widht
  screen.height

• http://docwiki.embarcadero.com/RADStudio/Rio/fr/Utilisation_des_canevas_pour_dessiner