Fórum treeview e listbox invisivel #237955

var
  Form1: TForm1;
  Bitmap: TBitmap;     <- Variavel Global

implementation

{$R *.DFM}

procedure TForm1.FormCreate (Sender: TObject);
begin
   Bitmap := TBitmap.Create;
   Bitmap.LoadFromFile (´C:\Arquivo.bmp´) ;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y, W, H: LongInt;
begin
  with Bitmap do
  begin
    W := Width;
    H := Height;
  end;
  Y := 0;
//  while Y < Height do
//  begin
    X := 0;
//    while X < Width do
//    begin
      TreeView1.Canvas.Draw(X, Y, Bitmap) ;
//      Inc(X, W) ;
//    end;
//    Inc(Y, H) ;
//  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BitMap.Free;
end;