Steema Central

Code: Select all

uses ExtCtrls, PngImage;

procedure TForm1.Button1Click(Sender: TObject);
const NumImages = 4900; //5000;
var i: Integer;
    img: TImage;
begin
  for i:=0 to NumImages-1 do
  begin
    img:=TImage.Create(Self);
    //img.Picture.LoadFromFile('C:\tmp\32_button_green.png');
    img.Picture.Bitmap.LoadFromFile('C:\tmp\32_button_green.bmp');
    img.Parent:=Self;
  end;
end;

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
Const Quantity = 40;
Var I: Integer;
    GroupNode: TTreeNodeShape;
    UnitNode: TTreeNodeShape;
    ChannelNode: TTreeNodeShape;
    Z, Y: Integer;
Begin
  For I := 1 To Quantity Do
  Begin
    GroupNode := Tree1.AddRoot('Group ' + intToStr(I));
    GroupNode.Tag:=0;
    For Z := 1 To Quantity Do
    Begin
      UnitNode := GroupNode.AddChild('Unit ' + IntToStr(I) + ' - ' + IntToStr(Z));
      UnitNode.Tag:=1;
      For Y := 1 To 4 Do
      Begin
        ChannelNode := UnitNode.AddChild('Channel ' + IntToStr(Y));
        ChannelNode.Tag:=2;
      End;
    End;
  End;
end;

procedure TForm1.Tree1AfterDraw(Sender: TObject);
var i: Integer;
    tmpBitmap: TBitmap;
    R: TRect;
begin
  for i:=0 to Tree1.Shapes.Count-1 do
    if Tree1.Shape[i].Visible=true then
    begin
      tmpBitmap:=TBitmap.Create;
      R:=Tree1.Shape[i].ImageRect;
      ImageList1.GetBitmap(Tree1.Shape[i].Tag,tmpBitmap);
      with Tree1.Canvas do
      begin
        StretchDraw(R,tmpBitmap);
      end;
    end;
end;

Code: Select all

Tree1.HorzScrollBar.Automatic:=false;

Code: Select all

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 462
  ClientWidth = 131
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    131
    462)
  PixelsPerInch = 96
  TextHeight = 13
  object Tree1: TTree
    Left = 8
    Top = 8
    Width = 115
    Height = 446
    AllowPanning = pmNone
    Zoom.Allow = False
    TabOrder = 0
    Anchors = [akLeft, akTop, akRight, akBottom]
  end
end


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, TeeProcs, TeeTree;
type
  TForm1 = class(TForm)
    Tree1: TTree;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Var I: Integer;
    Node: TTreeNodeShape;
    Root: TTreeNodeShape;
Begin
   Root := Tree1.AddRoot('This is the root');
   For I := 1 To 50 Do
   Begin
      Node := Root.AddChild('This is a node text ' + IntToStr(I));
      Node.Border.Hide;
//      Node.Height := 26;
   End;
   Tree1.HorzScrollBar.Automatic := False;
End;

End.