Version 1.01

Author: FChrisF

README.md

@@ -10,7 +10,7 @@ while being compatible with - a part of - the LCL/VCL. It may
 concern for instance: small installation or configuration
 programs, simple tools, test programs, ... Typically, the size
 is about 1/10th with Free Pascal/Lazarus and 1/5th with Delphi
-for simple small programs.
+for small and simple programs.
 
   It's not a specific graphical library, or another widgetset.
 It's an emulation of a small subset of the standard LCL/VCL,
@@ -30,7 +30,7 @@ configuration to modify: just indicate a valid path for the
 Light LCL files into your project options, and that's it !
 
   It's available only for Windows (32 and 64 bits). It has
-been tested with FPC 2.6.x/3.x + Lazarus 1.2.x/1.4.x/1.5 and
+been tested with FPC 2.6.x/3.x + Lazarus 1.4.x/1.6 and
 Delphi 7.
 
   See "README.txt" for more pieces of information.
@@ -44,6 +44,29 @@ version 2.0. See "LICENSE.txt".
 
 ## LLCL ChangeLog
 
+* [Version 1.01] (https://github.com/FChrisF/LLCL/releases/tag/v1.0.1):
+  Main changes and additions:
+  - TStringGrid control added (Grids.pas),
+  - TIniFile class added (IniFiles.pas),
+  - TClipboard class added for text data (ClipBrd.pas),
+  - PNG images support (not enabled by default),
+  - transparent bitmaps support (not enabled by default),
+  - forms double buffering support (not enabled by default),
+  - TSelectDirectoryDialog control added (Dialog.pas) for
+    FPC/Lazarus (not enabled by default) and SelectDirectory
+    function (Dialog.pas or FileCtrl.pas),
+  - ANSI LLCL option (i.e. no UTF8 at all) added for
+    FPC/Lazarus (see in LLCLFPCInc.inc),
+  - design time only properties for controls are now
+    accessible for dynamic creation purposes. Run time
+    modifications are still not supported for them, but they
+    can now be set at run time before the corresponding
+    control is dynamically created,
+  - a few bug fixes and some minor additions/modifications.
+  Note: controls and functionalities not enabled by default
+  can be activated by defining the corresponding option(s) in
+  the option files LLCLOptions.inc.
+
 * [Version 1.00] (https://github.com/FChrisF/LLCL/releases/tag/v1.0.0):
   - Initial public release.
 

README.txt

@@ -95,7 +95,7 @@ UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
 SearchPath=..\..\sources
-Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;IndyCore70;IndySystem70;IndyProtocols70
+Packages=vcl;rtl;vclx;VclSmp;vclshlctrls
 Conditionals=
 DebugSourceDirs=
 UsePackages=0
@@ -130,13 +130,9 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
-[Excluded Packages]
-C:\WINDOWS\system32\IndyCore70.bpl=Indy 10 Core
-C:\WINDOWS\system32\IndySystem70.bpl=Indy 10 System
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=2
+Count=1
 Item0=..\..\sources
-Item1=.\LLCLUnits

demo/Delphi/LLCLTest.dof

@@ -9,14 +9,14 @@
   {$mode objfpc}{$H+}
 //  {$mode delphi}
 //  {$mode objfpc}{$modeswitch unicodestrings}{$H+}   // Requires FPC 2.7.1+
-//  {$mode delphiunicode}                             //   (See LLCL README.txt)
+//  {$mode delphiunicode}{$codepage UTF8}             //   (See LLCL README.txt)
 {$ENDIF}
 {$IFDEF FPC_OBJFPC} {$DEFINE IS_FPC_OBJFPC_MODE} {$ENDIF}
 
 interface
 
 uses
-  SysUtils, {$IFDEF FPC}FileUtil, LCLType,{$ELSE} Variants, XPMan,{$ENDIF}
+  SysUtils, {$IFDEF FPC}LazUTF8, LCLType,{$ELSE} Variants, XPMan,{$ENDIF}
   Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
   ComCtrls, Menus;
 
@@ -146,9 +146,9 @@ procedure MemoAddLineFmt(MemoCtrl: TMemo; const s: string; const Args: array of
 procedure TForm1.CreateParams(var Params : TCreateParams);
 begin
   inherited;
-  Form1.CheckBox1.InitialAlignment := taLeftJustify;    // Note: TCheckBox has an alignment
-  Form1.CheckBox3.InitialAlignment := taLeftJustify;    //    property since Lazarus 1.4
-  Form1.RadioButton2.InitialAlignment := taLeftJustify;
+  Form1.CheckBox1.Alignment := taLeftJustify;    // Note: TCheckBox has an alignment
+  Form1.CheckBox3.Alignment := taLeftJustify;    //    property since Lazarus 1.4
+  Form1.RadioButton2.Alignment := taLeftJustify;
 end;
 {$IFEND}
 {$ENDIF}
@@ -324,7 +324,6 @@ procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
   //    (Because Form1 has KeyPreview=True property)
   //    Only the character code is present here (see FormKeyDown, FormKeyUp)
   MemoAddLineFmt(Memo1,'FormKeyPress #%d ''%s''', [Ord(Key),
-    // (Note: warning for SysToUTF8 with Lazarus 1.5+ and standard LCL)
     {$if Defined(FPC) and not Defined(UNICODE)}SysToUTF8(Key){$else}Key{$ifend}]);  // Char type is not UTF8
 end;
 

demo/Delphi/Unit1.pas

@@ -14,7 +14,7 @@ object Form1: TForm1
   OnKeyUp = FormKeyUp
   OnMouseDown = FormMouseDown
   OnMouseUp = FormMouseUp
-  LCLVersion = '1.4.2.0'
+  LCLVersion = '1.4.4.0'
   object GroupBox1: TGroupBox
     Left = 8
     Height = 65

demo/FPC/unit1.lfm

@@ -9,14 +9,14 @@
   {$mode objfpc}{$H+}
 //  {$mode delphi}
 //  {$mode objfpc}{$modeswitch unicodestrings}{$H+}   // Requires FPC 2.7.1+
-//  {$mode delphiunicode}                             //   (See LLCL README.txt)
+//  {$mode delphiunicode}{$codepage UTF8}             //   (See LLCL README.txt)
 {$ENDIF}
 {$IFDEF FPC_OBJFPC} {$DEFINE IS_FPC_OBJFPC_MODE} {$ENDIF}
 
 interface
 
 uses
-  SysUtils, {$IFDEF FPC}FileUtil, LCLType,{$ELSE} Variants, XPMan,{$ENDIF}
+  SysUtils, {$IFDEF FPC}LazUTF8, LCLType,{$ELSE} Variants, XPMan,{$ENDIF}
   Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
   ComCtrls, Menus;
 
@@ -146,9 +146,9 @@ procedure MemoAddLineFmt(MemoCtrl: TMemo; const s: string; const Args: array of
 procedure TForm1.CreateParams(var Params : TCreateParams);
 begin
   inherited;
-  Form1.CheckBox1.InitialAlignment := taLeftJustify;    // Note: TCheckBox has an alignment
-  Form1.CheckBox3.InitialAlignment := taLeftJustify;    //    property since Lazarus 1.4
-  Form1.RadioButton2.InitialAlignment := taLeftJustify;
+  Form1.CheckBox1.Alignment := taLeftJustify;    // Note: TCheckBox has an alignment
+  Form1.CheckBox3.Alignment := taLeftJustify;    //    property since Lazarus 1.4
+  Form1.RadioButton2.Alignment := taLeftJustify;
 end;
 {$IFEND}
 {$ENDIF}
@@ -324,7 +324,6 @@ procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
   //    (Because Form1 has KeyPreview=True property)
   //    Only the character code is present here (see FormKeyDown, FormKeyUp)
   MemoAddLineFmt(Memo1,'FormKeyPress #%d ''%s''', [Ord(Key),
-    // (Note: warning for SysToUTF8 with Lazarus 1.5+ and standard LCL)
     {$if Defined(FPC) and not Defined(UNICODE)}SysToUTF8(Key){$else}Key{$ifend}]);  // Char type is not UTF8
 end;
 

demo/FPC/unit1.pas

@@ -12,15 +12,17 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * TReader: ReadStringInts (and StringIntProperty), ReadIntArray added
    Version 1.00:
     * Rect, EStreamError moved from SysUtils to Classes
     * TList reviewed (List, Capacity, ...)
@@ -317,6 +319,7 @@   TReader = class
     function  BooleanProperty(): boolean;
     function  IntegerProperty(): integer;
     function  StringProperty(): string;
+    function  StringIntProperty(): string;
     function  ColorProperty(): integer;
     function  BinaryProperty(var Size: integer): pointer;
     procedure IdentProperty(var aValue; aTypeInfo: pointer);
@@ -329,10 +332,12 @@   TReader = class
     function  ReadUTF8String(): string;
     function  ReadWString(): string;
     procedure ReadPrefix(var Flags: TFilerFlags; var AChildPos: integer);
+    procedure AnyProperty;
     procedure ReadList;
     procedure ReadSet;
     procedure ReadStrings(Strings: TStrings);
-    procedure AnyProperty;
+    procedure ReadStringInts(Strings: TStrings);
+    procedure ReadIntArray(var IntArray: array of integer); // Read an array of integers
     property  Size: integer read fSize;
     property  Position: integer read fPosition write SetPosition;
   end;
@@ -514,6 +519,7 @@   TTypeInfo = record
 function GetTypeData(ptrTypeInfo: PTypeInfo) : PTypeData; forward;
 function GetEnumNameValue(ptrTypeInfo: PTypeInfo; const Name: string): integer; forward;
 function GetColorFromIdent(Ident: PChar): integer; forward;
+function ClassSameText(const S1, S2: string): boolean; forward;
 
 {$ifdef MSWindows}
 var
@@ -526,8 +532,7 @@ function CreateComponent(const AClassName: shortstring; AOwner: TComponent): TCo
   {$define Def_FPC_StdSys}
 {$ifend}
 {$ifdef Def_FPC_StdSys}
-function  Class_CompareText(const S1, S2: string): integer; forward;
-function  Class_SameText(const S1, S2: string): boolean; forward;
+function  Class_IntToStr(Value: integer): string; forward;
 {$endif}
 
 
@@ -550,9 +555,9 @@ function GetEnumNameValue(ptrTypeInfo: PTypeInfo; const Name: string): integer;
   case ptrTypeInfo^.Kind of
   tkBool:
     begin
-      if {$ifdef Def_FPC_StdSys}Class_CompareText{$else}CompareText{$endif}(BooleanIdents[false],Name)=0 then
+      if ClassSameText(BooleanIdents[false], Name) then
         result := 0
-      else if {$ifdef Def_FPC_StdSys}Class_CompareText{$else}CompareText{$endif}(BooleanIdents[true],Name)=0 then
+      else if ClassSameText(BooleanIdents[true], Name) then
         result := 1;
     end;
   tkEnumeration:
@@ -562,7 +567,7 @@ function GetEnumNameValue(ptrTypeInfo: PTypeInfo; const Name: string): integer;
       PS := @PT^.NameList;
       while PByte(PS)^<>0 do
         begin
-          if {$ifdef Def_FPC_StdSys}Class_CompareText{$else}CompareText{$endif}(string(PS^), Name) = 0 then
+          if ClassSameText(string(PS^), Name) then
             begin
               result := Count+PT^.MinValue;
               break;
@@ -690,40 +695,17 @@ function GetColorFromIdent(Ident: PChar): integer;
   result := clNone;
 end;
 
-{$ifdef Def_FPC_StdSys}
-function  Class_CompareText(const S1, S2: string): integer;
-var i, count, count1, count2: integer;
-var ch1, ch2: integer;
-begin
-  count1 := length(S1);
-  count2 := length(S2);
-  if count1 > count2 then
-    count := count2
-  else
-    count := count1;
-  for i:=1 to count do
-    begin
-      ch1 := ord(S1[i]);
-      ch2 := ord(S2[i]);
-      if ch1 <> ch2 then
-        begin
-          if ch1 in [ord('a')..ord('z')] then Dec(ch1, 32);
-          if ch2 in [ord('a')..ord('z')] then Dec(ch2, 32);
-          if ch1 <> ch2 then
-            begin
-              result := ch1 - ch2;
-              exit;
-            end;
-        end;
-    end;
-  result := count1 - count2;
+function ClassSameText(const S1, S2: string): boolean;
+begin
+  result := (LLCLS_CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE, S1, S2)=CSTR_EQUAL);
 end;
 
-function  Class_SameText(const S1, S2: string): boolean;
+{$ifdef Def_FPC_StdSys}
+function  Class_IntToStr(Value: integer): string;
 begin
- result := (Class_CompareText(S1, S2)=0);
+  Str(Value, result);
 end;
-{$endif}
+{$endif Def_FPC_StdSys}
 
 { TList }
 
@@ -964,7 +946,7 @@ function TStringList.IndexOf(const s: string): integer;
     if fCaseSensitive then
       begin if fListStr[i]=s then begin result := i; exit; end; end
     else
-      begin if {$ifdef Def_FPC_StdSys}Class_SameText{$else}SameText{$endif}(fListStr[i], s) then begin result := i; exit; end; end;
+      begin if ClassSameText(fListStr[i], s) then begin result := i; exit; end; end;
 end;
 
 function TStringList.IndexOfObject(item: pointer): integer;
@@ -989,7 +971,7 @@ function TStringList.IndexOfName(const ObjName: string; const Separator: string=
     begin
       Tmp := ObjName + Separator;
       for i := 0 to fCount-1 do
-        if {$ifdef Def_FPC_StdSys}Class_CompareText{$else}CompareText{$endif}(Copy(fListStr[i], 1, length(Tmp)), Tmp) = 0 then
+        if ClassSameText(Copy(fListStr[i], 1, length(Tmp)), Tmp) then
           begin
             result := i;
             exit;
@@ -1182,7 +1164,7 @@ function TStream.CopyFrom(Source: TStream; Count: integer): integer;
       Dec(Count, N);
     end;
   finally
-    FreeMem(Buffer, BufSize);
+    FreeMem(Buffer);
   end;
 end;
 
@@ -1441,6 +1423,23 @@ function TReader.StringProperty(): string;
   end;
 end;
 
+function TReader.StringIntProperty(): string;
+var ValueType: TValueType;
+begin
+  result := '';
+  ValueType := ReadValueType();
+  case ValueType of
+    vaIdent,
+    vaString:     result := ReadString();
+    vaUTF8String: result := ReadUTF8String();
+    vaWString:    result := ReadWString();
+    vaInt8  : result := {$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(ShortInt(ReadByte()));
+    vaInt16 : result := {$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(ReadWord());
+    vaInt32 : result := {$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(ReadInteger());
+    else raise EClassesError.CreateFmt(LLCL_STR_CLAS_STRING, [integer(ValueType)]);
+  end;
+end;
+
 function TReader.ColorProperty(): integer;
 var ValueType: TValueType;
 begin
@@ -1631,6 +1630,35 @@ procedure TReader.ReadStrings(Strings: TStrings);
   else Error(LLCL_STR_CLAS_LIST);
 end;
 
+// Read strings and integers (hack: integers are stored as strings)
+procedure TReader.ReadStringInts(Strings: TStrings);
+var ValueType: TValueType;
+    s: string;
+begin
+  ValueType := ReadValueType();
+  if ValueType=vaList then
+    repeat
+      s := StringIntProperty();
+      Strings.Add(s);
+    until EndOfList()
+  else Error(LLCL_STR_CLAS_LIST);
+end;
+
+// Read array of integers (array must wide enough)
+procedure TReader.ReadIntArray(var IntArray: array of integer);
+var ValueType: TValueType;
+    i: integer;
+begin
+  i := 0;
+  ValueType := ReadValueType();
+  if ValueType=vaList then
+    repeat
+      IntArray[i ] := IntegerProperty();
+      Inc(i);
+    until EndOfList()
+  else Error(LLCL_STR_CLAS_LIST);
+end;
+
 { TPersistent }
 
 function TPersistent.SubProperty(const SubPropName: string): TPersistent;
@@ -1659,21 +1687,21 @@ procedure TPersistent.ReadProperty(const PropName: string; Reader: TReader);
 {$ifdef debug}
       ValueType := ReadValueType();
       case ValueType of
-        vaInt8   : Value := IntToStr(ReadByte());
-        vaInt16  : Value := IntToStr(ReadWord());
+        vaInt8   : Value := {$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(ReadByte());
+        vaInt16  : Value := {$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(ReadWord());
         vaIdent  : Value := '"'+ReadString()+'"';
         vaString : Value := ReadString();
         vaUTF8String: Value := ReadUTF8String();
         vaWString: Value := ReadWString();
         vaFalse  : Value := '"FALSE"';
         vaTrue   : Value := '"TRUE"';
         vaBinary : begin
-                    i := ReadInteger(); Value := '('+IntToStr(i)+LLCL_STR_CLAS_BYTES;
+                    i := ReadInteger(); Value := '('+{$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(i)+LLCL_STR_CLAS_BYTES;
                     Inc(fPointer,i); Inc(fPosition,i);
                    end;
         vaList: ReadList;
         vaSet:  ReadSet;
-        else OutputDebugString(pointer(LLCL_STR_CLAS_BADVALUETYPE+IntToStr(ord(ValueType))));
+        else OutputDebugString(pointer(LLCL_STR_CLAS_BADVALUETYPE+{$ifdef Def_FPC_StdSys}Class_IntToStr{$else}IntToStr{$endif}(ord(ValueType))));
       end;
       Oem := LLCLS_StringToOem(Value);
       writeln(self.ClassName+' '+TComponent(self).Name+'.'+PropName+'='+Oem);
@@ -1874,7 +1902,7 @@ function TComponent.FindComponent(const CompName: string): TComponent;
   result := nil;
   if fComponents<>nil then
     for i := 0 to fComponents.Count-1 do
-      if {$ifdef Def_FPC_StdSys}Class_SameText{$else}SameText{$endif}(TComponent(fComponents[i]).Name, CompName) then
+      if ClassSameText(TComponent(fComponents[i]).Name, CompName) then
         begin
           result := TComponent(fComponents[i]);
           break;
@@ -1906,8 +1934,7 @@ procedure TMemoryStream.SetSize(Value: integer);
 
 destructor TMemoryStream.Destroy;
 begin
-  if Memory<>nil then
-    Freemem(Memory);
+  LLCLS_FreeMemAndNil(fMemory);
   inherited;
 end;
 

sources/Classes.pas

@@ -0,0 +1,193 @@
+unit ClipBrd;
+
+{
+         LLCL - FPC/Lazarus Light LCL
+               based upon
+         LVCL - Very LIGHT VCL
+         ----------------------------
+
+    This file is a part of the Light LCL (LLCL).
+
+    This Source Code Form is subject to the terms of the Mozilla Public
+  License, v. 2.0. If a copy of the MPL was not distributed with this
+  file, You can obtain one at http://mozilla.org/MPL/2.0/.
+
+    This Source Code Form is "Incompatible With Secondary Licenses",
+  as defined by the Mozilla Public License, v. 2.0.
+
+  Copyright (c) 2015-2016 ChrisF
+
+  Based upon the Very LIGHT VCL (LVCL):
+  Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
+  Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
+
+   Version 1.01:
+    * File creation.
+    * TClipboard/Clipboard implemented (only for text)
+}
+
+{$IFDEF FPC}
+  {$define LLCL_FPC_MODESECTION}
+  {$I LLCLFPCInc.inc}             // For mode
+  {$undef LLCL_FPC_MODESECTION}
+{$ENDIF}
+
+{$I LLCLOptions.inc}      // Options
+
+//------------------------------------------------------------------------------
+
+interface
+
+uses
+  Classes;
+
+type
+  TClipboard = class(TPersistent)
+  private
+    fOwnerHandle: THandle;
+    function  OpenClipBrd(): boolean;
+    procedure CloseClipBrd;
+    function  GetAsText(): string;
+    procedure SetAsText(const Value: string);
+    procedure SetBuffer(Format: cardinal; Buffer: pointer; Size: integer);
+  public
+    procedure Open;
+    procedure Close;
+    procedure Clear;
+    function  HasFormat(Format: cardinal): boolean;
+    function  GetAsHandle(Format: cardinal): THandle;
+    procedure SetAsHandle(Format: cardinal; Value: THandle);
+    property  AsText: string read GetAsText write SetAsText;
+  end;
+
+{$IFDEF FPC}
+const
+  CF_TEXT         = 1;
+  CF_BITMAP       = 2;
+  CF_UNICODETEXT  = 13;
+{$ENDIF}
+
+var
+  Clipboard:      TClipboard;
+
+//------------------------------------------------------------------------------
+
+implementation
+
+uses
+  LLCLOSInt, Windows,
+  Forms;
+
+{$IFDEF FPC}
+  {$PUSH} {$HINTS OFF}
+{$ENDIF}
+
+type
+  TPApplication = class(TApplication);  // To access to protected part
+
+//------------------------------------------------------------------------------
+
+{ TClipboard }
+
+function  TClipboard.OpenClipBrd(): boolean;
+begin
+  if fOwnerHandle=0 then
+    fOwnerHandle := TPApplication(Application).AppHandle;
+  result := LLCL_OpenClipboard(fOwnerHandle);
+end;
+
+procedure TClipboard.CloseClipBrd;
+begin
+  LLCL_CloseClipboard();
+end;
+
+function  TClipboard.GetAsText(): string;
+var hData: THandle;
+begin
+  result := '';
+  if not OpenClipBrd() then exit;
+  hData := LLCL_GetClipboardData(LLCLS_CLPB_GetTextFormat());
+  if hData<>0 then
+    begin
+      result := LLCLS_CLPB_GetText(LLCL_GlobalLock(hData));
+      LLCL_GlobalUnlock(hData);
+    end;
+  CloseClipBrd;
+end;
+
+procedure TClipboard.SetAsText(const Value: string);
+var lpText: pointer;
+var len: cardinal;
+begin
+  lpText := LLCLS_CLPB_SetTextPtr(Value, len);
+  SetBuffer(LLCLS_CLPB_GetTextFormat(), lpText, len);
+end;
+
+procedure TClipboard.SetBuffer(Format: cardinal; Buffer: pointer; Size: integer);
+var hMem: THandle;
+var pMem: pointer;
+begin
+  if not OpenClipBrd() then exit;
+  Clear;
+  hMem := LLCL_GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Size);
+  if hMem<>0 then
+    begin
+      pMem := LLCL_GlobalLock(hMem);
+      if Assigned(pMem) then
+        Move(Buffer^, pMem^, Size);
+      LLCL_GlobalUnlock(hMem);
+      LLCL_SetClipboardData(Format, hMem);
+      // Don't free the allocated memory
+    end;
+  CloseClipBrd;
+end;
+
+procedure TClipboard.Open;
+begin
+  OpenClipBrd();
+end;
+
+procedure TClipboard.Close;
+begin
+  CloseClipBrd;
+end;
+
+procedure TClipboard.Clear;
+begin
+  LLCL_EmptyClipboard();
+end;
+
+function  TClipboard.HasFormat(Format: cardinal): boolean;
+begin
+  result :=  LLCL_IsClipboardFormatAvailable(Format);
+end;
+
+function  TClipboard.GetAsHandle(Format: cardinal): THandle;
+begin
+  result := 0;
+  if not OpenClipBrd() then exit;
+  result := LLCL_GetClipboardData(Format);
+  Close;
+end;
+
+procedure TClipboard.SetAsHandle(Format: cardinal; Value: THandle);
+begin
+  if not OpenClipBrd() then exit;
+  Clear;
+  LLCL_SetClipboardData(Format, Value);
+  Close;
+end;
+
+//------------------------------------------------------------------------------
+
+initialization
+  Clipboard := TClipboard.Create();
+
+finalization
+  Clipboard.Free;
+
+{$IFDEF FPC}
+  {$POP}
+{$ENDIF}
+
+end.

sources/ClipBrd.pas

@@ -12,15 +12,18 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * TWinControl: notifications for child controls modified
+    * TTrackBar: 'Orientation' and 'TickStyle' properties now accessible (design time only)
    Version 1.00:
     * File creation.
     * TProgressBar implemented
@@ -59,7 +62,7 @@   TProgressBar = class(TWinControl)
     procedure SetStep(Value: integer);
   protected
     procedure CreateHandle; override;
-    procedure CreateParams(var Params : TCreateParams); override;
+    procedure CreateParams(var Params: TCreateParams); override;
     procedure ReadProperty(const PropName: string; Reader: TReader); override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -97,9 +100,9 @@   TTrackBar = class(TWinControl)
     procedure SetPageSize(Value: integer);
   protected
     procedure CreateHandle; override;
-    procedure CreateParams(var Params : TCreateParams); override;
+    procedure CreateParams(var Params: TCreateParams); override;
     procedure ReadProperty(const PropName: string; Reader: TReader); override;
-    procedure ComponentNotif(var Msg: TMessage); override;
+    function  ComponentNotif(var Msg: TMessage): boolean; override;
   public
     constructor Create(AOwner: TComponent); override;
     property  Min: integer read fMin write SetMin;
@@ -108,6 +111,8 @@   TTrackBar = class(TWinControl)
     property  Frequency: integer read fFrequency write SetFrequency;
     property  LineSize: integer read fLineSize write SetLineSize;
     property  PageSize: integer read fPageSize write SetPageSize;
+    property  Orientation: TOrientation read fOrientation write fOrientation; // Run-time modification ignored; write present only for dynamical control creation purpose
+    property  TickStyle: TTickStyle read fTickStyle write fTickStyle;         // Run-time modification ignored; write present only for dynamical control creation purpose
     property  OnChange: TNotifyEvent read EOnChange write EOnChange;
   end;
 
@@ -147,7 +152,7 @@ function LMessages_Dummy(const Msg: TLMCommand): boolean;
 
 { TProgressBar }
 
-constructor TProgressBar.Create(AOwner:TComponent);
+constructor TProgressBar.Create(AOwner: TComponent);
 begin
   inherited;
   ATType := ATTProgressBar;
@@ -166,7 +171,7 @@ procedure TProgressBar.CreateHandle;
   SetStep(fStep);
 end;
 
-procedure TProgressBar.CreateParams(var Params : TCreateParams);
+procedure TProgressBar.CreateParams(var Params: TCreateParams);
 const PROGRESS_CLASS = 'msctls_progress32';
 begin
   inherited;
@@ -237,7 +242,7 @@ procedure TProgressBar.StepBy(Value: integer);
 
 { TTrackBar }
 
-constructor TTrackBar.Create(AOwner:TComponent);
+constructor TTrackBar.Create(AOwner: TComponent);
 begin
   inherited;
   ATType := ATTTrackBar;
@@ -261,7 +266,7 @@ procedure TTrackBar.CreateHandle;
   fOnChangeOK := true;    // OnChange is now OK for being activated
 end;
 
-procedure TTrackBar.CreateParams(var Params : TCreateParams);
+procedure TTrackBar.CreateParams(var Params: TCreateParams);
 const TRACKBAR_CLASS = 'msctls_trackbar32';
 begin
   inherited;
@@ -347,9 +352,9 @@ procedure TTrackBar.SetPageSize(Value: integer);
 end;
 
 // Scroll messages coming from form
-procedure TTrackBar.ComponentNotif(var Msg: TMessage);
+function TTrackBar.ComponentNotif(var Msg: TMessage): boolean;
 begin
-  inherited;
+  result := inherited ComponentNotif(Msg);
   case Msg.Msg of
   WM_HSCROLL, WM_VSCROLL:
     if fOnChangeOK and Assigned(EOnChange) then

sources/ComCtrls.pas

@@ -12,15 +12,18 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * SelectDirectory added (for FPC/Lazarus)
+    * TSelectDirectoryDialog added for FPC/Lazarus (not enabled by default - see LLCL_OPT_USESELECTDIRECTORYDIALOG in LLCLOptions.inc)
    Version 1.00:
     * Application.BiDiMode used for ShowMessage (through Application.MessageBox)
     * TOpenDialog and TSaveDialog implemented
@@ -119,19 +122,31 @@   TSaveDialog = class(TOpenDialog)
   public
     constructor Create(AOwner: TComponent); override;
   end;
-{$endif}
+
+{$ifdef LLCL_OPT_USESELECTDIRECTORYDIALOG}
+  TSelectDirectoryDialog = class(TOpenDialog)
+  public
+    constructor Create(AOwner: TComponent); override;
+    function Execute: boolean; override;
+  end;
+{$endif LLCL_OPT_USESELECTDIRECTORYDIALOG}
+{$endif LLCL_OPT_USEDIALOG}
 
 procedure ShowMessage(const Msg: string);
+{$IFDEF FPC}    // SelectDirectory is in FileCtrl.pas for Delphi
+function  SelectDirectory(const Caption: string; const InitialDirectory: string; out Directory: string): Boolean; overload;
+{$ENDIF FPC}
 
 //------------------------------------------------------------------------------
 
 implementation
 
 uses
 {$ifdef LLCL_OPT_USEDIALOG}
-  {$IFDEF FPC}{$ELSE}CommDlg,{$ENDIF}
+  {$IFDEF FPC}FileCtrl,{$ELSE}CommDlg,{$ENDIF}
   Forms, SysUtils;
 {$else}
+  {$IFDEF FPC}FileCtrl,{$ENDIF}
   Forms;
 {$endif}
 
@@ -171,6 +186,13 @@ procedure ShowMessage(const Msg: string);
   Application.MessageBox(@Msg[1], @Application.Title[1], MB_OK or MB_ICONMASK);
 end;
 
+{$IFDEF FPC}
+function  SelectDirectory(const Caption: string; const InitialDirectory: string; out Directory: string): Boolean;
+begin
+  result := FC_SelectDirectory(Caption, InitialDirectory, [sdNewFolder, sdShowEdit, sdNewUI], Directory);
+end;
+{$ENDIF FPC}
+
 {$ifdef LLCL_OPT_USEDIALOG}
 //------------------------------------------------------------------------------
 
@@ -292,13 +314,33 @@ constructor TSaveDialog.Create(AOwner: TComponent);
   inherited;
   ATType := ATTSaveDialog;
 end;
-{$endif}
+
+{$ifdef LLCL_OPT_USESELECTDIRECTORYDIALOG}
+{ TSelectDirectoryDialog }
+
+constructor TSelectDirectoryDialog.Create(AOwner: TComponent);
+begin
+  inherited;
+  ATType := ATTSelectDirectoryDialog;
+end;
+
+function TSelectDirectoryDialog.Execute: boolean;
+var sdOptions: TSelectDirExtOpts;
+begin
+  if ofOldStyleDialog in Options then
+    sdOptions := []
+  else
+    sdOptions := [sdNewFolder, sdShowEdit, sdNewUI];
+  result := FC_SelectDirectory(fTitle, fInitialDir, sdOptions, fFileName);
+end;
+{$endif LLCL_OPT_USESELECTDIRECTORYDIALOG}
 
 //------------------------------------------------------------------------------
+{$endif}
 
 {$ifdef LLCL_OPT_USEDIALOG}
 initialization
-  RegisterClasses([TOpenDialog, TSaveDialog]);
+  RegisterClasses([TOpenDialog, TSaveDialog {$ifdef LLCL_OPT_USESELECTDIRECTORYDIALOG}, TSelectDirectoryDialog{$endif}]);
 {$endif}
 
 {$IFDEF FPC}

sources/Controls.pas

@@ -12,15 +12,19 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * TImage: Changed added (when bitmap data are changed)
+    * TImage: SetStretch modified
+    * LLCL_OPT_USEIMAGE option added (enabled by default - see LLCLOptions.inc)
    Version 1.00:
     * TImage: Show and Hide added (see TGraphicControl)
     * TImage: Stretch added
@@ -66,6 +70,7 @@
   {$I LLCLFPCInc.inc}             // For mode
   {$undef LLCL_FPC_MODESECTION}
 {$ENDIF}
+{$ifdef FPC_OBJFPC} {$define LLCL_OBJFPC_MODE} {$endif} // Object pascal mode
 
 {$I LLCLOptions.inc}      // Options
 
@@ -78,13 +83,16 @@ interface
   Classes, Controls, {$ifdef LLCL_OPT_USEMENUS}Menus,{$endif} Graphics;
 
 type
+
+{$ifdef LLCL_OPT_USEIMAGE}
   TImage = class(TGraphicControl)
   private
     fPicture: TPicture;
     fStretch: boolean;
     function  GetPicture(): TPicture;
     procedure SetPicture(APicture: TPicture);
     procedure SetStretch(const Value: boolean);
+    procedure Changed(Sender: TObject);
   protected
     procedure ReadProperty(const PropName: string; Reader: TReader); override;
     function  SubProperty(const SubPropName: string): TPersistent; override;
@@ -95,6 +103,7 @@   TImage = class(TGraphicControl)
     property  Picture: TPicture read GetPicture write SetPicture;
     property  Stretch: boolean read fStretch write SetStretch;
   end;
+{$endif LLCL_OPT_USEIMAGE}
 
   TTimer = class(TNonVisualControl)
   private
@@ -187,8 +196,10 @@ implementation
   {$PUSH} {$HINTS OFF}
 {$ENDIF}
 
+{$ifdef LLCL_OPT_USEIMAGE}
 type
   TPPicture = class(TPicture);        // To access to protected part
+{$endif LLCL_OPT_USEIMAGE}
 
 const
   NIF_MESSAGE   = $00000001;      // SysTray
@@ -217,6 +228,7 @@ function LMessages_Dummy(const Msg: TLMCommand): boolean;
 end;
 {$ENDIF FPC}
 
+{$ifdef LLCL_OPT_USEIMAGE}
 { TImage }
 
 constructor TImage.Create(AOwner: TComponent);
@@ -236,6 +248,7 @@ function TImage.GetPicture(): TPicture;
 begin
   if fPicture=nil then
     fPicture := TPicture.Create;
+  fPicture.OnChange := {$IFDEF LLCL_OBJFPC_MODE}@{$ENDIF}Changed;
   result := fPicture;
 end;
 
@@ -248,7 +261,13 @@ procedure TImage.SetStretch(const Value: boolean);
 begin
   if fStretch=Value then exit;
   fStretch := Value;
-  Show;
+  Changed(self);
+end;
+
+procedure TImage.Changed(Sender: TObject);
+begin
+  if Visible then
+    InvalidateEx(true);
 end;
 
 procedure TImage.ReadProperty(const PropName: string; Reader: TReader);
@@ -274,6 +293,7 @@ procedure TImage.Paint;
   if fPicture<>nil then
     TPPicture(fPicture).DrawRect(ClientRect, Canvas, fStretch); // not VCL standard, but works for BITMAP
 end;
+{$endif LLCL_OPT_USEIMAGE}
 
 { TTimer }
 
@@ -530,7 +550,7 @@ procedure TTrayIcon.ShowBalloonHint;
 //------------------------------------------------------------------------------
 
 initialization
-  RegisterClasses([TImage, TTimer, TTrayIcon]);
+  RegisterClasses([TTimer, TTrayIcon {$ifdef LLCL_OPT_USEIMAGE}, TImage{$endif}]);
 
 {$IFDEF FPC}
   {$POP}

sources/Dialogs.pas

@@ -0,0 +1,117 @@
+unit FileCtrl;
+
+{
+         LLCL - FPC/Lazarus Light LCL
+               based upon
+         LVCL - Very LIGHT VCL
+         ----------------------------
+
+    This file is a part of the Light LCL (LLCL).
+
+    This Source Code Form is subject to the terms of the Mozilla Public
+  License, v. 2.0. If a copy of the MPL was not distributed with this
+  file, You can obtain one at http://mozilla.org/MPL/2.0/.
+
+    This Source Code Form is "Incompatible With Secondary Licenses",
+  as defined by the Mozilla Public License, v. 2.0.
+
+  Copyright (c) 2015-2016 ChrisF
+
+  Based upon the Very LIGHT VCL (LVCL):
+  Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
+  Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
+
+   Version 1.01:
+    * File creation.
+    * SelectDirectory added (for Delphi)
+}
+
+{$IFDEF FPC}
+  {$define LLCL_FPC_MODESECTION}
+  {$I LLCLFPCInc.inc}             // For mode
+  {$undef LLCL_FPC_MODESECTION}
+{$ENDIF}
+
+{$I LLCLOptions.inc}      // Options
+
+//------------------------------------------------------------------------------
+
+interface
+
+uses
+  LLCLOSInt;
+
+type
+  TSelectDirExtOpt = (sdNewFolder, sdShowEdit, sdShowShares, sdNewUI,
+    sdShowFiles, sdValidateDir);
+  TSelectDirExtOpts = set of TSelectDirExtOpt;
+
+{$IFNDEF FPC}   // SelectDirectory is in Dialogs.pas for FPC/Lazarus
+function  SelectDirectory(const Caption: string; const Root: string; var Directory: string): boolean; overload;
+{$if CompilerVersion >= 18)}  // Delphi 2006 or after
+function  SelectDirectory(const Caption: string; const Root: string; var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): boolean; overload;
+{$ifend}
+{$ENDIF}
+
+// (Not VCL/LCL standard - Called from Dialogs.pas for FPC)
+function  FC_SelectDirectory(const Caption: string; const InitialDirectory: string; Options: TSelectDirExtOpts; var Directory: string): Boolean;
+
+//------------------------------------------------------------------------------
+
+implementation
+
+uses
+  {$IFNDEF FPC}ShlObj,{$ENDIF}
+  Forms;
+
+{$IFDEF FPC}
+  {$PUSH} {$HINTS OFF}
+{$ENDIF}
+
+//------------------------------------------------------------------------------
+
+{$IFNDEF FPC}
+function  SelectDirectory(const Caption: string; const Root: string; var Directory: string): Boolean;
+begin
+  result := FC_SelectDirectory(Caption, Root, [], Directory);
+end;
+
+{$if CompilerVersion >= 18)}  // Delphi 2006 or after
+function  SelectDirectory(const Caption: string; const Root: string; var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): boolean; overload;
+begin
+  result := FC_SelectDirectory(Caption, Root, Options, Directory);
+end;
+{$ifend}
+
+{$ENDIF}
+
+function  FC_SelectDirectory(const Caption: string; const InitialDirectory: string; Options: TSelectDirExtOpts; var Directory: string): Boolean;
+var BrowseInfo: TBrowseInfo;
+begin
+	FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
+	BrowseInfo.hwndOwner := Application.MainForm.Handle;
+  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
+  if (sdNewUI in Options) or (sdShowShares in Options) then
+    begin
+      BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_NEWDIALOGSTYLE;
+      if not (sdNewFolder in Options) then
+        BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_NONEWFOLDERBUTTON;
+      if (sdShowShares in Options) then
+        BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_SHAREABLE;
+    end;
+  if (sdShowEdit in Options) then
+    BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_EDITBOX;
+  if (sdShowFiles in Options) then
+    BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_BROWSEINCLUDEFILES;
+  if (sdValidateDir in Options) and (sdShowEdit in Options) then
+    BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_VALIDATE;
+  result := LLCLS_SH_BrowseForFolder(BrowseInfo, Caption, InitialDirectory, Directory);
+end;
+
+//------------------------------------------------------------------------------
+
+{$IFDEF FPC}
+  {$POP}
+{$ENDIF}
+
+end.

sources/ExtCtrls.pas

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
     * File creation.
     * UTF8 file functions (equivalent of SysUtils ones - mapped to LazFileutils)

sources/FileCtrl.pas

@@ -12,15 +12,19 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * Bug fix: Color in TCustomForm
+    * TForm: 'BorderStyle', 'Position' and 'FormStyle' properties now accessible (design time only)
+    * TApplication: AppHandle moved in protected part
    Version 1.00:
     * Old unused properties removed: OldCreateOrder, PixelsPerInch and TextHeight
     * IsAccel function added
@@ -177,6 +181,9 @@   TCustomForm = class(TWinControl)
     property  ActiveControl: TWinControl read fActiveControl write SetActiveControl;
     property  KeyPreview: boolean read fKeyPreview write fKeyPreview;
     property  WindowState: TWindowState read fWindowState write SetWindowState;
+    property  BorderStyle: TFormBorderStyle read fBorderStyle write fBorderStyle; // Run-time modification ignored; write present only for dynamical control creation purpose
+    property  Position: TPosition read fPosition write fPosition;                 // Run-time modification ignored; write present only for dynamical control creation purpose
+    property  FormStyle: TFormStyle read fFormStyle write fFormStyle;             // Run-time modification ignored; write present only for dynamical control creation purpose
     {$ifdef LLCL_OPT_USEMENUS}
     property  Menu: TMainMenu read fMenu write fMenu;
     {$endif}
@@ -213,7 +220,6 @@   TApplication = class(TComponent)
     {$endif}
     EOnMinimize,
     EOnRestore: TNotifyEvent;
-    function  AppHandle(): THandle;
     procedure SetTitle(const Value: string);
     procedure SetBiDiMode(const Value: TBiDiMode);
     {$ifndef DefNo_MainFormOnTaskBar}
@@ -224,6 +230,8 @@   TApplication = class(TComponent)
     {$ifdef LLCL_OPT_TOPFORM}
     procedure SetVisible(ShowCall: boolean);
     {$endif}
+  protected
+    function  AppHandle(): THandle;
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
@@ -328,7 +336,7 @@ function RPos(const SubStr : string; const S: string): cardinal;
 
 { TCustomForm }
 
-constructor TCustomForm.Create(AOwner:TComponent);
+constructor TCustomForm.Create(AOwner: TComponent);
 begin
   ATType := ATTCustomForm;    // Needed before inherited
   inherited;
@@ -427,7 +435,8 @@ procedure TCustomForm.CreateHandle;
     SetBounds(aRect.Left, aRect.Top, Width, Height);
   // UI
   if CheckWin32Version(LLCL_WIN2000_MAJ, LLCL_WIN2000_MIN) then
-    LLCL_PostMessage(Handle, WM_CHANGEUISTATE, WPARAM(UIS_INITIALIZE or ((UISF_HIDEFOCUS or UISF_HIDEACCEL) shl 16)), 0);
+    // (Clear UI states if LLCL_OPT_NESTEDGROUPBOXWINXPFIX activated)
+    LLCL_PostMessage(Handle, WM_CHANGEUISTATE, WPARAM({$ifdef LLCL_OPT_NESTEDGROUPBOXWINXPFIX}UIS_CLEAR{$else}UIS_INITIALIZE{$endif} or ((UISF_HIDEFOCUS or UISF_HIDEACCEL) shl 16)), 0);
 end;
 
 procedure TCustomForm.CreateParams(var Params : TCreateParams);
@@ -833,7 +842,6 @@ procedure TApplication.CreateHandle;
 var WndClass: TWndClass;
 var Style, ExStyle: cardinal;
 var SystemMenu: THandle;
-var sClassName: string;   // Conversion needed (especially because System and RTL are not fully Unicode for FPC)
 begin
   // Application Class
   FillChar(WndClass, SizeOf(WndClass), 0);
@@ -850,8 +858,7 @@ procedure TApplication.CreateHandle;
   ExStyle := 0;
   if (not fMainFormOnTaskBar) then
     ExStyle := ExStyle or WS_EX_APPWINDOW;
-  sClassName := string(WndClass.lpszClassName);
-  fHandle := LLCL_CreateWindowEx(ExStyle, @sClassName[1], @fTitle[1], Style,
+  fHandle := LLCL_CreateWindowEx(ExStyle, TAPPL_CLASS, @fTitle[1], Style,
     LLCL_GetSystemMetrics(SM_CXSCREEN) div 2, LLCL_GetSystemMetrics(SM_CYSCREEN) div 2,
     0, 0, 0, 0, WndClass.hInstance, nil);
   SystemMenu := LLCL_GetSystemMenu(fHandle, False);

sources/FileUtil.pas

@@ -0,0 +1,155 @@
+unit IniFiles;
+
+{
+         LLCL - FPC/Lazarus Light LCL
+               based upon
+         LVCL - Very LIGHT VCL
+         ----------------------------
+
+    This file is a part of the Light LCL (LLCL).
+
+    This Source Code Form is subject to the terms of the Mozilla Public
+  License, v. 2.0. If a copy of the MPL was not distributed with this
+  file, You can obtain one at http://mozilla.org/MPL/2.0/.
+
+    This Source Code Form is "Incompatible With Secondary Licenses",
+  as defined by the Mozilla Public License, v. 2.0.
+
+  Copyright (c) 2015-2016 ChrisF
+
+  Based upon the Very LIGHT VCL (LVCL):
+  Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
+  Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
+
+   Version 1.01:
+    * File creation.
+    * TIniFile implemented
+}
+
+{$IFDEF FPC}
+  {$define LLCL_FPC_MODESECTION}
+  {$I LLCLFPCInc.inc}             // For mode
+  {$undef LLCL_FPC_MODESECTION}
+{$ENDIF}
+
+{$I LLCLOptions.inc}      // Options
+
+//------------------------------------------------------------------------------
+
+interface
+
+uses
+  LLCLOSInt,
+  Classes, SysUTils;
+
+type
+  // (No intermediate classes used)
+  TIniFile = class(TObject)
+  private
+    fFileName: string;
+  public
+    constructor Create(const AFileName: string);
+    function  ReadString(const Section, Ident, Default: string): string; virtual;
+    procedure WriteString(const Section, Ident, Value: string); virtual;
+    function  ReadInteger(const Section, Ident: string; Default: integer): integer; virtual;
+    procedure WriteInteger(const Section, Ident: string; Value: integer); virtual;
+    function  ReadInt64(const Section, Ident: string; Default: int64): int64; virtual;
+    procedure WriteInt64(const Section, Ident: string; Value: int64); virtual;
+    function  ReadBool(const Section, Ident: string; Default: boolean): boolean; virtual;
+    procedure WriteBool(const Section, Ident: string; Value: boolean); virtual;
+    // (Caution: string date formating with LLCL SysUtils is specific)
+    function  ReadDate(const Section, Ident: string; Default: TDateTime): TDateTime; virtual;
+    procedure WriteDate(const Section, Ident: string; Value: TDateTime); virtual;
+    procedure DeleteKey(const Section, Ident: string); virtual;
+    procedure EraseSection(const Section: string); virtual;
+    property  FileName: string read fFileName;
+  end;
+
+//------------------------------------------------------------------------------
+
+implementation
+
+{$IFDEF FPC}
+  {$PUSH} {$HINTS OFF}
+{$ENDIF}
+
+{ TIniFile }
+
+constructor TIniFile.Create(const AFileName: string);
+begin
+  inherited Create();
+  if ExtractFilePath(AFileName)='' then
+    fFileName := '.\' + AFileName
+  else
+    fFileName := AFileName;
+end;
+
+function  TIniFile.ReadString(const Section, Ident, Default: string): string;
+begin
+  result := LLCLS_INI_ReadString(fFileName, Section, Ident, Default);
+end;
+
+procedure TIniFile.WriteString(const Section, Ident, Value: string);
+begin
+  LLCLS_INI_WriteString(fFileName, Section, Ident, Value);
+end;
+
+function  TIniFile.ReadInteger(const Section, Ident: string; Default: integer): integer;
+begin
+  result := StrToIntDef(ReadString(Section, Ident, ''), Default);
+end;
+
+procedure TIniFile.WriteInteger(const Section, Ident: string; Value: integer);
+begin
+  WriteString(Section, Ident, IntToStr(Value));
+end;
+
+function  TIniFile.ReadInt64(const Section, Ident: string; Default: int64): int64;
+begin
+  result := StrToInt64Def(ReadString(Section, Ident, ''), Default);
+end;
+
+procedure TIniFile.WriteInt64(const Section, Ident: string; Value: int64);
+begin
+  WriteString(Section, Ident, IntToStr(Value));
+end;
+
+function  TIniFile.ReadBool(const Section, Ident: string; Default: boolean): boolean;
+begin
+  result := (ReadInteger(Section, Ident, integer(Default))<>0);
+end;
+
+procedure TIniFile.WriteBool(const Section, Ident: string; Value: boolean);
+const BoolString: array[boolean] of string = ('0', '1');
+begin
+  WriteString(Section, Ident, BoolString[Value]);
+end;
+
+function  TIniFile.ReadDate(const Section, Ident: string; Default: TDateTime): TDateTime;
+begin
+  if not TryStrToDate(ReadString(Section, Ident, ''), result) then
+    result := Default;
+end;
+
+procedure TIniFile.WriteDate(const Section, Ident: string; Value: TDateTime);
+begin
+  WriteString(Section, Ident, DateToStr(Value));
+end;
+
+procedure TIniFile.DeleteKey(const Section, Ident: string);
+begin
+  LLCLS_INI_Delete(fFileName, @Section[1], @Ident[1]);
+end;
+
+procedure TIniFile.EraseSection(const Section: string);
+begin
+  LLCLS_INI_Delete(fFileName, @Section[1], nil);
+end;
+
+//------------------------------------------------------------------------------
+
+{$IFDEF FPC}
+  {$POP}
+{$ENDIF}
+
+end.

sources/Forms.pas

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
     * File creation.
 

sources/Graphics.pas

@@ -0,0 +1,110 @@
+unit LCLIntF;
+
+{
+         LLCL - FPC/Lazarus Light LCL
+               based upon
+         LVCL - Very LIGHT VCL
+         ----------------------------
+
+    This file is a part of the Light LCL (LLCL).
+
+    This Source Code Form is subject to the terms of the Mozilla Public
+  License, v. 2.0. If a copy of the MPL was not distributed with this
+  file, You can obtain one at http://mozilla.org/MPL/2.0/.
+
+    This Source Code Form is "Incompatible With Secondary Licenses",
+  as defined by the Mozilla Public License, v. 2.0.
+
+  Copyright (c) 2015-2016 ChrisF
+
+  Based upon the Very LIGHT VCL (LVCL):
+  Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
+  Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
+
+   Version 1.01:
+    * File creation.
+
+   Notes:
+    - very basic unit specific to FPC/Lazarus (not used with Delphi).
+}
+
+{$IFDEF FPC}
+  {$define LLCL_FPC_MODESECTION}
+  {$I LLCLFPCInc.inc}             // For mode
+  {$undef LLCL_FPC_MODESECTION}
+{$ENDIF}
+
+{$I LLCLOptions.inc}      // Options
+
+//------------------------------------------------------------------------------
+
+interface
+
+uses
+  LLCLOSInt,
+  Windows;
+
+const
+  LM_USER           = Windows.WM_USER;
+
+function  CallWindowProc(lpPrevWndFunc: TFarProc; Handle: HWND; Msg: UINT; WParam: WParam; LParam: LParam): integer;
+function  PostMessage(Handle: HWND; Msg: Cardinal; WParam: WParam; LParam: LParam): boolean;
+function  SendMessage(Handle: HWND; Msg: Cardinal; WParam: WParam; LParam: LParam): LRESULT;
+
+function  MakeLong(A, B: word): DWORD; inline;
+function  MakeWParam(l, h: word): WPARAM; inline;
+function  MakeLParam(l, h: word): LPARAM; inline;
+function  MakeLResult(l, h: word): LRESULT; inline;
+
+//------------------------------------------------------------------------------
+
+implementation
+
+{$IFDEF FPC}
+  {$PUSH} {$HINTS OFF}
+{$ENDIF}
+
+//------------------------------------------------------------------------------
+
+function  CallWindowProc(lpPrevWndFunc: TFarProc; Handle: HWND; Msg: UINT; WParam: WParam; LParam: LParam): integer;
+begin
+  result := LLCL_CallWindowProc(lpPrevWndFunc, Handle, Msg, WParam, LParam);
+end;
+
+function  PostMessage(Handle: HWND; Msg: Cardinal; WParam: WParam; LParam: LParam): boolean;
+begin
+  result := LLCL_PostMessage(Handle, Msg, WParam, LParam);
+end;
+
+function  SendMessage(Handle: HWND; Msg: Cardinal; WParam: WParam; LParam: LParam): LRESULT;
+begin
+  result := LLCL_SendMessage(Handle, Msg, WParam, LParam);
+end;
+
+function  MakeLong(A, B: word): DWORD; inline;
+begin
+  result := A or (B shl 16);
+end;
+
+function  MakeWParam(l, h: word): WPARAM; inline;
+begin
+  result := MakeLong(l, h);
+end;
+
+function  MakeLParam(l, h: word): LPARAM; inline;
+begin
+  result := MakeLong(l, h);
+end;
+
+function  MakeLResult(l, h: word): LRESULT; inline;
+begin
+  result := MakeLong(l, h);
+end;
+
+//------------------------------------------------------------------------------
+
+{$IFDEF FPC}
+  {$POP}
+{$ENDIF}
+
+end.

sources/Grids.pas

@@ -12,15 +12,17 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * RT_**** constants added (point to Windows declarations)
    Version 1.00:
     * File creation.
 
@@ -45,17 +47,33 @@ interface
 
 type
   TCreateParams = record            // Not present in Control.pas for FPC/Lazarus
-    Caption: PChar;
-    Style: cardinal;
-    ExStyle: cardinal;
-    X, Y: integer;
-    Width, Height: integer;
-    WndParent: HWnd;
-    Param: pointer;
-    WindowClass: TWndClass;
-    WinClassName: array[0..63] of Char;
+    Caption:        PChar;
+    Style:          cardinal;
+    ExStyle:        cardinal;
+    X, Y:           integer;
+    Width, Height:  integer;
+    WndParent:      HWnd;
+    Param:          pointer;
+    WindowClass:    TWndClass;
+    WinClassName:   array[0..63] of Char;
   end;
 
+const
+  RT_CURSOR         = Windows.RT_CURSOR;
+  RT_BITMAP         = Windows.RT_BITMAP;
+  RT_ICON           = Windows.RT_ICON;
+  RT_MENU           = Windows.RT_MENU;
+  RT_DIALOG         = Windows.RT_DIALOG;
+  RT_STRING         = Windows.RT_STRING;
+  RT_FONTDIR        = Windows.RT_FONTDIR;
+  RT_FONT           = Windows.RT_FONT;
+  RT_ACCELERATOR    = Windows.RT_ACCELERATOR;
+  RT_RCDATA         = Windows.RT_RCDATA;
+  RT_MESSAGETABLE   = Windows.RT_MESSAGETABLE;
+  RT_GROUP_CURSOR   = Windows.RT_GROUP_CURSOR;
+  RT_GROUP_ICON     = Windows.RT_GROUP_ICON;
+  RT_VERSION        = Windows.RT_VERSION;
+
 //------------------------------------------------------------------------------
 
 implementation

sources/IniFiles.pas

@@ -1,11 +1,11 @@
 {
-   Optional compilation directives for FPC/Lazarus
+  Optional compilation directives for FPC/Lazarus
 
-   This file is a part of the Light LCL (LLCL).
+  This file is a part of the Light LCL (LLCL).
 
-   Notes:
-    - specific to FPC/Lazarus (not used with Delphi),
-    - external file because of Delphi (i.e. $if problem).
+  Notes:
+   - specific to FPC/Lazarus (not used with Delphi),
+   - external file because of Delphi (i.e. $if problem).
 }
 
 {$ifdef LLCL_FPC_MODESECTION}
@@ -14,7 +14,12 @@
   {$mode objfpc}{$H+}
 //  {$mode delphi}
 //  {$mode objfpc}{$modeswitch unicodestrings}{$H+}   // Requires FPC 2.7.1+
-//  {$mode delphiunicode}                             // Requires FPC 2.7.1+
+//  {$mode delphiunicode}{$codepage UTF8}             // Requires FPC 2.7.1+
+
+// Specific (i.e. not LCL standard) Ansi only option (no UTF8 at all)
+//   Can't be used with any Unicode mode ({$modeswitch unicodestrings} or {$mode delphiunicode})
+//  {$define LLCL_FPC_ANSI_ONLY}
+{$IFDEF UNICODE} {$undef LLCL_FPC_ANSI_ONLY} {$ENDIF}
 
 {$else LLCL_FPC_MODESECTION}
 //------------------------------------------------------------------------------
@@ -44,18 +49,20 @@
 
 // LLCLOSInt
 {$define LLCL_MISSING_WINDOWS_DEC}    // Windows declarations missing
+{$define LLCL_FPC_UTF8_EXTINC}        // Constant message strings: UTF8 type
 {$if defined(FPC_FULLVERSION) and (FPC_FULLVERSION >= 999999)}
   {$undef LLCL_MISSING_WINDOWS_DEC}
 {$ifend}
 {$if defined(LLCL_FPC_27PLUS)}
   {$define LLCL_EXTWIN_WIDESTRUCT}    // External Windows wide structures
   {$define LLCL_FPC_CPSTRING}         // RawByteStrings have code page
-  {$ifdef EnableUTF8RTL}
-    {$define LLCL_FPC_UTF8RTL}        // Has UTF8 RTL (LCL)
+  {$define LLCL_FPC_UTF8RTL}          // Has UTF8 RTL (LCL)
+  {$ifdef DisableUTF8RTL}
+    {$undef LLCL_FPC_UTF8RTL}         // Compliant with LCL
   {$endif}
-{$else}
-  {$ifdef EnableUTF8RTL}
-    {$error EnableUTF8RTL requires FPC 2.7.1+}
+  {$ifdef LLCL_FPC_ANSI_ONLY}         // Specific to LLCL
+    {$undef LLCL_FPC_UTF8RTL}         //    "       "
+    {$undef LLCL_FPC_UTF8_EXTINC}     //    "       "
   {$endif}
 {$ifend}
 

sources/Interfaces.pp

@@ -1,17 +1,19 @@
 {
-   Main options: compilation directives
+  Main options: compilation directives
 
-   This file is a part of the Light LCL (LLCL).
-
-   Notes: Except for the Ansi/Unicode APIs options,
-   - all the following options are defined by default,
-   - undefining them usually permits to shrink a little bit
-     the size of the final executable, but with the penality
-     of having not the concerned functionnality.
+  This file is a part of the Light LCL (LLCL).
 }
 
 //------------------------------------------------------------------------------
 
+{
+  Section 1: options defined by default.
+
+    Undefining them usually permits to shrink a little bit the size
+    of the final executable, but with the penality of having not the
+    concerned functionnality.
+}
+
 {   LLCL_OPT_TOPFORM   -   Forms.pas
 
     "Top invisible" form above all forms and enhanced multi-forms support
@@ -34,14 +36,23 @@
 
 {   LLCL_OPT_USEDIALOG   -   Dialogs.pas
 
-    OpenDialog/SaveDialog used in program
+    OpenDialog/SaveDialog(/SelectDirectoryDialog) classes used in program
 
-    Notes: when undefined, this permits to use the ShowMessage function
-    without a size penality due to the TOpenDialog/TSaveDialog classes.
-    This option has no effect if the Dialogs units is not used.
+    Notes: when undefined, this permits to use the ShowMessage and the
+    SelectDirectory functions without a size penality due to the Dialog classes.
+    This option has no effect if the Dialogs unit is not used.
 }
 {$DEFINE LLCL_OPT_USEDIALOG}
 
+{   LLCL_OPT_USEIMAGE   -   ExtCtrls.pas
+
+    Image class used in program
+
+    Notes: when undefined, this permits to use the ExtCtrls unit (Timer and
+    TrayIcon controls) without a size penality due to the Image class.
+}
+{$DEFINE LLCL_OPT_USEIMAGE}
+
 {   LLCL_OPT_EXCEPTIONS   -   SysUtils.pas
 
     Support (limited) for Exceptions
@@ -58,18 +69,129 @@
 
 //------------------------------------------------------------------------------
 
+{
+  Section 2: options not defined by default.
+
+    Defining them permits to have the corresponding functionnality
+    or fix, but with the penality of having an extra size in the
+    final executable.
+}
+
+{   LLCL_OPT_USESELECTDIRECTORYDIALOG   -   Dialogs.pas
+
+    SelectDirectoryDialog class used in program
+
+    Notes: when defined, this permits to use the SelectDirectoryDialog
+    class (use preferably the SelectDirectory function instead).
+    This option has no effect if the Dialogs unit is not used,
+    or if the LLCL_OPT_USEDIALOG option is not set.
+}
+{$IFDEF FPC}
+//{$DEFINE LLCL_OPT_USESELECTDIRECTORYDIALOG}
+{$ENDIF}
+
+{   LLCL_OPT_NESTEDGROUPBOXWINXPFIX   -   Forms.pas, Controls.pas
+
+    Fix for the nested groupboxes issue with Windows XP
+
+    Notes: this concerns only Windows XP (not before and not after),
+    and only if nested groupboxes are used (font display issue).
+    When set, this option also implies that UI states (accelerators
+    and focus rectangles) are visible when the application starts
+    (which is not the standard for a Windows application).
+}
+//{$DEFINE LLCL_OPT_NESTEDGROUPBOXWINXPFIX}
+
+{   LLCL_OPT_PNGSUPPORT   -   Graphics.pas
+    LLCL_OPT_PNGSIMPLIFIED   -   LLCLPng.pas
+    LLCL_OPT_IMGTRANSPARENT   -   Graphics.pas
+    LLCL_OPT_DOUBLEBUFF   -   Control.pas
+
+    Extended graphical options
+
+    Notes:
+    - when defined, LLCL_OPT_PNGSUPPORT permits the support of
+      PNG files/resources in the TBitmap class,
+    - LLCL_OPT_PNGSIMPLIFIED (requires LLCL_OPT_PNGSUPPORT) allows only the
+      basic types of PNG files/resources: truecolour 8 bits (colour type = 2),
+      truecolour + alpha 8 bits (colour type = 6) or indexed colour 1,4,8 bits
+      (colour type = 3); with no interlaced data. Furthermore, the
+      transparency chunk data are ignored in this case,
+    - when defined, LLCL_OPT_IMGTRANSPARENT permits the support of
+      transparent images/bitmaps (only for Windows 2000 or newer),
+    - when defined, LLCL_OPT_DOUBLEBUFF permits the support of the double
+      buffering painting method for Forms (if DoubleBuffered = true),
+    - for simplification, with LLCL_OPT_EXTENDGRAPHICAL all these options
+      are defined. However, these options are completely independent and
+      may be defined individually,
+    - except for the LLCL_OPT_DOUBLEBUFF option, these options have no
+      effects if the LLCL_OPT_USEIMAGE option is not defined.
+}
+//{$DEFINE LLCL_OPT_EXTENDGRAPHICAL}
+{$IF DEFINED(LLCL_OPT_EXTENDGRAPHICAL)}
+  {$DEFINE LLCL_OPT_PNGSUPPORT}
+  //{$DEFINE LLCL_OPT_PNGSIMPLIFIED}
+  {$DEFINE LLCL_OPT_IMGTRANSPARENT}
+  {$DEFINE LLCL_OPT_DOUBLEBUFF}
+{$IFEND}
+
+//------------------------------------------------------------------------------
+
+{
+  Section 3: options with various possible values
+}
+
 {   LLCL_OPT_UNICODE_API_A/W/W_ONLY   -   LLCLOSInt.pas
 
     Windows Ansi and/or Unicode/WideString APIs to use
 
     Notes:
-    - LLCL_OPT_UNICODE_API_A: forces to use the Ansi APIs only
-    - LLCL_OPT_UNICODE_API_W: forces to use both the Ansi and the Unicode APIs
+    - LLCL_OPT_UNICODE_API_A: forces to use the Ansi APIs only (default for Delphi 7)
+    - LLCL_OPT_UNICODE_API_W: forces to use both the Ansi and the Unicode APIs (default for FPC/Lazarus)
     - LLCL_OPT_UNICODE_API_W_ONLY: forces to use the Unicode APIs only
+
     By default, these options are not concerning the Windows API calls in
     SysUtils for Free Pascal/Lazarus (see LLCL_FPC_SYSRTL in LLCLFPCInc.inc).
 }
 //{$DEFINE LLCL_OPT_UNICODE_API_A}
 //{$DEFINE LLCL_OPT_UNICODE_API_W}
 //{$DEFINE LLCL_OPT_UNICODE_API_W_ONLY}
 
+{   LLCL_OPT_GRIDSOPT_1/2/LV/ALL   -   Grids.pas
+
+    TStringGrid options
+
+    Notes:
+    - LLCL_OPT_GRIDSOPT_1: TStringGrid compatibility Level 1 (proposed default)
+        . support for "DefaultRowHeight" property
+        . support for column sorting
+    - LLCL_OPT_GRIDSOPT_2: TStringGrid compatibility Level 2
+        . options for LLCL_OPT_GRIDSOPT_1
+        . support for cells mouse button events
+        . support for header (i.e. fixed row) mouse messages
+        . support for first column editing
+    - LLCL_OPT_GRIDSOPT_LV: ListView compatibility
+        . right-click selects also a row (like left-click)
+        . Ctrl+A selects all the rows
+    - LLCL_OPT_GRIDSOPT_ALL: all options (LLCL_OPT_GRIDSOPT_2 + LLCL_OPT_GRIDSOPT_LV)
+}
+{$DEFINE LLCL_OPT_GRIDSOPT_1}
+//{$DEFINE LLCL_OPT_GRIDSOPT_2}
+//{$DEFINE LLCL_OPT_GRIDSOPT_LV}
+//{$DEFINE LLCL_OPT_GRIDSOPT_ALL}
+
+{   LLCL_OPT_USEZLIBDLL/USEZLIBDLLDYN/USEZLIBOBJ   -   LLCLZlib.pas
+
+    Zlib options
+
+    Notes:
+    - LLCL_OPT_USEZLIBDLL: use static ZLib DLL (zlib1.dll)
+    - LLCL_OPT_USEZLIBDLLDYN: use dynamic ZLib DLL (zlib1.dll) - requires LLCL_OPT_USEZLIBDLL
+    - LLCL_OPT_USEZLIBOBJ: use external (C) object files
+
+    If no such option is defined, pure Pascal functions are used (i.e. PasZlib).
+}
+//{$DEFINE LLCL_OPT_USEZLIBDLL}
+//{$DEFINE LLCL_OPT_USEZLIBDLLDYN}
+//{$DEFINE LLCL_OPT_USEZLIBOBJ}
+

sources/LCLIntF.pas

@@ -12,15 +12,17 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * TWMMove, TWMNotify, TWMSysCommand added
    Version 1.00:
     * File creation.
 
@@ -179,6 +181,20 @@   TWMMouse = record
     TWMRButtonDblClk      = TWMMouse;
     TWMMouseMove          = TWMMouse;
 
+  TWMMove = record
+    Msg: cardinal;
+    MsgFiller: TDWordFiller;
+    Unused: WPARAM;
+    case integer of
+    0: (
+       XPos: smallint;
+       YPos: smallint; );
+    1: (
+       Pos: TSmallPoint;
+       LParamFiller: TDWordFiller;
+       Result: LRESULT; );
+  end;
+
   TWMNCHitTest = record
     Msg: cardinal;
     MsgFiller: TDWordFiller;
@@ -193,6 +209,15 @@   TWMNCHitTest = record
        Result: LRESULT; );
   end;
 
+  TWMNotify = record
+    Msg: cardinal;
+    MsgFiller: TDWordFiller;
+		IDCtrl: longint;
+    WParamFiller: TDWordFiller;
+		NMHdr: PNMHdr;
+    Result: LRESULT;
+	end;
+
   TWMPaint = record
     Msg: cardinal;
     MsgFiller: TDWordFiller;
@@ -232,6 +257,17 @@   TWMSize = record
     Result: LRESULT;
   end;
 
+  TWMSysCommand = record
+    Msg: cardinal;
+    MsgFiller: TDWordFiller;
+    case CmdType: WPARAM of
+      SC_HOTKEY: 	(ActivateWindow: HWND);
+      SC_KEYMENU: (Key: word);
+      SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
+			SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE, SC_TASKLIST, SC_VSCROLL:
+									(XPos: smallint; YPos: smallint; LParamFiller: TDWordFiller; Result: LRESULT; );
+  end;
+
   TWMTimer = record
     Msg: cardinal;
     MsgFiller: TDWordFiller;

sources/LCLType.pp

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
     * File creation.
     * UTF8 file functions (equivalent of SysUtils ones)

sources/LLCLFPCInc.inc

@@ -12,15 +12,17 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * UTF8CompareStr, UTF8CompareText, UTF8LowerCase and UTF8UpperCase added
    Version 1.00:
     * File creation.
     * Some UTF8 functions (not present in LazFileUtils)
@@ -48,11 +50,21 @@ function  UTF8ToSys(const S: utf8string): ansistring;
 function  SysToUTF8(const S: ansistring): utf8string;
 function  UTF8ToWinCP(const S: utf8string): ansistring;
 function  WinCPToUTF8(const S: ansistring): utf8string;
+function  UTF8CompareStr(const S1, S2: utf8string): integer;
+function  UTF8CompareText(const S1, S2: utf8string): integer;
+// Note: ALanguage is ignored in UTF8LowerCase and UTF8UpperCase
+function  UTF8LowerCase(const AInStr: utf8string; ALanguage: utf8string=''): utf8string;
+function  UTF8UpperCase(const AInStr: utf8string; ALanguage: utf8string=''): utf8string;
 {$ELSE UNICODE}
 function  UTF8ToSys(const S: string): string;
 function  SysToUTF8(const S: string): string;
 function  UTF8ToWinCP(const S: string): string;
 function  WinCPToUTF8(const S: string): string;
+function  UTF8CompareStr(const S1, S2: string): integer;
+function  UTF8CompareText(const S1, S2: string): integer;
+// Note: ALanguage is ignored in UTF8LowerCase and UTF8UpperCase
+function  UTF8LowerCase(const AInStr: string; ALanguage: string=''): string;
+function  UTF8UpperCase(const AInStr: string; ALanguage: string=''): string;
 {$ENDIF UNICODE}
 
 //------------------------------------------------------------------------------
@@ -110,6 +122,57 @@ function  WinCPToUTF8(const S: string): string;
   result := LLCLS_WinCPToUTF8(S);
 end;
 
+{$IFDEF UNICODE}
+function  UTF8CompareStr(const S1, S2: utf8string): integer;
+{$ELSE UNICODE}
+function  UTF8CompareStr(const S1, S2: string): integer;
+{$ENDIF UNICODE}
+var count, count1, count2: integer;
+begin
+  count1 := length(S1);
+  count2 := length(S2);
+  if count1 > count2 then
+    count := count2
+  else
+    count := count1;
+  result := CompareByte(pointer(@s1[1])^, pointer(@s2[1])^, count);
+  if result=0 then
+    if count1 > count2 then
+      result := 1                 // Doesn't return count1 - count 2
+    else
+      if count1 < count2 then
+        result := -1;             //    Like CompareStr in SysUTils
+end;
+
+{$IFDEF UNICODE}
+function  UTF8CompareText(const S1, S2: utf8string): integer;
+{$ELSE UNICODE}
+function  UTF8CompareText(const S1, S2: string): integer;
+{$ENDIF UNICODE}
+begin
+  result := UTF8CompareStr(UTF8UpperCase(S1), UTF8UpperCase(S2));
+end;
+
+{$IFDEF UNICODE}
+function  UTF8LowerCase(const AInStr: utf8string; ALanguage: utf8string=''): utf8string;
+{$ELSE UNICODE}
+function  UTF8LowerCase(const AInStr: string; ALanguage: string=''): string;
+{$ENDIF UNICODE}
+begin
+  // (Language ignored)
+  result := LLCLS_UTF8LowerCase(AInStr);
+end;
+
+{$IFDEF UNICODE}
+function  UTF8UpperCase(const AInStr: utf8string; ALanguage: utf8string=''): utf8string;
+{$ELSE UNICODE}
+function  UTF8UpperCase(const AInStr: string; ALanguage: string=''): string;
+{$ENDIF UNICODE}
+begin
+  // (Language ignored)
+  result := LLCLS_UTF8UpperCase(AInStr);
+end;
+
 //------------------------------------------------------------------------------
 
 {$IFDEF FPC}

sources/LLCLOSInt.pas

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
     * File creation.
     * TFileStreamUTF8 class (simplified)

sources/LLCLOptions.inc

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
     * File creation.
     * TMenuItem, TMenu, TMainMenu and TPopupMenu implemented

sources/LLCLPng.pas

@@ -12,19 +12,23 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
+    * Some (irrelevant) Kylix code removed
+    * StrToInt64/StrToInt64Def/TryStrToInt64 added
+    * TryStrToDate/TryStrToTime added
    Version 1.00:
-  * FPC/Lazarus part doesn't use any asm code
-  * CheckWin32Version added
-  * Warning: Kylix compatibility broken
+    * FPC/Lazarus part doesn't use any asm code
+    * CheckWin32Version added
+    * Warning: Kylix compatibility broken
 }
 
 // Original notes from LVCL
@@ -283,6 +287,9 @@ function  IntToHex(Value: int64; Digits: integer): string; overload;
 function  StrToInt(const S: string): integer;
 function  StrToIntDef(const S: string; Default: integer): integer;
 function  TryStrToInt(const S: string; out Value: integer): boolean;
+function  StrToInt64(const S: string): int64;
+function  StrToInt64Def(const S: string; Default: int64): int64;
+function  TryStrToInt64(const S: string; out Value: int64): boolean;
 function  GUIDToString(const GUID: TGUID): string;
 
 {$if (not Defined(FPC)) or (not Defined(UNICODE))}  // Delphi, or FPC/Lazarus non Unicode
@@ -365,6 +372,8 @@ function  TrySystemTimeToDateTime(const SystemTime: TSystemTime; out DateTime: T
 function  DateTimeToStr(const DateTime: TDateTime): string;
 function  DateToStr(const DateTime: TDateTime): string;
 function  TimeToStr(const DateTime: TDateTime): string;
+function  TryStrToDate(const S: string; out Value: TDateTime): boolean;
+function  TryStrToTime(const S: string; out Value: TDateTime): boolean;
 function  TryStrToDateTime(const S: string; out Value: TDateTime): boolean;
 
 function  FileCreate(const FileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}): THandle; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}
@@ -491,6 +500,9 @@ implementation
 
 const
   HexChars: array[0..15] of Char = '0123456789ABCDEF';
+  SYSLLCL_TIME_SEP      = ':';
+  SYSLLCL_DATE_SEP      = '/';
+  SYSLLCL_DATETIME_SEP  = ' ';
 
 {$IFNDEF FPC}
   // our customs SysUtils.pas (normal and LVCL) contains the same array
@@ -529,7 +541,7 @@ procedure FindSearchRecUniToRaw(const F: TUnicodeSearchRec; var FF: TRawByteSear
 {$ifdef LLCL_OPT_EXCEPTIONS}
 {$IFDEF FPC}
 procedure ExceptHandler(ExceptObject: TObject; ExceptAddr: pointer; FrameCount: longint; Frames: PPointer); forward;
-procedure ErrorHandler(ErrorCode: integer; ErrorAddr, Frame : pointer); forward;
+procedure ErrorHandler(ErrorCode: integer; ErrorAddr, Frame: pointer); forward;
 procedure AssertErrorHandler(const aMessage, aFilename: shortstring; aLineNumber: longint; aErrorAddr: pointer); forward;
 {$ELSE FPC}
 procedure ExceptHandler(ExceptObject: TObject; ExceptAddr: pointer); far; forward;
@@ -625,7 +637,7 @@ function  Format(const sFormat: string; const Args: array of const): string;
   end;
 end;
 
-function  IntToStr(Value : integer): string;
+function  IntToStr(Value: integer): string;
 {$if Defined(UNICODE) or Defined(FPC)}
 begin
   Str(Value, result);
@@ -1014,6 +1026,24 @@ function  TryStrToInt(const S: string; out Value: integer): boolean;
   result := (E=0);
 end;
 
+function  StrToInt64(const S: string): int64;
+begin
+  result := StrToInt64Def(S, 0);
+end;
+
+function  StrToInt64Def(const S: string; Default: int64): int64;
+begin
+  if not TryStrToInt64(S, result) then
+    result := Default;
+end;
+
+function  TryStrToInt64(const S: string; out Value: int64): boolean;
+var E: integer;
+begin
+  Val(S, Value, E);
+  result := (E=0);
+end;
+
 function  GUIDToString(const GUID: TGUID): string;
   procedure Write(P: PChar; B: PByteArray);
   var i: integer;
@@ -2037,41 +2067,33 @@ function AnsiDequotedStr(const S: string; AQuote: Char): string;
 function  AnsiCompareText(const S1, S2: string): integer;
 begin   // (LVCL uses also SORT_STRINGSORT)
   result := {$IFDEF LLCL_FPC_SYSRTL}LLCLSys_CompareString{$ELSE}LLCLS_CompareString{$ENDIF}
-      (LOCALE_USER_DEFAULT, NORM_IGNORECASE, S1, length(S1), S2, length(S2)) - 2;
+      (LOCALE_USER_DEFAULT, NORM_IGNORECASE, S1, S2) - 2;
 end;
 
 function  AnsiSameText(const S1, S2: string): boolean;
 begin
- result := (AnsiCompareText(S1, S2)=0);
+  result := (AnsiCompareText(S1, S2)=0);
 end;
 
 function  AnsiCompareStr(const S1, S2: string): integer;
 begin   // (LVCL uses also SORT_STRINGSORT)
   result := {$IFDEF LLCL_FPC_SYSRTL}LLCLSys_CompareString{$ELSE}LLCLS_CompareString{$ENDIF}
-      (LOCALE_USER_DEFAULT, 0, S1, length(S1), S2, length(S2)) - 2;
+      (LOCALE_USER_DEFAULT, 0, S1, S2) - 2;
 end;
 
 function  AnsiSameStr(const S1, S2: string): boolean;
 begin
- result := (AnsiCompareStr(S1, S2)=0);
+  result := (AnsiCompareStr(S1, S2)=0);
 end;
 
 function  AnsiUpperCase(const S: string): string;
 begin
-{$ifdef MSWindows}
   result := {$IFDEF LLCL_FPC_SYSRTL}LLCLSys_CharUpperBuff{$ELSE}LLCLS_CharUpperBuff{$ENDIF}(S);
-{$else}
-  result := WideUpperCase(S);
-{$endif}
 end;
 
 function  AnsiLowerCase(const S: string): string;
 begin
-{$ifdef MSWindows}
   result := {$IFDEF LLCL_FPC_SYSRTL}LLCLSys_CharLowerBuff{$ELSE}LLCLS_CharLowerBuff{$ENDIF}(S);
-{$else}
-  result := WideLowerCase(S);
-{$endif}
 end;
 
 function  WideCompareText(const S1, S2: widestring): integer;
@@ -2081,7 +2103,7 @@ function  WideCompareText(const S1, S2: widestring): integer;
 
 function  WideSameText(const S1, S2: widestring): boolean;
 begin   // (LVCL uses also SORT_STRINGSORT)
- result := (WideCompareText(S1, S2)=0);
+  result := (WideCompareText(S1, S2)=0);
 end;
 
 function  WideCompareStr(const S1, S2: widestring): integer;
@@ -2091,36 +2113,24 @@ function  WideCompareStr(const S1, S2: widestring): integer;
 
 function  WideSameStr(const S1, S2: widestring): boolean;
 begin
- result := (WideCompareStr(S1, S2)=0);
+  result := (WideCompareStr(S1, S2)=0);
 end;
 
 function  WideUpperCase(const S: widestring): widestring;
-{$ifdef MSWindows}
 var Len: cardinal;
 begin
   Len := length(S);
   SetString(result, PWideChar(S), Len);
   if Len > 0 then LLCL_CharUpperBuffW(pointer(result), Len);
 end;
-{$else}
-begin
-  result := WideUpperCase(S);
-end;
-{$endif}
 
 function  WideLowerCase(const S: widestring): widestring;
-{$ifdef MSWindows}
 var Len: cardinal;
 begin
   Len := length(S);
   SetString(result, PWideChar(S), Len);
   if Len > 0 then LLCL_CharLowerBuffW(pointer(result), Len);
 end;
-{$else}
-begin
-  result := WideLowerCase(S);
-end;
-{$endif}
 
 procedure DecodeDate({$IFDEF FPC}{$ELSE}const {$ENDIF}DateTime: TDateTime; var Year, Month, Day: word);
 var J: integer;
@@ -2366,7 +2376,7 @@ function  SysAddDatePlusTime(const BaseDate: TDateTime; const PlusTime: TDateTim
   if BaseDate>=0 then
     result := BaseDate + PlusTime
   else
-    result := BaseDate + PlusTime;
+    result := BaseDate - PlusTime;
 end;
 
 function  SysCurrDT(WithDate, WithTime: boolean): TDateTime;
@@ -2417,15 +2427,15 @@ function  SysDTToStr(const DateTime: TDateTime; WithDate, WithTime: boolean): st
   result := '';
   if WithDate then
     begin
-      DecodeDate(DateTime, Y,M,D);
-      result := result+Format('%.4d',[Y])+'/'+Format('%.2d',[M])+'/'+Format('%.2d',[D]);
+      DecodeDate(DateTime, Y, M, D);
+      result := result + Format('%.4d', [Y]) + SYSLLCL_DATE_SEP + Format('%.2d', [M]) + SYSLLCL_DATE_SEP + Format('%.2d', [D]);
     end;
   if WithDate and WithTime then
-    result := result+' ';
+    result := result + SYSLLCL_DATETIME_SEP;
   if WithTime then
     begin
-      DecodeTime(DateTime, H,MI,S,MS);
-      result := result+Format('%.2d',[H])+':'+Format('%.2d',[MI])+':'+Format('%.2d',[S]);
+      DecodeTime(DateTime, H, MI, S, MS);
+      result := result + Format('%.2d', [H]) + SYSLLCL_TIME_SEP + Format('%.2d', [MI]) + SYSLLCL_TIME_SEP + Format('%.2d', [S]);
     end;
 end;
 
@@ -2481,26 +2491,45 @@ function  TimeToStr(const DateTime: TDateTime): string;
 end;
 
 // Only for 'YYYY/MM/DD hh:mm:ss' (see Date/Time To Str functions)
-function  TryStrToDateTime(const S: string; out Value: TDateTime): boolean;
-var Y,M,D, H,MI,SS: cardinal;
+
+function  TryStrToDate(const S: string; out Value: TDateTime): boolean;
+var Y, M, D: cardinal;
 begin
-  if length(S)<>19 then
-    begin
-      result := false;
-      exit;
-    end;
+  result := false;
+  if length(S)<>10 then exit;
   Y := ord(S[1])*1000+ord(S[2])*100+ord(S[3])*10+ord(S[4])-(48+480+4800+48000);
   M := ord(S[6])*10+ord(S[7])-(48+480);
   D := ord(S[9])*10+ord(S[10])-(48+480);
-  H := ord(S[12])*10+ord(S[13])-(48+480);
-  MI := ord(S[15])*10+ord(S[16])-(48+480);
-  SS := ord(S[18])*10+ord(S[19])-(48+480);
-  result := (Y<=2100) and (Y>=1980) and (M in [1..12]) and (D<=MonthDays[true][M]) and
-    (D<>0) and (H<=23) and (MI<=59) and (SS<=59);
+  // (Reduced checks on year)
+  result := (Y<=3000) and (Y>=1) and (M in [1..12]) and (D<=MonthDays[true][M]) and (D<>0);
+  if result then
+    Value := EncodeDate(Y, M, D);
+end;
+
+function  TryStrToTime(const S: string; out Value: TDateTime): boolean;
+var HH, MM, SS: cardinal;
+begin
+  result := false;
+  if length(S)<>8 then exit;
+  HH := ord(S[1])*10+ord(S[2])-(48+480);
+  MM := ord(S[4])*10+ord(S[5])-(48+480);
+  SS := ord(S[7])*10+ord(S[8])-(48+480);
+  result := (HH<=23) and (MM<=59) and (SS<=59);
+  if result then
+    Value := EncodeTime(HH, MM, SS, 0);
+end;
+
+function  TryStrToDateTime(const S: string; out Value: TDateTime): boolean;
+var TimeValue: TDateTime;
+begin
+  result := false;
+  if length(S)<>19 then exit;
+  result := TryStrToDate(Copy(S, 1, 10), Value);
   if result then
     begin
-      Value := EncodeDate(Y, M, D);
-      Value := SysAddDatePlusTime(Value, EncodeTime(H, MI, SS, 0));
+      result := TryStrToTime(Copy(S, 12, 8), TimeValue);
+      if result then
+        SysAddDatePlusTime(Value, TimeValue);
     end;
 end;
 
@@ -3571,7 +3600,7 @@ procedure ExceptHandler(ExceptObject: TObject; ExceptAddr: pointer); far;
 end;
 
 {$IFDEF FPC}
-procedure ErrorHandler(ErrorCode: integer; ErrorAddr, Frame : pointer);
+procedure ErrorHandler(ErrorCode: integer; ErrorAddr, Frame: pointer);
 {$ELSE FPC}
 procedure ErrorHandler(ErrorCode: integer; ErrorAddr: pointer);
 {$ENDIF FPC}

sources/LLCLZlib.pas

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
 
    Notes:

sources/LMessages.pp

@@ -12,15 +12,16 @@
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-    This Source Code Form is “Incompatible With Secondary Licenses”,
+    This Source Code Form is "Incompatible With Secondary Licenses",
   as defined by the Mozilla Public License, v. 2.0.
 
-  Copyright (c) 2015 ChrisF
+  Copyright (c) 2015-2016 ChrisF
 
   Based upon the Very LIGHT VCL (LVCL):
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.01:
    Version 1.00:
     * File creation.
     * TXPManifest implemented