Bonjour,
Après trois ans d'autre chose, je remets le nez dans lazarus, mais je constate ce qui me semble être une régression dans l'utilisation de canvas.Brush. Exemple :
Avec lazarus 1.6 on obtient ce qu'il faut :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.FormPaint(Sender: TObject); begin Width:=100; Height:=100; with canvas do begin brush.style:=bsSolid; brush.color:=clwhite; fillRect(0,0,100,100); brush.style:=bsFDiagonal; brush.color:=clred; fillRect(10,10,90,90) end; end;
Et avec lazarus 1.8.2, c'est pourri :
EDIT : sous linux 64b gtk2.
Partager