[morebeauty]

Ну если любите много читать... )

Начало кода фрэйма:

Код:

unit FrameCat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, acAlphaImageList, ComCtrls, ToolWin, Module1, DBCatSystem;

type
  TfrmCat = class(TFrame)
    tv1: TTreeView;
    tlb1: TToolBar;
    btn1: TToolButton;
    il1: TsAlphaImageList;
    btn2: TToolButton;
    btn3: TToolButton;
    btn4: TToolButton;
    il2: TsAlphaImageList;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    Cat:Integer;
    procedure ActivateFrame(CatID:Integer;ViewID:boolean);
    { Public declarations }
  end;
var
  CatSys:TCatSystem;