Меню

[igh0st]

Сообщение от Shouldercannon

Я имел ввиду если в TreeView выбрать какой-нибудь пункт, то он выделиться (будет в сером прямоугольнике) и если при этом выделить CheckBox или нажать на кнопку, то выделение пропадёт. Как этого избежать?

TreeView1.HideSelection := False;

[DomiNick]

Сообщение от DomiNick

А пример я скоро доделываю уже...

ё... Вот память-то дырявая у меня, доделать доделал, а выложить забыл...
Немного не понял какие именно системные цвета из темы берёт квип (сделал своими), но в целом воть (кладём на форму Panel1, на панель кладём ListBox1, создаём обработчики TForm1.FormCreate и TForm1.ListBox1DrawItem, кладём на форму ImageList1 и загружаем в него картинки, заменяем текст на этот):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ExtCtrls;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Panel1: TPanel;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientWidth:=200;
ClientHeight:=400;
Panel1.Left:=10;
Panel1.Top:=10;
Panel1.Width:=153;
Panel1.Height:=386;
Panel1.Color:=TColor($00312F2A);
ListBox1.Left:=8;
ListBox1.Top:=8;
ListBox1.Width:=137;
ListBox1.Height:=368;
ListBox1.Items.Add('Îáùèå');
ListBox1.Items.Add('Ñïèñîê êîíòàêòîâ');
ListBox1.Items.Add('Ñîáûòèÿ');
ListBox1.Items.Add('Îêíî ñîîáùåíèé');
ListBox1.Items.Add('Èñòîðèÿ');
ListBox1.Items.Add('Ñòàòóñ');
ListBox1.Items.Add('Àíòè-ñïàì/ôëóä');
ListBox1.Items.Add('Çâóêè');
ListBox1.Items.Add('ßçûêè');
ListBox1.Items.Add('Ñêèíû/çíà÷êè');
ListBox1.Items.Add('ID êëèåíòà');
ListBox1.Items.Add('Âñåâèäÿùåå îêî');
ListBox1.Items.Add('Ãîðÿ÷èå êëàâèøè');
ListBox1.Style:=lbOwnerDrawVariable;
ListBox1.ItemHeight:=28;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var x, y: Integer; C: TCanvas;
begin
C:=(Control As TListBox).Canvas;
C.Font.Color:=RGB(100, 100, 100);
If (odFocused in State) Then
      Begin
      C.Font.Color:=RGB(255, 255, 255);
      C.Brush.Color:=RGB(47, 88, 105);
      C.Pen.Color:=RGB(2, 144, 203);
      End
Else
      If (odSelected in State) Then
            Begin
            C.Brush.Color:=RGB(42, 64, 74);
            C.Pen.Color:=RGB(42, 64, 74);
            End
      Else
            Begin
            C.Brush.Color:=RGB(36, 40, 42);
            C.Pen.Color:=RGB(36, 40, 42);
            End;
C.Rectangle(Rect);
x:=ListBox1.ItemHeight;
y:=(x-C.TextHeight('T')) Div 2;
C.TextOut(Rect.Left+x, Rect.Top+y, ListBox1.Items[Index]);
x:=(ListBox1.ItemHeight-ImageList1.Width) Div 2;
ImageList1.Draw(C, Rect.Left+x, Rect.Top+x, Index);
if odFocused in State then DrawFocusRect(C.Handle, Rect);
end;

end.

Я имел ввиду если в TreeView выбрать какой-нибудь пункт

Хм... Да, в TTreeView есть такое... И кажется подсказали уже как исправить...)
Но говорили то мы про TListBox... А там всё и так как надо...