* Update Unicode Demo: replace TNotebook by TPageControl + minor improvements

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1487 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/virtualtreeview-new/branches/4.8/demos/unicode/fmain.lfm

@@ -3,21 +3,25 @@ object MainForm: TMainForm
   Height = 504
   Top = 166
   Width = 613
-  Caption = 'Unicode Demo'
+  Caption = 'VirtualTreeView Unicode Demo'
   ClientHeight = 504
   ClientWidth = 613
   OnCreate = FormCreate
-  LCLVersion = '0.9.27'
-  object MainNotebook: TNotebook
+  Position = poDesktopCenter
+  LCLVersion = '0.9.31'
+  object MainNotebook: TPageControl
+    Left = 0
     Height = 504
+    Top = 0
     Width = 613
+    ActivePage = WelcomePage
     Align = alClient
-    PageIndex = 0
+    TabIndex = 0
     TabOrder = 0
-    object WelcomePage: TPage
+    object WelcomePage: TTabSheet
       Caption = 'Welcome Translations'
-      ClientWidth = 605
       ClientHeight = 478
+      ClientWidth = 605
       object WelcomeTree: TVirtualStringTree
         Left = 3
         Height = 444
@@ -25,10 +29,11 @@ object MainForm: TMainForm
         Width = 599
         Align = alClient
         BorderSpacing.Around = 3
-        BorderStyle = bsSingle
         DefaultText = 'Node'
+        Header.AutoSizeIndex = 0
         Header.Columns = <        
           item
+            Position = 0
             Text = 'Language'
             Width = 200
           end        
@@ -37,13 +42,16 @@ object MainForm: TMainForm
             Text = 'Translation'
             Width = 200
           end>
+        Header.DefaultHeight = 17
         Header.Options = [hoColumnResize, hoDrag, hoVisible]
         TabOrder = 0
         OnFreeNode = WelcomeTreeFreeNode
         OnGetText = WelcomeTreeGetText
       end
       object WelcomeTopPanel: TPanel
+        Left = 0
         Height = 28
+        Top = 0
         Width = 605
         Align = alTop
         BevelOuter = bvNone
@@ -63,19 +71,20 @@ object MainForm: TMainForm
         end
       end
     end
-    object LCLTextPage: TPage
+    object LCLTextPage: TTabSheet
       Caption = 'LCL Text'
-      ClientWidth = 605
       ClientHeight = 478
+      ClientWidth = 605
       object LCLTextTree: TVirtualStringTree
         Left = 3
         Height = 440
         Top = 3
         Width = 272
         BorderSpacing.Around = 3
-        BorderStyle = bsSingle
         DefaultText = 'Node'
+        Header.AutoSizeIndex = 0
         Header.Columns = <>
+        Header.DefaultHeight = 17
         Header.MainColumn = -1
         Header.Options = [hoColumnResize, hoDrag]
         TabOrder = 0
@@ -95,7 +104,7 @@ object MainForm: TMainForm
       end
       object TextEdit: TEdit
         Left = 284
-        Height = 23
+        Height = 21
         Top = 2
         Width = 184
         TabOrder = 2
@@ -172,6 +181,8 @@ object MainForm: TMainForm
     end
   end
   object FontDialog1: TFontDialog
+    MinFontSize = 0
+    MaxFontSize = 0
     left = 136
     top = 24
   end

components/virtualtreeview-new/branches/4.8/demos/unicode/fmain.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ExtCtrls, VirtualTrees, StdCtrls, LCLProc;
+  ExtCtrls, VirtualTrees, StdCtrls, LCLProc, ComCtrls;
 
 type
 
@@ -24,12 +24,12 @@ type
     TextComboBox: TComboBox;
     TextEdit: TEdit;
     FontDialog1: TFontDialog;
-    MainNotebook: TNotebook;
-    LCLTextPage: TPage;
+    MainNotebook: TPageControl;
+    LCLTextPage: TTabsheet;
     LCLTextTree: TVirtualStringTree;
     WelcomeTopPanel: TPanel;
     WelcomeTree: TVirtualStringTree;
-    WelcomePage: TPage;
+    WelcomePage: TTabsheet;
     procedure AddComboTextButtonClick(Sender: TObject);
     procedure AddEditTextButtonClick(Sender: TObject);
     procedure AddListTextButtonClick(Sender: TObject);

components/virtualtreeview-new/branches/4.8/demos/unicode/unicode.lpi

@@ -1,21 +1,20 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
+    <Version Value="9"/>
     <PathDelim Value="\"/>
-    <Version Value="7"/>
     <General>
-      <Flags>
-        <AlwaysBuild Value="False"/>
-        <LRSInOutputDirectory Value="False"/>
-      </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <TargetFileExt Value=".exe"/>
+      <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
     </General>
     <VersionInfo>
-      <ProjectVersion Value=""/>
+      <StringTable ProductVersion=""/>
     </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IgnoreBinaries Value="False"/>
@@ -53,8 +52,16 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="10"/>
     <PathDelim Value="\"/>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+    </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <UseAnsiStrings Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
     <Linking>
       <Options>
         <Win32>
@@ -63,6 +70,9 @@
       </Options>
     </Linking>
     <Other>
+      <CompilerMessages>
+        <UseMsgFile Value="True"/>
+      </CompilerMessages>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>

components/virtualtreeview-new/branches/4.8/demos/unicode/unicode.lpr

@@ -8,12 +8,12 @@ uses
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms
-  { you can add units after this }, fMain, LResources, virtualtreeview_package;
+  { you can add units after this }, fMain;
 
-{$IFDEF WINDOWS}{$R unicode.rc}{$ENDIF}
+
+{$R *.res}
 
 begin
-  {$I unicode.lrs}
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.Run;