Version 1.8, régression Brush
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:
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 :
https://nsa39.casimages.com/img/2018...2129731684.png
Et avec lazarus 1.8.2, c'est pourri :
https://nsa39.casimages.com/img/2018...2129788128.png
EDIT : sous linux 64b gtk2.
