1. Pascal / Говнокод #23137

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    procedure TForm1.ProcListAdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  TP:TprocessInfo;
  xColor: TColor;
  xRect: TRect;
  xBitmap: TBitmap;
  I, L, R: Integer;
begin
  DefaultDraw:=False;
  TP:=TProcessInfo(Item.SubItems.Objects[0]);
  if (Item.Selected) then
  begin
    if Sender.Focused then
    begin
      if (FItemAtCursor <> -1) and (Item.Index = FItemAtCursor) then
        xColor:=clNavy
      else
        xColor:=$00C56A31;
    end
    else
      xColor:=$00D8E9EC
  end
  else
  begin
    if (TP.New<2) or (TP.Terminated<2) or (TP.Hidden) then
    begin

      if ShowDangerousProcesses then
      if TP.Hidden then
      xColor:=$00DBDBDB;

      if ShowNewProcesses then
      if TP.New <2 then
      xColor:=$001DEB2D;

      if ShowTerminatedProcesses then
      if TP.Terminated < 2 then
      xColor:=$001D2DEB;
    end
    else

    if (Item.Index mod 2 = 1) then
    xColor:=RGB(245,245,255)
    else
    xColor:=clWindow;
  end;
  Sender.Canvas.Brush.Color:=xColor;
  DefaultDraw:=True;

  if (Item.Selected) and Sender.Focused
  then Sender.Canvas.Font.Color:=clWindow
  else Sender.Canvas.Font.Color:=clWindowText;
  Sender.Canvas.FillRect(Item.DisplayRect(drLabel));
  DefaultDraw:=True;

  Exit; 

  xRect:=Item.DisplayRect(drLabel);
  Sender.Canvas.TextRect(xRect,xRect.Left+2,xRect.Top,Item.Caption);

  for I:=0 to TListView(Sender).Columns.Count-1 do
  begin
    if TListView(Sender).Columns[TListView(Sender).Columns[I].ID].Width<=0 then Continue;
    if (I=0) and (TListView(Sender).Columns[I].ID <> 0) then
    begin
      xRect.Left:=0;
      xRect.Right:=xRect.Left+TListView(Sender).Columns.Items[TListView(Sender).Columns[I].ID].Width-1;
      Sender.Canvas.FillRect(xRect);
      Sender.Canvas.TextRect(xRect,xRect.Left+2,xRect.Top,Item.SubItems[TListView(Sender).Columns[I].ID-1]);
    end
    else
    begin
    if I>0 then
    begin
      xRect.Left:=xRect.Right+1;
      xRect.Right:=xRect.Left+TListView(Sender).Columns.Items[TListView(Sender).Columns[I].ID].Width-1;
      Sender.Canvas.FillRect(xRect);
      if TListView(Sender).Columns[I].ID >0 then
      Sender.Canvas.TextRect(xRect,xRect.Left+5,xRect.Top,Item.SubItems[Pred(TListView(Sender).Columns[I].ID)])
      else
      begin
        L:=(Item.DisplayRect(drIcon).Right-Item.DisplayRect(drIcon).Left)+6;
      Sender.Canvas.TextRect(xRect,xRect.Left+L,xRect.Top, Item.Caption)
    end;
    end;

    end;
  end;
  Sender.Canvas.Brush.Color:=clWindow;
  Sender.Canvas.FillRect(Item.DisplayRect(drIcon));
  if Item.ImageIndex=-1 then Exit;
  xBitmap:=TBitmap.Create;
  TListView(Sender).SmallImages.GetBitmap(Item.ImageIndex,xBitmap);

    ListView - великий и ужасный! - в режиме OwnerDraw.
    Писал диспетчер процессов. Когда я разрешил прятать столбцы и включил свойство FullDrag, моя жизнь круто изменилась.

    Запостил: antipattern, 19 Июня 2017

    Комментарии (3) RSS

    Добавить комментарий