mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0000235] Doesn't display free space indicator to the end.

Browse source
This commit is contained in:
cobines 2011-11-14 00:19:49 +00:00
commit 6d2fc316be
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fmain.pas
View file

@ -2870,7 +2870,7 @@ begin
ARect:= Rect(3, 1, pbxDrive.Width - 3, pbxDrive.Height - 2);
pbxDrive.Canvas.GradientFill(ARect, clSilver, clWhite, gdVertical);
for i:= 0 to IndexColor - 2 do
for i:= 0 to IndexColor - 1 do
begin
if i <= 50 then
pbxDrive.Canvas.Brush.Color:= RGB(0 + 5 * i, 255, 0)
@ -2879,8 +2879,8 @@ begin
AColor:= DarkColor(pbxDrive.Canvas.Brush.Color, 50);
ARect:= Rect(3 + i * (pbxDrive.Width - 4) div 100, 1,
4 + (i + 1) * (pbxDrive.Width - 4) div 100,
ARect:= Rect(3 + i * (pbxDrive.Width - 6) div 100, 1,
3 + (i + 1) * (pbxDrive.Width - 6) div 100,
pbxDrive.Height - 2);
pbxDrive.Canvas.GradientFill(ARect, pbxDrive.Canvas.Brush.Color,