View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0000219Double CommanderGraphical user interfacepublic2011-11-03 18:412017-02-08 07:36
ReporterSOLON7 Assigned To 
PriorityhighSeverityminorReproducibilityN/A
Status closedResolutionfixed 
ProjectionnoneETAnone 
PlatformWin 32OSWindows Xp OS VersionSp3
Target Version0.5.5Fixed in Version0.5.5 
Summary0000219: Красивый прогресс Свободного места
DescriptionДанный код рисует красивые прогресс свободного места !!

function Darker(Color:TColor; Percent:Byte):TColor;
var
  r, g, b: Byte;
begin
  Color:=ColorToRGB(Color);
  r:=GetRValue(Color);
  g:=GetGValue(Color);
  b:=GetBValue(Color);
  r:=r-muldiv(r,Percent,100); //процент% уменьшения яркости
  g:=g-muldiv(g,Percent,100);
  b:=b-muldiv(b,Percent,100);
  result:=RGB(r,g,b);
end;

procedure TfrmMain.sboxDrivePaint(Sender: TObject);
var
  pbxDrive: TPaintBox absolute Sender;
  indexColor: Int64;
  i: Integer;
  
  tmpcolor:tcolor;
  Rect1:trect;
begin
  indexColor:= pbxDrive.Tag;
  if indexColor <> -1 then
    begin
   
      pbxDrive.Canvas.Brush.Color:=clgray;
      pbxDrive.Canvas.FillRect (
                                 2,
                                 0,
                                 pbxDrive.Width-2,
                                 pbxDrive.Height-1);

             Rect1:=Rect (3,1,
                                pbxDrive.Width-3,
                                pbxDrive.Height-2);
             pbxDrive.Canvas.GradientFill(rect1,clSilver,clwhite
          , gdVertical);

      for i:=0 to IndexColor-2 do
        begin
          if i<=50 then pbxDrive.Canvas.Brush.Color := RGB (0+5*i,255,0)
                   else pbxDrive.Canvas.Brush.Color := RGB (255,255-5*(i-50),0);

          tmpcolor:=Darker(pbxDrive.Canvas.Brush.Color,50);

          Rect1:=Rect (3+i*(pbxDrive.Width-4) div 100, 1,
                                    4+(i+1)*(pbxDrive.Width-4) div 100,
                                    pbxDrive.Height-2);
                                    
          pbxDrive.Canvas.GradientFill(rect1,pbxDrive.Canvas.Brush.Color,tmpcolor
          , gdVertical);


        end;

    end;
end;
TagsNo tags attached.
Fixed in Revision4043
Operating systemWindows
WidgetsetWin32
Architecture32-bit

Activities

SOLON7

2011-11-03 18:41

reporter   ~0000052

Мужики Пожалуйста внедрите его в следующий БИЛД

Alexx2000

2011-11-03 19:41

administrator   ~0000053

Сделано

unauthenticated

2011-11-03 23:36

viewer   ~0000055

ай Alexx2000 спасибо, человеком будешь !!!

BabyKiller

2011-11-10 18:38

reporter   ~0000107

А как увидеть этот прогресс?

unauthenticated

2011-11-10 18:39

viewer   ~0000108

скачай ночную сборку!!!

BabyKiller

2011-11-10 18:53

reporter   ~0000110

И так стояла не старая. Скачал сегодняшнюю результат тот же, не знаю где смотреть!?

unauthenticated

2011-11-10 18:55

viewer   ~0000111

Уже давно внедрили. Смотри дату 2011-11-03 14:41.

Там была просто полоска от зеленого к красному.
Теперь она более Обьемная стала !! Мдеее

BabyKiller

2011-11-10 21:34

reporter   ~0000118

Подскажи пожалуйста где смотреть. Хоть убей не вижу ничего подобного, а очень хочется

unauthenticated

2011-11-10 21:52

viewer   ~0000120

скачай отсюда.
http://www.firebirdsql.su/dc/
на форуме, спроси!!
Тебе ответят !!

BabyKiller

2011-11-11 14:11

reporter   ~0000121

Может я не корректно выразился, но я имел ввиду, что не вижу где этот прогресс можно увидеть.
А ночные сборки я регулярно качаю, сверху ссылка Snapshots говорит сама за себя

unauthenticated

2011-11-11 17:31

viewer   ~0000122

Включить его можно примерно так (пишу по памяти): Настройки/Внешний вид окна/Индикатор свободного места

BabyKiller

2011-11-12 07:49

reporter   ~0000128

Вижу! Спасибо! :)
Индикатор нормальный, только слишком яркий, выделяется и отвлекает взгляд

Issue History

Date Modified Username Field Change
2011-11-03 18:41 SOLON7 New Issue
2011-11-03 18:41 SOLON7 Status new => assigned
2011-11-03 18:41 SOLON7 Assigned To => SOLON7
2011-11-03 18:41 SOLON7 Note Added: 0000052
2011-11-03 19:41 Alexx2000 Fixed in Revision => 4043
2011-11-03 19:41 Alexx2000 Note Added: 0000053
2011-11-03 19:41 Alexx2000 Status assigned => resolved
2011-11-03 19:41 Alexx2000 Fixed in Version => 0.5.5
2011-11-03 19:41 Alexx2000 Resolution open => fixed
2011-11-03 23:36 unauthenticated Note Added: 0000055
2011-11-10 18:38 BabyKiller Note Added: 0000107
2011-11-10 18:39 unauthenticated Note Added: 0000108
2011-11-10 18:53 BabyKiller Note Added: 0000110
2011-11-10 18:55 unauthenticated Note Added: 0000111
2011-11-10 21:34 BabyKiller Note Added: 0000118
2011-11-10 21:52 unauthenticated Note Added: 0000120
2011-11-11 14:11 BabyKiller Note Added: 0000121
2011-11-11 17:31 unauthenticated Note Added: 0000122
2011-11-12 07:49 BabyKiller Note Added: 0000128
2012-05-13 00:09 cobines Product Version 0.6.0 =>
2012-05-13 00:09 cobines Target Version 0.6.0 => 0.5.5
2017-02-08 07:36 Alexx2000 Status resolved => closed
2017-02-08 07:36 Alexx2000 Assigned To SOLON7 =>