pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Paint triangle according to bidimode. Issue 24575

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4133 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2015-05-17 00:57:27 +00:00
parent 4ab36a0463
commit a4502b08f6
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -13377,7 +13377,10 @@ begin
begin begin
Brush.Color := clBlack; Brush.Color := clBlack;
Pen.Color := clBlack; Pen.Color := clBlack;
Polygon([Point(2, 0), Point(6, 4), Point(2, 8)]); if BiDiMode = bdLeftToRight then
Polygon([Point(2, 0), Point(6, 4), Point(2, 8)])
else
Polygon([Point(6, 0), Point(2, 4), Point(6, 8)]);
end end
else else
begin begin

5
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -13904,7 +13904,10 @@ begin
begin begin
Brush.Color := clBlack; Brush.Color := clBlack;
Pen.Color := clBlack; Pen.Color := clBlack;
Polygon([Point(0, 2), Point(8, 2), Point(4, 6)]); if BiDiMode = bdLeftToRight then
Polygon([Point(2, 0), Point(6, 4), Point(2, 8)])
else
Polygon([Point(6, 0), Point(2, 4), Point(6, 8)]);
end end
else else
begin begin