Version 1.02

Author: FChrisF

README.md

@@ -44,6 +44,23 @@ version 2.0. See "LICENSE.txt".
 
 ## LLCL ChangeLog
 
+* [Version 1.02] (https://github.com/FChrisF/LLCL/releases/tag/v1.0.2):
+
+  Main changes and additions:
+  - TRadioGroup control added (not enabled by default),
+  - TRegistry class added (Registry.pas),
+  - TClipboard: SetAsText bug fix,
+  - TStringGrid: ColCount and RowCount bug fix,
+  - bug fixes when application was starting and closing,
+  - bug fixes and non standard ItemStrings property removed
+    for internal TCustomBox class,
+  - TForm: ShowModal bug fix (with several modal forms),
+  - DeleteFile and RenameFile added (SysUtils), and also
+    DeleteFileUTF8 and RenameFileUTF8 (FileUtil/LazFileUtils),
+  - internal TMemoLines et TBoxStrings classes (for TMemo and
+    TComboBox/TListBox controls) modified for a better LCL/VCL
+    compatibility (data accessing).
+
 * [Version 1.01] (https://github.com/FChrisF/LLCL/releases/tag/v1.0.1):
 
   Main changes and additions:

README.txt

@@ -42,6 +42,21 @@ the Light VCL (LVCL), with some additions and modifications.
 
 LLCL ChangeLog:
 
+* Version 1.02:
+  Main changes and additions:
+  - TRadioGroup control added (not enabled by default),
+  - TRegistry class added (Registry.pas),
+  - TClipboard: SetAsText bug fix,
+  - TStringGrid: ColCount and RowCount bug fix,
+  - bug fixes when application was starting and closing,
+  - bug fixes and non standard ItemStrings property removed
+    for internal TCustomBox class,
+  - TForm: ShowModal bug fix (with several modal forms),
+  - DeleteFile and RenameFile added (SysUtils), and also
+    DeleteFileUTF8 and RenameFileUTF8 (FileUtil/LazFileUtils),
+  - internal TMemoLines et TBoxStrings classes (for TMemo and
+    TComboBox/TListBox controls) modified for a better LCL/VCL
+    compatibility (data accessing).
 * Version 1.01:
   Main changes and additions:
   - TStringGrid control added (Grids.pas),
@@ -63,7 +78,7 @@ LLCL ChangeLog:
   - 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.
+  the option file LLCLOptions.inc.
 
 * Version 1.00:
   - Initial public release.
@@ -110,8 +125,8 @@ modified LGPL license used for the standard LCL of Lazarus.
   The files/units present in the Ligth LCL replace the main
 standard files/units used inside the LCL/VCL: Classes,
 ClipBrd, ComCtrls, Controls, Dialogs, ExtCtrls, FileCtrl,
-Forms, Graphics, Grids, IniFiles, Menus, StdCtrls, SysUtils
-and Variants.
+Forms, Graphics, Grids, IniFiles, Menus, Registry, StdCtrls,
+SysUtils and Variants.
 
   Plus an additional unit for the VCL: XPMan.
 
@@ -197,6 +212,9 @@ Free Pascal:  http://www.freepascal.org
 Lazarus:  http://www.lazarus-ide.org
 Delphi: http://www.embarcadero.com
 
+FreePascal/Lazarus forum for discussion:
+http://forum.lazarus.freepascal.org/index.php/topic,30027.0.html
+
 
 6. GENERAL NOTES
 ----------------
@@ -331,23 +349,26 @@ Delphi: http://www.embarcadero.com
 
 7.1 CONTROL CLASSES AVAILABLE
 -----------------------------
+
 Standard: TLabel, TButton, TEdit, TMemo, TCheckBox,
           TRadioButton, TGroupBox, TComboBox, TListBox,
-          TStaticText, TMainMenu, TPopupMenu
+          TStaticText, TMainMenu, TPopupMenu, TRadioGroup
 Additional: TImage,  TTrayIcon, TStringGrid
 Common: TProgressBar, TTrackBar, TXPManifest (Delphi)
 Dialogs: TOpenDialog, TSaveDialog, TSelectDirectoryDialog
          (FPC only, and not enabled by default)
 System: TTimer
 
-Other classes: TCustomForm, TForm, TClipboard, TIniFile
+Other classes: TCustomForm, TForm, TClipboard, TIniFile,
+               TRegistry
 
 General variables: Application (TApplication), Mouse(TMouse),
     Clipboard(TClipboard)
 
 
 7.2 BASE CLASSES TREE
 ---------------------
+
                     (TObject)
                        !
                    TPersistent
@@ -369,6 +390,7 @@ TNonVisualControl*               TVisualControl*
 
 7.3 CLASSES DETAILS
 --------------------
+
   Standard public methods, properties and events available
 [rwd] options: r=read, w=write, d=design time.
 
@@ -461,21 +483,24 @@ TStringList (Classes - TObject)
 
 TStrings = TStringList
 
-TMemoLines (StdCtrls - TPersistent)
-  constructor Create(Memo: TMemo);
+TCtrlStrings (StdCtrls - TPersistent)
+  constructor Create(ParentCtrl: TWinControl);
   destructor  Destroy; override;
-  function  Add(const S: string): integer;
-  procedure Clear;
-  property  Strings: TStrings; [rwd]
+  function  Add(const S: string): integer; virtual;
+  procedure Clear; virtual;
+  property  Count: integer; [r]
+Note: TCtrlStrings is specific to the LLCL
+
+TMemoLines (StdCtrls - TCtrlStrings)
+  function  Add(const S: string): integer; override;
+  procedure Clear; override;
+  property  Strings[index: integer]: string; default; [r]
 Note: TMemoLines is specific to the LLCL
 
-TBoxStrings (SdtCtrls - TPersistent)
-  constructor Create(Box: TCustomBox);
-  destructor  Destroy; override;
-  function  Add(const S: string): integer;
-  procedure Clear;
-  property  Items[n: integer]: string; default; [r]
-  property  Strings: TStrings; [rw]
+TBoxStrings (SdtCtrls - TCtrlStrings)
+  function  Add(const S: string): integer; override;
+  procedure Clear; override;
+  property  Items[index: integer]: string; default; [r]
 Note: TBoxStrings is specific to the LLCL
 
 TCustomBox (SdtCtrls - TWinControl)
@@ -485,7 +510,6 @@ TCustomBox (SdtCtrls - TWinControl)
   property  ItemCount: integer; [r]
   property  ItemIndex: integer; [rwd]
   property  Items: TBoxStrings; [r]
-  property  ItemStrings: TStrings; [rw]
   property  Sorted: boolean; [d]
 Note: TCustomBox is specific to the LLCL
 
@@ -648,8 +672,8 @@ TComboBox (SdtCtrls - TCustomBox)
 
 TEdit (StdCtrls - TWinControl)
   constructor Create(AOwner: TComponent); override;
-  property  PasswordChar: Char; [d]
   procedure SelectAll;
+  property  PasswordChar: Char; [d]
   property  ReadOnly: boolean; [rwd]
   property  Text: string; [rwd]
   property  OnChange: TNotifyEvent; [rwd]
@@ -692,15 +716,26 @@ TPopupMenu (Menus - TMenu)
 TRadioButton (SdtCtrls - TCheckBox)
   constructor Create(AOwner: TComponent); override;
 
+TRadioGroup (ExtCtrls - TGroupBox)
+  constructor Create(AOwner: TComponent); override;
+  destructor  Destroy; override;
+  property  ColumnLayout: TColumnLayout; [rw] *
+  property  Columns: integer; [rw]
+  property  ItemIndex: integer; [rw]
+  property  Items: TRadioGroupStrings; [r]
+*: only for FPC/Lazarus
+Note: available only if LLCL_OPT_USERADIOGROUP is defined (see
+the option file LLCLOptions.inc)
+
 TStaticText (SdtCtrls - TWinControl)
   constructor Create(AOwner: TComponent); override;
   property  BorderStyle: boolean; [d]
 
 TOpenDialog (Dialogs - TNonVisualControl)
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy; override;
-  property DefaultExt: string; [rwd]
   function Execute: boolean; virtual;
+  property DefaultExt: string; [rwd]
   property FileName: string; [rwd]
   property Files: TStringList; [rw]
   property Filter: string; [rwd]
@@ -744,11 +779,6 @@ TStringGrid (Grids - TWinControl)
   property  DefaultRowHeight: integer; [rwd] *4
   property  FixedCols: integer; [rwd] *5
   property  FixedRows: integer; [rwd] *6
-  property  OnCompareCells: TOnCompareCells; [rwd] *3
-  property  OnGetEditText: TGetEditEvent; [rwd]
-  property  OnHeaderClick: THdrEvent; [rwd] *3
-  property  OnSelectCell: TOnSelectCellEvent; [rwd]
-  property  OnSetEditText: TSetEditEvent; [rwd]
   property  Options: TGridOptions; [rd]
   property  Row: integer; [rw]
   property  RowCount: integer; [rwd]
@@ -757,6 +787,11 @@ TStringGrid (Grids - TWinControl)
   property  Selection: TGridRect; [r]
   property  SortColumn: integer; [r] *3
   property  SortOrder: TSortOrder; [rw] *3
+  property  OnCompareCells: TOnCompareCells; [rwd] *3
+  property  OnGetEditText: TGetEditEvent; [rwd]
+  property  OnHeaderClick: THdrEvent; [rwd] *3
+  property  OnSelectCell: TOnSelectCellEvent; [rwd]
+  property  OnSetEditText: TSetEditEvent; [rwd]
 *1: only for columns (i.e. IsColumn = True)
 *2: not possible at design time for Delphi
 *3: not present in the standard Delphi VCL
@@ -792,14 +827,14 @@ TTrayIcon (ExtCtrl - TNonVisualControl)
   procedure Show;
   procedure Hide;
   procedure ShowBalloonHint;
-  property  Icon: TIcon; [rwd]
-  property  Hint: string; [rwd]
-  property  Visible: boolean; [rwd]
-  property  PopUpMenu: TPopupMenu; [rwd] *
   property  BalloonFlags: TBalloonFlags; [rwd]
   property  BalloonHint: string; [rwd] **
   property  BalloonTimeout: integer; [rwd] ***
   property  BalloonTitle: string; [rwd]
+  property  Icon: TIcon; [rwd]
+  property  Hint: string; [rwd]
+  property  Visible: boolean; [rwd]
+  property  PopUpMenu: TPopupMenu; [rwd] *
   property  OnDblClick: TNotifyEvent; [rwd]
 *: Available if LLCL_OPT_USEMENUS is not undefined
 **: Balloon notifications are possible only for Windows 2000+
@@ -878,15 +913,15 @@ TStream (Classes - TObject)
   function  CopyFrom(Source: TStream; Count: integer): integer;
   procedure LoadFromFile(const FileName: string);
   procedure LoadFromStream(aStream: TStream); virtual;
-  property  Position: integer; [rw]
   function  Read(var Buffer; Count: integer): integer; virtual; abstract;
   procedure ReadBuffer(var Buffer; Count: integer);
   procedure SaveToFile(const FileName: string);
   procedure SaveToStream(aStream: TStream); virtual;
   function  Seek(Offset: integer; Origin: Word): integer; overload; virtual; abstract;
   function  Seek(Offset: int64; Origin: TSeekOrigin): int64; overload; virtual; abstract;
-  property  Size: integer; [rw]
   function  Write(var Buffer; Count: integer): integer; virtual; abstract;
+  property  Position: integer; [rw]
+  property  Size: integer; [rw]
 
 THandleStream (Classes - TStream)
   constructor Create(aHandle: THandle);
@@ -979,6 +1014,35 @@ TIniFile (IniFiles - TObject)
   property  FileName: string; [r]
 Note: string date/time formats are specific in LLCL SysUtils
 
+TRegistry (Registry - TObject)
+  constructor Create; overload;
+  destructor Destroy; override;
+  procedure CloseKey;
+  function  CreateKey(const Key: string): boolean;
+  function  DeleteKey(const Key: string): boolean;
+  function  DeleteValue(const Name: string): boolean;
+  function  GetDataInfo(const ValueName: string; var Value: TRegDataInfo): boolean;
+  function  GetKeyInfo(var Value: TRegKeyInfo): boolean;
+  procedure GetKeyNames(Strings: TStrings);
+  procedure GetValueNames(Strings: TStrings);
+  function  KeyExists(const Key: string): boolean;
+  function  OpenKey(const Key: string; CanCreate: boolean): boolean;
+  function  OpenKeyReadOnly(const Key: String): boolean;
+  function  ReadBinaryData(const Name: string; var Buffer; BufSize: integer): integer;
+  function  ReadBool(const Name: string): boolean;
+  function  ReadDate(const Name: string): TDateTime;
+  function  ReadInteger(const Name: string): integer;
+  function  ReadString(const Name: string): string;
+  function  ValueExists(const Name: string): boolean;
+  procedure WriteBinaryData(const Name: string; var Buffer; BufSize: integer);
+  procedure WriteBool(const Name: string; Value: boolean);
+  procedure WriteDate(const Name: string; Value: TDateTime);
+  procedure WriteInteger(const Name: string; Value: integer);
+  procedure WriteString(const Name, Value: string);
+  property  Access: longword; [rw]
+  property  CurrentKey: HKEY; [r]
+  property  RootKey: HKEY; [rw]
+
 
 7.4 SPECIFIC NOTES
 ------------------

sources/Classes.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * TReader: ReadStringInts (and StringIntProperty), ReadIntArray added
    Version 1.00:
@@ -154,7 +155,7 @@   TStringList = class;
   TStringList = class
   private
     fCount: integer;
-    fCapacity : integer;
+    fCapacity: integer;
     fListStr: array of string;
     // fListObj[] is allocated only if objects are used (not nil)
     fListObj: array of TObject;
@@ -500,8 +501,8 @@ implementation
 
   PTypeInfo = ^TTypeInfo;
   TTypeInfo = record
-    Kind : TTypeKind;
-    Name : shortstring;
+    Kind: TTypeKind;
+    Name: shortstring;
     // here the type data follows as TTypeData record
   end;
 
@@ -516,15 +517,15 @@   TTypeInfo = record
 const
   BooleanIdents: array[Boolean] of String = ('False', 'True');
 
-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;
+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
   RegisteredClasses: TList = nil;
-function CreateComponent(const AClassName: shortstring; AOwner: TComponent): TComponent; forward;
+function  CreateComponent(const AClassName: shortstring; AOwner: TComponent): TComponent; forward;
 {$endif}
 
 // Workaround for Unicode FPC when using the standard SysUtils unit
@@ -535,7 +536,6 @@ function CreateComponent(const AClassName: shortstring; AOwner: TComponent): TCo
 function  Class_IntToStr(Value: integer): string; forward;
 {$endif}
 
-
 //------------------------------------------------------------------------------
 
 function GetTypeData(ptrTypeInfo: PTypeInfo): PTypeData;
@@ -701,7 +701,7 @@ function ClassSameText(const S1, S2: string): boolean;
 end;
 
 {$ifdef Def_FPC_StdSys}
-function  Class_IntToStr(Value: integer): string;
+function Class_IntToStr(Value: integer): string;
 begin
   Str(Value, result);
 end;
@@ -1000,7 +1000,7 @@ function TStringList.NameOf(const Value: string; const Separator: string='='): s
     P := PChar(pointer(fListStr[i]))+j+L;
     while P^=' ' do Inc(P); // trim left value
     if StrIComp(P,pointer(Value))=0 then begin
-      result := copy(fListStr[i], 1, j-1);
+      result := Copy(fListStr[i], 1, j-1);
       exit;
     end;
   end;
@@ -1675,13 +1675,12 @@ procedure TPersistent.ReadProperty(const PropName: string; Reader: TReader);
   i: integer;
   SubProp: TPersistent;
 begin
-  if self=nil then exit;
   i := pos('.', PropName);
   if i > 0 then
     SubProp := SubProperty(Copy(PropName, 1, i-1))
   else SubProp := nil;
   if SubProp<>nil then
-    SubProp.ReadProperty(Copy(PropName, i+1, 200),Reader)
+    SubProp.ReadProperty(Copy(PropName, i+1, 200), Reader)
   else
     with Reader do begin
 {$ifdef debug}
@@ -1792,7 +1791,7 @@ function GetClass(const AClassName: shortstring): TPersistentClass;
   result := nil;
 end;
 
-function  GetClass(const AClassName: string): TPersistentClass;
+function GetClass(const AClassName: string): TPersistentClass;
 begin
   result := GetClass(shortstring(AClassName));
 end;
@@ -1890,7 +1889,7 @@ destructor TComponent.Destroy;
 
 function TComponent.GetComponentCount: integer;
 begin
-  if (self=nil) or (fComponents=nil) then
+  if fComponents=nil then
     result := 0
   else
     result := fComponents.Count;
@@ -1915,8 +1914,6 @@ function TComponent.FindComponent(const CompName: string): TComponent;
 
 procedure TMemoryStream.SetCapacity(Value: integer);
 begin
-  if self=nil then
-    exit;
   fCapacity := Value;
   ReallocMem(fMemory,fCapacity);
   if fPosition>=fCapacity then // adjust Position if truncated
@@ -2105,7 +2102,7 @@ function TCustomMemoryStream.GetSize(): integer;
 
 function TCustomMemoryStream.Read(var Buffer; Count: integer): integer;
 begin
-  if (self<>nil) and (Memory<>nil) then
+  if Memory<>nil then
   if (FPosition>=0) and (Count>0) then begin
     result := FSize - FPosition;
     if result>0 then begin
@@ -2120,7 +2117,7 @@ function TCustomMemoryStream.Read(var Buffer; Count: integer): integer;
 
 procedure TCustomMemoryStream.SaveToStream(aStream: TStream);
 begin
-  if (self<>nil) and (FSize<>0) and (aStream<>nil) and (Memory<>nil) then
+  if (FSize<>0) and (aStream<>nil) and (Memory<>nil) then
     aStream.Write(Memory^, FSize);
 end;
 

sources/ClipBrd.pas

@@ -21,6 +21,8 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * TClipboard: SetAsText fix
    Version 1.01:
     * File creation.
     * TClipboard/Clipboard implemented (only for text)
@@ -116,11 +118,12 @@ function  TClipboard.GetAsText(): string;
 end;
 
 procedure TClipboard.SetAsText(const Value: string);
-var lpText: pointer;
+var pText: pointer;
 var len: cardinal;
 begin
-  lpText := LLCLS_CLPB_SetTextPtr(Value, len);
-  SetBuffer(LLCLS_CLPB_GetTextFormat(), lpText, len);
+  pText := LLCLS_CLPB_SetTextPtr(Value, len);
+  SetBuffer(LLCLS_CLPB_GetTextFormat(), pText, len);
+  FreeMem(pText);
 end;
 
 procedure TClipboard.SetBuffer(Format: cardinal; Buffer: pointer; Size: integer);

sources/ComCtrls.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * TWinControl: notifications for child controls modified
     * TTrackBar: 'Orientation' and 'TickStyle' properties now accessible (design time only)

sources/Controls.pas

@@ -21,6 +21,9 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * Some improvements for controls created at runtime
+    * Support for TRadioGroup
    Version 1.01:
     * Bug fix and modification: background color support
     * TStringGrid and TSelectDirectoryDialog control types added
@@ -113,7 +116,7 @@ interface
     ATTRadioButton, ATTGroupBox, ATTMemo, ATTComboBox, ATTListBox, ATTStaticText,
     ATTImage, ATTProgressBar, ATTTrackBar, ATTMenuItem, ATTMainMenu, ATTPopupMenu,
     ATTTimer, ATTTrayIcon, ATTOpenDialog, ATTSaveDialog, ATTSelectDirectoryDialog,
-    ATTStringGrid);
+    ATTStringGrid, ATTRadioGroup);    // (ATTRadioGroup not used)
 
   TMouseButton = (mbLeft, mbRight, mbMiddle);
 
@@ -226,7 +229,7 @@   TVisualControl = class(TControl)
     property  Color: integer read fColor write SetColor;
     property  Transparent: boolean read fTransparent write fTransparent;
     property  Caption: string read fCaption write SetCaption;
-    property  Alignment: TAlignment read fAlignment write fAlignment;   // Run-time modification ignored; write present only for dynamical control creation purpose
+    property  Alignment: TAlignment read fAlignment write fAlignment;   // Runtime modification ignored; write present only for dynamical control creation purpose
     property  Visible: boolean read fVisible write SetVisible;
     property  AutoSize: boolean read fAutoSize write fAutoSize;
     property  ParentFont: boolean read fParentFont write fParentFont;
@@ -310,7 +313,7 @@   TWinControl = class(TVisualControl)
     procedure SetCaption(const Value: string); override;
     function  GetTabOrder(): integer;
     procedure SetTabOrder(Value: integer);
-    procedure ClickCall(ChangeFocus: boolean; DoSetFocus: boolean);
+    procedure ClickCall(ChangeFocus: boolean; DoSetFocus: boolean); virtual;
     function  ColorCall(var Msg: TWMCtlColorStatic): boolean;
     function  ColorForSubCont(SubContMsg: integer; SubConthWnd: THandle): boolean; virtual;
     procedure FormFocus();
@@ -334,7 +337,7 @@   TWinControl = class(TVisualControl)
 //    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;  // Used in Forms, if "top invisible" form (but not here)
 //    procedure WMNCActivate(var Msg: TWMNCActivate); message WM_NCACTIVATE;  // Used in Forms, if "top invisible" form (but not here)
     procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
-    procedure WMDestroy(var Msg: TWMDestroy); message WM_DESTROY;     // Used also in Forms
+    procedure WMDestroy(var Msg: TWMDestroy); message WM_DESTROY;
 //    procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;  // Used in Forms (but not here)
     procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;  // Used also in StdCtrls and Forms
     procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;
@@ -933,16 +936,20 @@ procedure TWinControl.SetHandle(Value: THandle);
 procedure TWinControl.SetColor(Value: integer);
 begin
   inherited;
+  if fHandle=0 then exit;   // (may be called in create constructor)
   if ATType in TContainControls then
-    LLCL_RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN);
-  LLCL_InvalidateRect(Handle, nil, true);
+    LLCL_RedrawWindow(fHandle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN);
+  LLCL_InvalidateRect(fHandle, nil, true);
 end;
 
 procedure TWinControl.SetCaption(const Value: string);
 begin
   inherited;
-  UpdTextSize(Value);
-  LLCLS_SendMessageSetText(fHandle, WM_SETTEXT, Value);
+  if fHandle=0 then exit;   // (later when created at runtime)
+    begin
+      UpdTextSize(Value);
+      LLCLS_SendMessageSetText(fHandle, WM_SETTEXT, Value);
+    end;
 end;
 
 function TWinControl.GetTabOrder(): integer;
@@ -1067,6 +1074,7 @@ procedure TWinControl.AdjustTextSize(var Size: TSize);
 procedure TWinControl.SetEnabled(Value: boolean);
 begin
   fEnabled := Value;
+  if fHandle=0 then exit;   // (later when created at runtime)
   LLCL_EnableWindow(fHandle, Value);
   if (not Value) and Focused() then
     NewFormFocus(tftNextGroup);
@@ -1428,18 +1436,18 @@ procedure TWinControl.DefaultHandler(var Message);
 procedure TWinControl.Update;
 begin
   // (No inherited)
-  LLCL_UpdateWindow(Handle);
+  LLCL_UpdateWindow(fHandle);
 end;
 
 function TWinControl.ClientRect(): TRect;
 begin
-  LLCL_GetClientRect(Handle, result);
+  LLCL_GetClientRect(fHandle, result);
 end;
 
 procedure TWinControl.Show;
 begin
   inherited;
-  HandleNeeded;
+  if fHandle=0 then exit;   // (later when created at runtime)
   LLCL_ShowWindow(fHandle, fShowCommand);
   if Assigned(EOnShow) then
     EOnShow(self);
@@ -1448,7 +1456,7 @@ procedure TWinControl.Show;
 procedure TWinControl.Hide;
 begin
   inherited;
-  HandleNeeded;
+  if fHandle=0 then exit;   // (later when created at runtime)
   LLCL_ShowWindow(fHandle, SW_HIDE);
   if Focused() then
     NewFormFocus(tftNextGroup);
@@ -1477,21 +1485,22 @@ procedure TWinControl.SetFocus();
 begin
   if CanFocus() then
     begin
-      LLCL_SetFocus(Handle);
+      LLCL_SetFocus(fHandle);
       UpdateFormFocus();
     end;
 end;
 
 procedure TWinControl.SetBounds(ALeft, ATop, AWidth, AHeight: integer);
 begin
   inherited;
+  if fHandle=0 then exit;   // (later when created at runtime)
   if ATType<>ATTCustomForm then     // Done inside Forms for them
-    LLCL_MoveWindow(Handle, ALeft, ATop, AWidth, AHeight, true);
+    LLCL_MoveWindow(fHandle, ALeft, ATop, AWidth, AHeight, true);
 end;
 
 procedure TWinControl.BringToFront;
 begin
-  LLCL_SetForegroundWindow(Handle);
+  LLCL_SetForegroundWindow(fHandle);
 end;
 
 procedure TWinControl.WMLButtonDown(var Msg: TWMLButtonDown);

sources/Dialogs.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * SelectDirectory added (for FPC/Lazarus)
     * TSelectDirectoryDialog added for FPC/Lazarus (not enabled by default - see LLCL_OPT_USESELECTDIRECTORYDIALOG in LLCLOptions.inc)

sources/ExtCtrls.pas

@@ -21,6 +21,8 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * TRadioGroup added (not enabled by default - see LLCLOptions.inc)
    Version 1.01:
     * TImage: Changed added (when bitmap data are changed)
     * TImage: SetStretch modified
@@ -80,7 +82,10 @@ interface
 
 uses
   LLCLOSInt, Windows, {$IFDEF FPC}LMessages{$ELSE}Messages, ShellAPI{$ENDIF},
-  Classes, Controls, {$ifdef LLCL_OPT_USEMENUS}Menus,{$endif} Graphics;
+  Classes, Controls,
+  {$ifdef LLCL_OPT_USEMENUS}Menus,{$endif}
+  {$ifdef LLCL_OPT_USERADIOGROUP} StdCtrls,{$endif}
+  Graphics;
 
 type
 
@@ -185,6 +190,48 @@   TTrayIcon = class(TNonVisualControl)
     property  OnDblClick: TNotifyEvent read EOnDblClick write EOnDblClick;
   end;
 
+{$ifdef LLCL_OPT_USERADIOGROUP}
+  TRadioGroupStrings = class(TCtrlStrings)   // (not standard)
+  public
+    function  Add(const S: string): integer; override;
+    procedure Clear; override;
+    property  Items[index: integer]: string read GetString; default;
+  end;
+
+  TColumnLayout = (clHorizontalThenVertical, clVerticalThenHorizontal);
+
+  TRadioGroup = class(TGroupBox)
+  private
+    fItems: TRadioGroupStrings;
+    fItemIndex: integer;
+    fColumns: integer;
+    fColumnLayout: TColumnLayout;     // also used internally for Delphi
+    function  GetItemIndex(): integer;
+    procedure SetItemIndex(Value: integer);
+    procedure SetColumns(Value: integer);
+    procedure SetRadioBPos();
+    procedure CreateRadioB(const sCaption: string; nTabOrder: integer);
+    procedure RadioBClick(Sender: TObject);
+    {$IFDEF FPC}
+    procedure SetColumnLayout(AValue: TColumnLayout);
+    {$ENDIF}
+  protected
+    procedure CreateHandle; override;
+    procedure ReadProperty(const PropName: string; Reader: TReader); override;
+    function  SubProperty(const SubPropName: string): TPersistent; override;
+    procedure ClickCall(ChangeFocus: boolean; DoSetFocus: boolean); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor  Destroy; override;
+    property  Items: TRadioGroupStrings read fItems;
+    property  ItemIndex: integer read GetItemIndex write SetItemIndex;
+    property  Columns: integer read fColumns write SetColumns;
+    {$IFDEF FPC}
+    property  ColumnLayout: TColumnLayout read fColumnLayout write SetColumnLayout;
+    {$ENDIF}
+  end;
+{$endif LLCL_OPT_USERADIOGROUP}
+
 //------------------------------------------------------------------------------
 
 implementation
@@ -198,9 +245,13 @@ implementation
 
 {$ifdef LLCL_OPT_USEIMAGE}
 type
-  TPPicture = class(TPicture);        // To access to protected part
+  TPPicture = class(TPicture);          // To access to protected part
 {$endif LLCL_OPT_USEIMAGE}
 
+{$ifdef LLCL_OPT_USERADIOGROUP}
+  TPRadioButton = class(TRadioButton);  // To access to protected part
+{$endif LLCL_OPT_USERADIOGROUP}
+
 const
   NIF_MESSAGE   = $00000001;      // SysTray
   NIF_ICON      = $00000002;
@@ -547,10 +598,224 @@ procedure TTrayIcon.ShowBalloonHint;
     LLCLS_Shell_NotifyIconBalloon(NIM_MODIFY, @fSysTrayInfo, CheckWin32Version(LLCL_WIN2000_MAJ, LLCL_WIN2000_MIN), SYSTEM_INFOFLAGS[fBalloonFlags], fBalloonTimeout, fBalloonTitle, fBalloonHint);
 end;
 
+{$ifdef LLCL_OPT_USERADIOGROUP}
+{ TRadioGroupStrings }
+
+function TRadioGroupStrings.Add(const S: string): integer;
+begin
+  with TRadioGroup(fParentCtrl) do
+    begin
+      CreateRadioB(S, ControlCount);
+      SetRadioBPos();
+      TRadioButton(Controls[Pred(ControlCount)]).Visible := true;
+    end;
+  result := inherited Add(S);
+end;
+
+procedure TRadioGroupStrings.Clear;
+var i: integer;
+begin
+  with TRadioGroup(fParentCtrl) do
+    begin
+      for i := 0 to Pred(ControlCount) do
+        LLCL_DestroyWindow(TRadioButton(Controls[i]).Handle);
+      Controls.Clear;
+      fItemIndex := -1;
+    end;
+  inherited;
+end;
+
+{ TRadioGroup }
+
+constructor TRadioGroup.Create(AOwner: TComponent);
+begin
+  inherited;
+//  ATType := ATTRadioGroup;    // (not used - keep GroupBox type and behavior)
+  fItems := TRadioGroupStrings.Create(self);
+  fItemIndex := -1;
+  fColumns := 1;
+  fColumnLayout := {$IFDEF FPC}clHorizontalThenVertical{$ELSE}clVerticalThenHorizontal{$ENDIF}
+end;
+
+procedure TRadioGroup.CreateHandle;
+var i: integer;
+begin
+  inherited;
+  // Creates RadioButtons
+  for i := 0 to Pred(fItems.Count) do
+    CreateRadioB(fItems[i], i);
+  SetRadioBPos();
+  if fItemIndex>=0 then     // (avoid RadioBClick);
+    TRadioButton(Controls[fItemIndex]).Checked := true;
+  for i := 0 to Pred(fItems.Count) do
+    TRadioButton(Controls[i]).Visible := true;
+end;
+
+procedure TRadioGroup.CreateRadioB(const sCaption: string; nTabOrder: integer);
+var RBTmp: TRadioButton;
+begin
+  RBTmp := TRadioButton.Create(self);
+  RBTmp.Caption := sCaption;
+  RBTmp.TabOrder := nTabOrder;
+  RBTMP.Visible := false;;
+  RBTMP.OnClick := {$IFDEF LLCL_OBJFPC_MODE}@{$ENDIF}RadioBClick;
+  RBTMP.Parent := self;
+end;
+
+destructor TRadioGroup.Destroy;
+begin
+  fItems.Free;
+  inherited;
+end;
+
+function TRadioGroup.GetItemIndex(): integer;
+var i: integer;
+begin
+  fItemIndex := -1;
+  for i := 0 to Pred(ControlCount) do
+    if TRadioButton(Controls[i]).Checked then
+      begin
+        fItemIndex := i;
+        break;
+      end;
+  result := fItemIndex;
+end;
+
+procedure TRadioGroup.SetItemIndex(Value: integer);
+var i: integer;
+begin
+  fItemIndex := Value;
+  if fItemIndex=-1 then
+    begin
+      i := GetItemIndex();
+      if i>=0 then
+        TRadioButton(Controls[i]).Checked := false;
+      RadioBClick(self);
+    end
+  else
+    TPRadioButton(Controls[Value]).ClickCall(false, false); // raise an error for incorrect index
+end;
+
+procedure TRadioGroup.SetColumns(Value: integer);
+begin
+  if Value<1 then
+    raise Exception.CreateFmt(LLCL_STR_EXCT_RGROUPCOLUMN, [Value])
+  else
+    begin
+      fColumns := Value;
+      SetRadioBPos();
+    end;
+end;
+
+// Positions of RadioButtons are slightly different than for LCL/VCL
+procedure TRadioGroup.SetRadioBPos();
+const WidthMargin = 8;
+const HeightMargin = 10;
+var WPosHandle: HDWP;
+var nCol, nRow: integer;
+var nTop, nLeft, nTopStart: integer;
+var IncWidth, IncHeight: integer;
+var i, iItemBreak: integer;
+begin
+  if ControlCount = 0 then exit;
+  nCol := fColumns;
+  if fColumnLayout=clHorizontalThenVertical then
+    begin
+      if ControlCount<nCol then nCol := ControlCount;       // Specific to FPC, but clHorizontalThenVertical is already specific to FPC
+      nRow := (ControlCount + Pred(nCol)) div nCol;
+      iItemBreak := nCol;
+    end
+  else
+    begin
+      nRow := (ControlCount + Pred(nCol)) div nCol;
+{$IFDEF FPC}
+      // Re-computes real number of columns
+      nCol := (ControlCount + Pred(nRow)) div nRow;
+{$ENDIF}
+      iItemBreak := nRow;
+    end;
+  IncWidth := (Width - (WidthMargin * 2)) div nCol;
+  IncHeight := (Height - (HeightMargin * 2)) div nRow;
+  nTopStart := HeightMargin + (IncHeight div 2);
+  nTop := nTopStart - IncHeight;
+  nLeft := WidthMargin - IncWidth;
+  WPosHandle := LLCL_BeginDeferWindowPos(ControlCount);
+  if WPosHandle = 0 then exit;
+  for i := 0 to Pred(ControlCount) do
+    begin
+      if (i mod iItemBreak)=0 then
+        if fColumnLayout=clHorizontalThenVertical then
+          begin
+            nTop := nTop + IncHeight;
+            nLeft := WidthMargin;
+          end
+        else
+          begin
+            nTop := nTopStart;
+            nLeft := nLeft + IncWidth;
+          end
+      else
+        if fColumnLayout=clHorizontalThenVertical then
+          nLeft := nLeft + IncWidth
+        else
+          nTop := nTop + IncHeight;
+      with TRadioButton(Controls[i]) do
+        LLCL_DeferWindowPos(WPosHandle, Handle, 0, nLeft, nTop, Width, Height, SWP_NOZORDER or SWP_NOACTIVATE);
+    end;
+  LLCL_EndDeferWindowPos(WPosHandle);
+end;
+
+procedure TRadioGroup.RadioBClick(Sender: TObject);
+begin
+  if Assigned(OnClick) then
+    OnClick(self);
+end;
+
+procedure TRadioGroup.ReadProperty(const PropName: string; Reader: TReader);
+const Properties: array[0..2] of PChar = ('ItemIndex', 'Columns', 'ColumnLayout');
+begin
+  case StringIndex(PropName, Properties) of
+    0 : fItemIndex := Reader.IntegerProperty;
+    1 : fColumns := Reader.IntegerProperty;
+    2 : Reader.IdentProperty(fColumnLayout, TypeInfo(TColumnLayout));
+    else inherited;
+  end;
+end;
+
+function TRadioGroup.SubProperty(const SubPropName: string): TPersistent;
+const SubProperties: array[0..0] of PChar = ('Items');
+begin
+  case StringIndex(SubPropName, SubProperties) of
+   0 : result := fItems;
+   else result := inherited SubProperty(SubPropName);
+  end;
+end;
+
+procedure TRadioGroup.ClickCall(ChangeFocus: boolean; DoSetFocus: boolean);
+var OnClickSave: TNotifyEvent;
+begin
+  OnClickSave := OnClick;
+  OnClick := nil;
+  inherited;
+  OnClick := OnClickSave;
+end;
+
+{$IFDEF FPC}
+procedure TRadioGroup.SetColumnLayout(AValue: TColumnLayout);
+begin
+  fColumnLayout := AValue;
+  SetRadioBPos();
+end;
+{$ENDIF}
+{$endif LLCL_OPT_USERADIOGROUP}
+
 //------------------------------------------------------------------------------
 
 initialization
-  RegisterClasses([TTimer, TTrayIcon {$ifdef LLCL_OPT_USEIMAGE}, TImage{$endif}]);
+  RegisterClasses([TTimer, TTrayIcon
+    {$ifdef LLCL_OPT_USEIMAGE}, TImage{$endif}
+    {$ifdef LLCL_OPT_USERADIOGROUP}, TRadioGroup{$endif}
+      ]);
 
 {$IFDEF FPC}
   {$POP}

sources/FileCtrl.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * File creation.
     * SelectDirectory added (for Delphi)

sources/FileUtil.pas

@@ -21,6 +21,8 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * DeleteFileUTF8 and RenameFileUTF8 added
    Version 1.01:
    Version 1.00:
     * File creation.
@@ -61,6 +63,8 @@ function  DirectoryExistsUTF8(const Directory: string): boolean;
 function  ForceDirectoriesUTF8(const Dir: string): boolean;
 function  CreateDirUTF8(const Dir: string): boolean;
 function  RemoveDirUTF8(const Dir: string): boolean;
+function  DeleteFileUTF8(const FileName: string): boolean;
+function  RenameFileUTF8(const OldName, NewName: string): boolean;
 // (No GetFileVersionUTF8 function)
 
 function  SysErrorMessageUTF8(ErrorCode: integer): string;
@@ -160,6 +164,16 @@ function  RemoveDirUTF8(const Dir: string): boolean;
   result := LazFileUtils.RemoveDirUTF8(Dir);
 end;
 
+function  DeleteFileUTF8(const FileName: string): boolean;
+begin
+  result := LazFileUtils.DeleteFileUTF8(FileName);
+end;
+
+function  RenameFileUTF8(const OldName, NewName: string): boolean;
+begin
+  result := LazFileUtils.RenameFileUTF8(OldName, NewName);
+end;
+
 //------------------------------------------------------------------------------
 
 // (Functions belonging to LazUTF8)

sources/Forms.pas

@@ -21,6 +21,9 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * Bug fix for ShowModal in TCustomForm
+    * Modifications and bug fix when application is terminating
    Version 1.01:
     * Bug fix: Color in TCustomForm
     * TForm: 'BorderStyle', 'Position' and 'FormStyle' properties now accessible (design time only)
@@ -95,7 +98,7 @@ interface
   Classes, SysUtils, Controls, {$ifdef LLCL_OPT_USEMENUS}Menus,{$endif} Graphics;
 
 const
-  LLCLVersion = 0100;                 // Can be tested {$IF Declared(...)}
+  LLCLVersion = 0102;                 // Can be tested {$IF Declared(...)}
   LLCLOSType  = 'WIN';                //    in user's programs
 
 type
@@ -152,7 +155,6 @@   TCustomForm = class(TWinControl)
     procedure CallOnPaint;
     procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;
     procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;
-    procedure WMDestroy(var Msg: TWMDestroy); message WM_DESTROY;
     procedure WMClose(var Msg: TWMClose); message WM_CLOSE;
     {$ifdef LLCL_OPT_USEMENUS}
     procedure WMCommand(var Msg: TWMCommand); message WM_COMMAND;
@@ -203,6 +205,7 @@   TApplication = class(TComponent)
     fIcon: TIcon;
     fNonClientMetrics: TCustomNonClientMetrics;
     fTerminated: boolean;
+    fPostQuitDone: boolean;
     fMainForm: TCustomForm;
     fShowMainForm: boolean;
     fTitle: string;
@@ -229,6 +232,7 @@   TApplication = class(TComponent)
     procedure ModalFormsRestore(ActiveWindowHandle: THandle; var FormsStateList: TList);
     {$ifdef LLCL_OPT_TOPFORM}
     procedure SetVisible(ShowCall: boolean);
+    function  TopHandle(): THandle;
     {$endif}
   protected
     function  AppHandle(): THandle;
@@ -361,7 +365,6 @@ destructor TCustomForm.Destroy;
 begin
   if Assigned(EOnDestroy) then
     EOnDestroy(Self);
-  LLCL_DestroyWindow(Handle);
   inherited;
 end;
 
@@ -516,13 +519,7 @@ procedure TCustomForm.CreateParams(var Params : TCreateParams);
       Style := cfStyle;                             // Replaced
       ExStyle := cfExStyle or WS_EX_CONTROLPARENT;  //  "  "
       {$ifdef LLCL_OPT_TOPFORM}
-      if Application.fMainFormOnTaskBar then
-        begin
-          if Application.MainForm<>nil then     // (Not if is creating MainForm)
-            WndParent := Application.Mainform.Handle;
-        end
-      else
-        WndParent := Application.AppHandle();
+      WndParent := Application.TopHandle();
       {$endif}
       WinClassName := TFORM_CLASS;
     end;
@@ -654,16 +651,9 @@ procedure TCustomForm.WMSetFocus(var Msg: TWMSetFocus);
   FormFocus();
 end;
 
-procedure TCustomForm.WMDestroy(var Msg: TWMDestroy);
-begin
-  inherited;
-  if self=Application.MainForm then
-    LLCL_PostQuitMessage(0);
-end;
-
 procedure TCustomForm.WMClose(var Msg: TWMClose);
 begin
-  // (No inherited, except for the second MainForm time)
+  // (No inherited, except when application is terminating)
   if Application.Terminated then
     inherited
   else
@@ -785,13 +775,20 @@ constructor TApplication.Create(AOwner: TComponent);
 end;
 
 destructor TApplication.Destroy;
+{$ifndef LLCL_OPT_TOPFORM}
+var i: integer;
+{$endif}
 begin
   fIcon.Free;
-  LLCL_UnregisterClass(TFORM_CLASS, hInstance);
   {$ifdef LLCL_OPT_TOPFORM}
   LLCL_SetWindowLongPtr(fHandle, GWL_WNDPROC, NativeUInt(@LLCL_DefWindowProc));
+  LLCL_DestroyWindow(TopHandle());
   LLCL_UnregisterClass(TAPPL_CLASS, hInstance);
+  {$else}
+  for i := 0 to (Components.Count - 1) do
+    LLCL_DestroyWindow(TWincontrol(Components[i]).Handle);
   {$endif}
+  LLCL_UnregisterClass(TFORM_CLASS, hInstance);
   inherited;
 end;
 
@@ -832,8 +829,6 @@ function TAppWndProc(hWnd: THandle; Msg: integer; wParam, lParam: NativeUInt): N
       SC_MINIMIZE: begin Application.Minimize; exit; end;
       SC_RESTORE: begin Application.Restore; exit; end;
     end;
-  WM_QUIT:
-    Application.Terminate;
   end;
   result := LLCL_DefWindowProc(hWnd, Msg, wParam, lParam);
 end;
@@ -899,6 +894,21 @@ function TApplication.AppHandle(): THandle;
   {$endif}
 end;
 
+{$ifdef LLCL_OPT_TOPFORM}
+function TApplication.TopHandle(): THandle;
+begin
+  if fMainFormOnTaskBar then
+    begin
+      if MainForm<>nil then     // (Not if is creating MainForm)
+        result := Mainform.Handle
+      else
+        result := 0;
+    end
+  else
+    result := fHandle;    // AppHandle()
+end;
+{$endif}
+
 procedure TApplication.SetTitle(const Value: string);
 begin
   fTitle := Value;
@@ -944,8 +954,7 @@ function TApplication.ModalFormsSave(ShowWindowHandle: THandle; var FormsStateLi
     with TCustomForm(Components[i]) do
       begin
         FormsStateList.Add(pointer(nativeuint(Enabled)));  // (Ugly hack)
-        if Handle<>ShowWindowHandle then
-          Enabled := false;
+        Enabled := (Handle=ShowWindowHandle);
       end;
   {$else}
   if result<>0 then
@@ -1019,8 +1028,11 @@ procedure TApplication.ProcessMessages;
 var msg: TMsg;
 begin
   while LLCL_PeekMessage(msg, 0, 0, 0, PM_REMOVE) do
-    if (Msg.Message=WM_QUIT) and (self<>nil) then
-      fTerminated := true
+    if Msg.Message=WM_QUIT then
+      begin
+        fTerminated := true;
+        break;
+      end
     else
       begin
         LLCL_TranslateMessage(Msg);
@@ -1030,10 +1042,10 @@ procedure TApplication.ProcessMessages;
 
 procedure TApplication.Terminate;
 begin
-  if not fTerminated then
+  if not fPostQuitDone then
     begin
-      fTerminated := true;
-      LLCL_PostMessage(fMainForm.Handle, WM_CLOSE, 0, 0);    // Post or re-Post it
+      fPostQuitDone := true;
+      LLCL_PostQuitMessage(0);
     end;
 end;
 

sources/Graphics.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * TBitmap: PNG files support added (not enabled by default - see LLCL_OPT_PNGSUPPORT/LLCL_OPT_PNGSIMPLIFIED in LLCLOptions.inc)
     * TBitmap: transparent bitmap support added (not enabled by default - see LLCL_OPT_IMGTRANSPARENT in LLCLOptions.inc)

sources/Grids.pas

@@ -21,6 +21,8 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * Bug fix for ColCount and RowCount modification
    Version 1.01:
     * File creation.
     * TStringGrid implemented
@@ -764,7 +766,7 @@ procedure TStringGrid.DelCols(Value: integer; Base: integer);
   if (Base-Value)<0 then TmpValue := Base;    // Sanity
   for i:=0 to pred(TmpValue) do
     // ListView_DeleteColumn(Handle, Base-i);
-    LLCL_SendMessage(Handle, LVM_DELETECOLUMN, Base-i, 0);
+    LLCL_SendMessage(Handle, LVM_DELETECOLUMN, pred(Base-i), 0);
 end;
 
 procedure TStringGrid.AddRows(Value: integer; Base: integer; UseDefRowHeight: boolean);
@@ -798,7 +800,7 @@ procedure TStringGrid.DelRows(Value: integer; Base: integer);
   else
     for i:=0 to pred(TmpValue) do
       // ListView_DeleteItem(Handle, Base-i);
-      LLCL_SendMessage(Handle, LVM_DELETEITEM, Base-i, 0);
+      LLCL_SendMessage(Handle, LVM_DELETEITEM, pred(Base-i), 0);
 end;
 
 procedure TStringGrid.SetColCount(AValue: integer);

sources/IniFiles.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * File creation.
     * TIniFile implemented

sources/Interfaces.pp

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
    Version 1.00:
     * File creation.

sources/LCLIntF.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * File creation.
 

sources/LCLType.pp

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * RT_**** constants added (point to Windows declarations)
    Version 1.00:

sources/LLCLOSInt.pas

@@ -135,6 +135,14 @@
   {$DEFINE LLCL_OPT_DOUBLEBUFF}
 {$IFEND}
 
+{   LLCL_OPT_USERADIOGROUP   -   ExtCtrls.pas
+
+    RadioGroup class used in program
+
+    Notes: when defined, this permits to use the RadioGroup class.
+}
+//{$DEFINE LLCL_OPT_USERADIOGROUP}
+
 //------------------------------------------------------------------------------
 
 {

sources/LLCLOptions.inc

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * File creation.
     * PNG to BMP conversion

sources/LLCLPng.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * File creation.
     * Zlib interface for the Light LCL implemented

sources/LLCLZlib.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * TWMMove, TWMNotify, TWMSysCommand added
    Version 1.00:

sources/LMessages.pp

@@ -21,6 +21,8 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * DeleteFileUTF8 and RenameFileUTF8 added
    Version 1.01:
    Version 1.00:
     * File creation.
@@ -60,6 +62,8 @@ function  DirectoryExistsUTF8(const Directory: string): boolean;
 function  ForceDirectoriesUTF8(const Dir: string): boolean;
 function  CreateDirUTF8(const Dir: string): boolean;
 function  RemoveDirUTF8(const Dir: string): boolean;
+function  DeleteFileUTF8(const FileName: string): boolean;
+function  RenameFileUTF8(const OldName, NewName: string): boolean;
 // (No GetFileVersionUTF8 function)
 
 //------------------------------------------------------------------------------
@@ -232,6 +236,16 @@ function  RemoveDirUTF8(const Dir: string): boolean;
   result := LLCL_RemoveDirectory(@Dir[1]);
 end;
 
+function  DeleteFileUTF8(const FileName: string): boolean;
+begin
+  result := LLCL_DeleteFile(@FileName[1]);
+end;
+
+function  RenameFileUTF8(const OldName, NewName: string): boolean;
+begin
+  result := LLCL_MoveFile(@OldName[1], @NewName[1]);
+end;
+
 //------------------------------------------------------------------------------
 
 function  LFUFindMatchingFile(var F: TSearchRec): integer;

sources/LazFileUtils.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
     * UTF8CompareStr, UTF8CompareText, UTF8LowerCase and UTF8UpperCase added
    Version 1.00:

sources/LazUTF8.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
    Version 1.00:
     * File creation.

sources/LazUTF8Classes.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
    Version 1.00:
     * File creation.

sources/Menus.pas

@@ -21,6 +21,8 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
+    * DeleteFile and RenameFile added
    Version 1.01:
     * Some (irrelevant) Kylix code removed
     * StrToInt64/StrToInt64Def/TryStrToInt64 added
@@ -391,6 +393,8 @@ function  FileAge(const FileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}st
 function  FileSetDate(Handle: THandle; Age: integer): integer; overload;
 function  FileAge(const FileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}; out FileDateTime: TDateTime): boolean; overload;
 function  GetFileVersion(const aFileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}): cardinal; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}  // (Only a string version in LCL)
+function  DeleteFile(const FileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}): boolean; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}
+function  RenameFile(const OldName, NewName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}): boolean; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}
 {$endif}
 
 function  FindFirst(const Path: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}; Attr: integer; var F: {$IFDEF LLCL_FPC_UNISYS}TUnicodeSearchRec{$ELSE}TSearchRec{$ENDIF}): integer; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}
@@ -458,6 +462,8 @@ function  FileSetDate(const FileName: rawbytestring; Age: integer): integer; ove
 function  FileAge(const FileName: rawbytestring): integer; overload;
 function  FileAge(const FileName: rawbytestring; out FileDateTime: TDateTime): boolean; overload;
 function  GetFileVersion(const aFileName: rawbytestring): cardinal; overload; // (Only a string version in LCL)
+function  DeleteFile(const FileName: rawbytestring): boolean; overload;
+function  RenameFile(const OldName, NewName: rawbytestring): boolean; overload;
 
 function  FindFirst(const Path: rawbytestring; Attr: integer; var F: TRawByteSearchRec): integer; overload;
 function  FindNext(var F: TRawByteSearchRec): integer; overload;
@@ -2714,6 +2720,18 @@ function  GetFileVersion(const aFileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{
     end;
 end;
 
+function  DeleteFile(const FileName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}): boolean; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}
+begin
+  result := {$IFDEF LLCL_FPC_SYSRTL}LLCLSys_DeleteFile{$ELSE}LLCL_DeleteFile{$ENDIF}
+      (@FileName[1]);
+end;
+
+function  RenameFile(const OldName, NewName: {$IFDEF LLCL_FPC_UNISYS}unicodestring{$ELSE}string{$ENDIF}): boolean; {$IFDEF LLCL_FPC_UNISYS}overload;{$ENDIF}
+begin
+  result := {$IFDEF LLCL_FPC_SYSRTL}LLCLSys_MoveFile{$ELSE}LLCL_MoveFile{$ENDIF}
+      (@OldName[1], @NewName[1]);
+end;
+
 {$else}     // Linux version of the code:
 
 function  FileCreate(const FileName: string): integer;
@@ -2846,6 +2864,16 @@ function  GetFileVersion(const aFileName: rawbytestring): cardinal; overload;
   result := GetFileVersion(unicodestring(aFileName));
 end;
 
+function  DeleteFile(const FileName: rawbytestring): boolean; overload;
+begin
+  result := DeleteFile(unicodestring(FileName));
+end;
+
+function  RenameFile(const OldName, NewName: rawbytestring): boolean; overload;
+begin
+  result := RenameFile(unicodestring(OldName), unicodestring(NewName));
+end;
+
 {$ENDIF LLCL_FPC_UNISYS}
 
 function  FindMatchingFile(var F: {$IFDEF LLCL_FPC_UNISYS}TUnicodeSearchRec{$ELSE}TSearchRec{$ENDIF}): integer;

sources/Registry.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
    Version 1.00:
 

sources/StdCtrls.pas

@@ -21,6 +21,7 @@
   Copyright (c) 2008 Arnaud Bouchez - http://bouchez.info
   Portions Copyright (c) 2001 Paul Toth - http://tothpaul.free.fr
 
+   Version 1.02:
    Version 1.01:
    Version 1.00:
     * File creation.