kIRC/qChanList.pas at master · corecoding/kIRC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit qChanList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, ElTree;

type
  TCHList = class(TForm)
    Close: TButton;
    Status: TPanel;
    List: TElTree;
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CloseClick(Sender: TObject);
  private
  public
    UserCount: Integer;
  end;

var
  CHList: TCHList;

implementation

{$R *.DFM}

procedure TCHList.FormResize(Sender: TObject);
begin
  Self.List.HeaderSections.Item[2].Width := Self.Width - 140;
  Self.List.Height := Self.Height - 60;
  Self.Close.Top := Self.List.Height + 5;
  Self.Close.Left := 5;
  Self.Status.Top := Self.Close.Top;
  Self.Status.Left := Self.Width - Self.Status.Width - 10;
end;

procedure TCHList.FormCreate(Sender: TObject);
begin
  UserCount := 0;
  Self.List.Width := Self.Width - 8;
  FormResize(Nil);
end;

procedure TCHList.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  Self.Release;
end;

procedure TCHList.CloseClick(Sender: TObject);
begin
  Self.Release;
end;

end.