Index: components/KASToolBar/kascombobox.pas
===================================================================
--- components/KASToolBar/kascombobox.pas	(revision 4851)
+++ components/KASToolBar/kascombobox.pas	(working copy)
@@ -28,7 +28,7 @@
 interface
 
 uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,LMessages,LCLType;
 
 type
 
@@ -42,18 +42,69 @@
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
   end;
 
+  { TPanelContainer }
+
+  {en
+     Panel that doesn't paint anything, just serves as a container for other controls.
+     It doesn't paint background so other controls cannot be transparent (for example TLabel).
+  }
+
+  TPanelContainer = class(TPanel)
+  protected
+    procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
+  public
+    constructor Create(TheOwner: TComponent); override;
+    procedure Paint; override;
+  published
+    property Align;
+    property Anchors;
+    property AutoSize;
+    property BevelInner default bvNone;
+    property BevelOuter default bvNone;
+    property BorderSpacing;
+    property BorderWidth;
+    property BorderStyle;
+    property ChildSizing;
+    property Color;
+    property Constraints;
+    property Enabled;
+    property TabStop default False;
+    property Visible;
+  end;
+
 procedure Register;
 
 implementation
 
-uses
-  LCLType;
-
 procedure Register;
 begin
-  RegisterComponents('KASComponents',[TComboBoxWithDelItems]);
+  RegisterComponents('KASComponents',[TComboBoxWithDelItems, TPanelContainer]);
 end;
 
+{ TPanelContainer }
+
+constructor TPanelContainer.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+
+  ControlStyle := ControlStyle + [csOpaque, csNoFocus] - [csCaptureMouse, csSetCaption];
+  TabStop := False;
+  FullRepaint := False;
+
+  BevelInner := bvNone;
+  BevelOuter := bvNone;
+end;
+
+procedure TPanelContainer.Paint;
+begin
+  // Don't paint anything.
+end;
+
+procedure TPanelContainer.WMEraseBkgnd(var Message: TLMEraseBkgnd);
+begin
+  Message.Result := 1; // Don't erase.
+end;
+
 { TComboBoxWithDelItems }
 
 procedure TComboBoxWithDelItems.KeyDown(var Key: Word; Shift: TShiftState);
Index: src/fmain.pas
===================================================================
--- src/fmain.pas	(revision 4851)
+++ src/fmain.pas	(working copy)
@@ -281,7 +281,7 @@
     pnlLeftTools: TPanel;
     pnlRightTools: TPanel;
     pnlRight: TPanel;
-    pnlLeft: TPanel;
+    pnlLeft: TPanelContainer;
     btnLeftDrive: TSpeedButton;
     btnLeftHome: TSpeedButton;
     btnLeftUp: TSpeedButton;
@@ -303,7 +303,7 @@
     tbDelete: TMenuItem;
     tbEdit: TMenuItem;
     mnuMain: TMainMenu;
-    pnlNotebooks: TPanel;
+    pnlNotebooks: TPanelContainer;
     pnlDisk: TPanel;
     mnuHelp: TMenuItem;
     mnuHelpAbout: TMenuItem;
@@ -426,6 +426,7 @@
     procedure miTrayIconExitClick(Sender: TObject);
     procedure miTrayIconRestoreClick(Sender: TObject);
     procedure PanelButtonClick(Button: TSpeedButton; FileView: TFileView);
+    procedure pnlLeftPaint(Sender: TObject);
     procedure tbDeleteClick(Sender: TObject);
     procedure dskLeftToolButtonClick(Sender: TObject);
     procedure dskRightToolButtonClick(Sender: TObject);
@@ -784,7 +785,11 @@
 
   nbLeft := CreateNotebook(pnlLeft, fpLeft);
   nbRight := CreateNotebook(pnlRight, fpRight);
+  pnlLeft.OnPaint  := @pnlLeftPaint;
+  pnlNotebooks.OnPaint := @pnlLeftPaint;
+  self.OnPaint := @pnlLeftPaint;
 
+
   FDrivesListPopup := TDrivesListPopup.Create(Self, Self);
   FDrivesListPopup.OnDriveSelected := @DriveListDriveSelected;
   FDrivesListPopup.OnClose := @DriveListClose;
@@ -3054,6 +3059,11 @@
   tbPaste.Visible:= bPaste;
 end;
 
+procedure TfrmMain.pnlLeftPaint(Sender: TObject);
+begin
+  writeln('Paint ', tcomponent(sender).Name);
+end;
+
 procedure TfrmMain.pnlLeftResize(Sender: TObject);
 begin
   if gDriveBar1 and gDriveBar2 and not gHorizontalFilePanels then
Index: src/fmain.lfm
===================================================================
--- src/fmain.lfm	(revision 4851)
+++ src/fmain.lfm	(working copy)
@@ -20,7 +20,7 @@
   SessionProperties = 'nbConsole.Height;seLogWindow.Height'
   ShowHint = True
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.30.4'
+  LCLVersion = '1.1'
   Visible = True
   object MainToolBar: TKASToolBar
     AnchorSideTop.Control = Owner
@@ -119,7 +119,7 @@
       end
     end
   end
-  object pnlNotebooks: TPanel
+  object pnlNotebooks: TPanelContainer
     Left = 0
     Height = 157
     Top = 46
@@ -130,7 +130,7 @@
     FullRepaint = False
     TabOrder = 1
     OnResize = pnlNotebooksResize
-    object pnlLeft: TPanel
+    object pnlLeft: TPanelContainer
       Left = 1
       Height = 155
       Top = 1