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 :
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;
Avec lazarus 1.6 on obtient ce qu'il faut :


Et avec lazarus 1.8.2, c'est pourri :


EDIT : sous linux 64b gtk2.