Discussion :

[SergioMaster]

Bonjour,

Dans cette discussion Paul utilise un bitmap qu'il créé au moment du create.
Cependant dans le cadre d'un composant je me pose la question (devenue à la mode) du dpi. Comment gérer ça? J'avoue mon ignorance.
Quand je regarde les styles, il y a 3 images png différentes (utilisées selon le dpi) pour récupérer les éléments de dessin via des TStyleObjects

[Paul TOTH]

ah je n'ai pas publié les sources de l'application que j'avais présenté à Aix il y a quelques temps

le principe du DPI c'est plutôt simple...pendant très longtemps les écrans ont été en 96 dpi et ça ne posait pas de problème car au fur et à mesure qu'on augmentait la résolution, la densité de pixels restait sensiblement la même.

avec le 4K c'est un autre problème, il faut beaucoup plus de pixels pour remplir une zone écran d'une taille donnée...donc soit le bitmap est zoomé avec un effet de pixellisation et/ou de flou, soit il a une taille ridiculement petite.

le principe le plus simple c'est de réfléchir en 96dpi et d'appliquer un facteur de zoom en fonction du DPI réel. Donc si je veux faire un trait de 10 pixels (en 96dpi) je fais un trait de (10 * PixelPerInch) div 96Exemple:

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
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with PaintBox1.Canvas do
  begin
    Pen.Color := clRed;
    MoveTo(0, 0);
    LineTo(10, 20);
 
    Pen.Color := clBlue;
    MoveTo(0, 0);
    var x := (10 * PixelsPerInch) div 96;
    var y := (20 * PixelsPerInch) div 96;
    LineTo(x, y);
  end;
end;