lazarus-ccr/components/virtualtreeview-new/trunk/demos/images/images.lpr

program images;

{$mode objfpc}{$H+}

{.$define DEBUG_VTV}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
  { add your units here }, Unit1
  {$ifdef DEBUG_VTV}
  ,ipcchannel, vtlogger
  {$endif}
  ;

{$R *.res}

begin
  {$ifdef DEBUG_VTV}
  Logger.Channels.Add(TIPCChannel.Create);
  Logger.Clear;
  Logger.ActiveClasses := [lcHeaderOffset];
  {$endif}

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.