From 08c7a1f3a5682967ae1ff716b2462cfa837f6b8a Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 17 Mar 2008 17:04:56 +0000
Subject: [PATCH] change records to packed records

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@381 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/autopanel.pas |   2 +-
 components/rx/dbutils.pas   |   4 +-
 components/rx/pickdate.pas  |  24 +++++++-
 components/rx/rxlogin.lfm   |  80 ++++++++++++++------------
 components/rx/rxlogin.lrs   | 112 +++++++++++++++++-------------------
 components/rx/rxmemds.pas   |   2 +-
 components/rx/vclutils.pas  |   2 +-
 7 files changed, 122 insertions(+), 104 deletions(-)

diff --git a/components/rx/autopanel.pas b/components/rx/autopanel.pas
index 7c7c3ddef..ac3a0a501 100644
--- a/components/rx/autopanel.pas
+++ b/components/rx/autopanel.pas
@@ -8,7 +8,7 @@ uses
   SysUtils, Classes, LCLType, ExtCtrls;
 type
 
-  TPlacement = record
+  TPlacement = packed record
     Left, Top, Width, Height: Integer;
   end;
   
diff --git a/components/rx/dbutils.pas b/components/rx/dbutils.pas
index 6f335d9e0..d6bcd5aa6 100644
--- a/components/rx/dbutils.pas
+++ b/components/rx/dbutils.pas
@@ -552,7 +552,7 @@ end;
 procedure InternalRestoreFields(DataSet: TDataSet; IniFile: TObject;
   const Section: string; RestoreVisible: Boolean);
 type
-  TFieldInfo = record
+  TFieldInfo = packed record
     Field: TField;
     EndIndex: Integer;
   end;
@@ -618,7 +618,7 @@ end;
 procedure InternalRestoreFields(DataSet: TDataSet; IniFile: TObject;
   const Section: string; RestoreVisible: Boolean);
 type
-  TFieldInfo = record
+  TFieldInfo = packed record
     Field: TField;
     EndIndex: Integer;
   end;
diff --git a/components/rx/pickdate.pas b/components/rx/pickdate.pas
index 49d078ab2..fbe8b9740 100644
--- a/components/rx/pickdate.pas
+++ b/components/rx/pickdate.pas
@@ -25,7 +25,7 @@ uses
 type
   TDayOfWeek = 0..6;
 
-  TDaysItem = record
+  TDaysItem = packed record
     DayNum:byte;
     DayDate:TDateTime;
     DayColor:TColor;
@@ -381,7 +381,11 @@ begin
 
   if ARow>0 then
   begin
-    Canvas.Font.Color:=FDaysArray[ACol, ARow].DayColor;
+    if not ((gdSelected in aState) and (gdFocused in aState)) then
+      Canvas.Font.Color:=FDaysArray[ACol, ARow].DayColor
+    else
+      Canvas.Font.Color:=clWindow
+    ;
     DrawCellText(ACol, ARow, ARect, AState, IntToStr(FDaysArray[ACol, ARow].DayNum));
   end
   else
@@ -820,10 +824,12 @@ begin
   if (csDesigning in ComponentState) then Exit;
 
   BackPanel := TPanel.Create(Self);
+  BackPanel.Anchors:=[akLeft, akRight, akTop, akBottom];
+
   with BackPanel as TPanel do
   begin
     Parent := Self;
-    Align := alClient;
+//    Align := alClient;
     ParentColor := True;
     ControlStyle := ControlStyle + [csReplicatable];
   end;
@@ -838,6 +844,7 @@ begin
     BevelOuter := bvNone;
     ParentColor := True;
     ControlStyle := ControlStyle + [csReplicatable];
+    Color:=clSkyBlue;
   end;
 
   FCalendar := TLocCalendar.Create(Self);
@@ -856,6 +863,14 @@ begin
   FCloseBtn.Align:=alBottom;
   FCloseBtn.AutoSize:=true;
 
+  BackPanel.Top:=2;
+  BackPanel.Left:=2;
+  BackPanel.Width:=Width - 4;
+{.$IFDEF LINUX}
+//  BackPanel.Height:=Height - FCloseBtn.Height - 2;
+{.$ELSE}
+  BackPanel.Height:=Height - 4;
+
   FBtns[0] := TRxTimerSpeedButton.Create(Self);
   with FBtns[0] do
   begin
@@ -1004,6 +1019,9 @@ begin
     CR:=ClientRect;
     RxFrame3D(Canvas, CR, clBtnHighlight, clWindowFrame, 1);
     RxFrame3D(Canvas, CR, clBtnFace, clBtnShadow, 1);
+{    Canvas.Pen.Color:=clWindowText;
+    Canvas.Pen.Style := psSolid;
+    Canvas.Rectangle(0, 0, Width-1, Height-1)}
 end;
 
 procedure TPopupCalendar.Deactivate;
diff --git a/components/rx/rxlogin.lfm b/components/rx/rxlogin.lfm
index bedd5a217..58c50780d 100644
--- a/components/rx/rxlogin.lfm
+++ b/components/rx/rxlogin.lfm
@@ -1,8 +1,8 @@
 object RxLoginForm: TRxLoginForm
   Cursor = crArrow
-  Left = 213
+  Left = 230
   Height = 159
-  Top = 102
+  Top = 141
   Width = 442
   HorzScrollBar.Page = 441
   VertScrollBar.Page = 158
@@ -16,16 +16,14 @@ object RxLoginForm: TRxLoginForm
   FormStyle = fsStayOnTop
   OnCreate = FormCreate
   OnShow = FormShow
-  PixelsPerInch = 96
   Position = poScreenCenter
-  TextHeight = 13
+  LCLVersion = '0.9.25'
   object AppIcon: TImage
     Left = 14
     Height = 32
     Top = 12
     Width = 32
     AutoSize = True
-    Transparent = True
   end
   object KeyImage: TImage
     Left = 10
@@ -34,33 +32,47 @@ object RxLoginForm: TRxLoginForm
     Width = 32
     AutoSize = True
     Picture.Data = {
-      055449636F6EFE0200000000010001002020100000000000E802000016000000
-      2800000020000000400000000100040000000000800200000000000000000000
-      0000000000000000000000000000800000800000008080008000000080008000
-      80800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00
-      FFFF0000FFFFFF00000000000000000000000000000000008FFFFFFFFFFFFFFF
-      FF000000000000008FFFFFFFFFFFFFFFFF000000000000008FFFFFFFFFF00F00
-      FF000000000000008FF800FFFFF00F00FF000000000000008F80800FFFF00F00
-      FF000000000000008F00FF00000000000F000000000000008F00FF0000000000
-      0F000000000000008F80800FFFFFFFFFFF000000000000008FF800FFFFFFFFFF
-      FF000000000000008FFFFFFFFFFFFFFFFF000000000000008888888888888888
-      8800000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000001FFF00001FFF00001FFF00001FFF00001FFF00001FFF
-      00001FFF00001FFF00001FFF00001FFF00001FFF00001FFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF
+      055449636F6EEB0400002F2A2058504D202A2F0A737461746963206368617220
+      2A677261706869635B5D203D207B0A22333220333220342031222C0A222E2063
+      204E6F6E65222C0A222C20632023383038303830222C0A222D20632023303030
+      303030222C0A222A20632023464646464646222C0A222E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
+      0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
+      0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
+      0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E222C0A222C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2E2E2E2E2E2E2E
+      2E2E2E2E2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2D2E2E2E
+      2E2E2E2E2E2E2E2E2E2E222C0A222C2A2A2C2D2D2A2A2A2A2A2A2A2A2A2A2A2A
+      2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A2C2D2C2D2D2A2A2A2A2A2A2A
+      2A2A2A2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A2D2D2A2A2D2D2D2D
+      2D2D2D2D2D2D2D2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A2D2D2A2A
+      2D2D2D2D2D2D2D2D2D2D2D2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A
+      2C2D2C2D2D2A2A2A2A2D2D2A2D2D2A2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C
+      0A222C2A2A2C2D2D2A2A2A2A2A2D2D2A2D2D2A2A2D2E2E2E2E2E2E2E2E2E2E2E
+      2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2D2D2A2D2D2A2A2D2E2E2E2E2E2E2E
+      2E2E2E2E2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2D2E2E2E
+      2E2E2E2E2E2E2E2E2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A
     }
-    Transparent = True
   end
   object HintLabel: TLabel
     Left = 64
@@ -68,7 +80,6 @@ object RxLoginForm: TRxLoginForm
     Top = 31
     Width = 285
     AutoSize = False
-    Color = clNone
     ParentColor = False
     ShowAccelChar = False
   end
@@ -78,7 +89,6 @@ object RxLoginForm: TRxLoginForm
     Top = 64
     Width = 105
     AutoSize = False
-    Color = clNone
     FocusControl = UserNameEdit
     ParentColor = False
   end
@@ -88,7 +98,6 @@ object RxLoginForm: TRxLoginForm
     Top = 96
     Width = 105
     AutoSize = False
-    Color = clNone
     FocusControl = PasswordEdit
     ParentColor = False
   end
@@ -98,7 +107,6 @@ object RxLoginForm: TRxLoginForm
     Top = 12
     Width = 285
     AutoSize = False
-    Color = clNone
     ParentColor = False
     ShowAccelChar = False
   end
@@ -108,7 +116,6 @@ object RxLoginForm: TRxLoginForm
     Top = 128
     Width = 105
     AutoSize = False
-    Color = clNone
     FocusControl = CustomCombo
     ParentColor = False
   end
@@ -126,6 +133,7 @@ object RxLoginForm: TRxLoginForm
     Height = 21
     Top = 92
     Width = 169
+    EchoMode = emPassword
     PasswordChar = '*'
     TabOrder = 1
   end
diff --git a/components/rx/rxlogin.lrs b/components/rx/rxlogin.lrs
index b523c5873..fc2345dd9 100644
--- a/components/rx/rxlogin.lrs
+++ b/components/rx/rxlogin.lrs
@@ -1,64 +1,56 @@
 { Это - файл ресурсов, автоматически созданный lazarus }
 
 LazarusResources.Add('TRxLoginForm','FORMDATA',[
-  'TPF0'#12'TRxLoginForm'#11'RxLoginForm'#6'Cursor'#7#7'crArrow'#4'Left'#3#213#0
-  +#6'Height'#3#159#0#3'Top'#2'f'#5'Width'#3#186#1#18'HorzScrollBar.Page'#3#185
-  +#1#18'VertScrollBar.Page'#3#158#0#11'BorderIcons'#11#0#11'BorderStyle'#7#8'b'
-  +'sDialog'#7'Caption'#6#11'RxLoginForm'#12'ClientHeight'#3#159#0#11'ClientWid'
-  +'th'#3#186#1#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'FormSt'
-  +'yle'#7#11'fsStayOnTop'#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'
-  +#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2#13
-  +#0#6'TImage'#7'AppIcon'#4'Left'#2#14#6'Height'#2' '#3'Top'#2#12#5'Width'#2' '
-  +#8'AutoSize'#9#11'Transparent'#9#0#0#6'TImage'#8'KeyImage'#4'Left'#2#10#6'He'
-  +'ight'#2' '#3'Top'#2#15#5'Width'#2' '#8'AutoSize'#9#12'Picture.Data'#10#8#3#0
-  +#0#5'TIcon'#254#2#0#0#0#0#1#0#1#0'  '#16#0#0#0#0#0#232#2#0#0#22#0#0#0'('#0#0
-  +#0' '#0#0#0'@'#0#0#0#1#0#4#0#0#0#0#0#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0
-  +#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0
-  +#255#0#255#255#0#0#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#143#255#255
-  +#255#255#255#255#255#255#0#0#0#0#0#0#0#143#255#255#255#255#255#255#255#255#0
-  +#0#0#0#0#0#0#143#255#255#255#255#240#15#0#255#0#0#0#0#0#0#0#143#248#0#255#255
-  +#240#15#0#255#0#0#0#0#0#0#0#143#128#128#15#255#240#15#0#255#0#0#0#0#0#0#0#143
-  +#0#255#0#0#0#0#0#15#0#0#0#0#0#0#0#143#0#255#0#0#0#0#0#15#0#0#0#0#0#0#0#143
-  +#128#128#15#255#255#255#255#255#0#0#0#0#0#0#0#143#248#0#255#255#255#255#255
-  +#255#0#0#0#0#0#0#0#143#255#255#255#255#255#255#255#255#0#0#0#0#0#0#0#136#136
-  +#136#136#136#136#136#136#136#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#31#255#0#0#31#255#0#0#31#255#0#0#31#255#0#0#31#255#0#0#31#255#0#0#31#255#0
-  +#0#31#255#0#0#31#255#0#0#31#255#0#0#31#255#0#0#31#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#11'Tran'
-  +'sparent'#9#0#0#6'TLabel'#9'HintLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2
-  +#31#5'Width'#3#29#1#8'AutoSize'#8#5'Color'#7#6'clNone'#11'ParentColor'#8#13
-  +'ShowAccelChar'#8#0#0#6'TLabel'#13'UserNameLabel'#4'Left'#2'@'#6'Height'#2#13
-  +#3'Top'#2'@'#5'Width'#2'i'#8'AutoSize'#8#5'Color'#7#6'clNone'#12'FocusContro'
-  +'l'#7#12'UserNameEdit'#11'ParentColor'#8#0#0#6'TLabel'#13'PasswordLabel'#4'L'
-  +'eft'#2'@'#6'Height'#2#13#3'Top'#2'`'#5'Width'#2'i'#8'AutoSize'#8#5'Color'#7
-  +#6'clNone'#12'FocusControl'#7#12'PasswordEdit'#11'ParentColor'#8#0#0#6'TLabe'
-  +'l'#13'AppTitleLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2#12#5'Width'#3#29#1
-  +#8'AutoSize'#8#5'Color'#7#6'clNone'#11'ParentColor'#8#13'ShowAccelChar'#8#0#0
-  +#6'TLabel'#11'CustomLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#3#128#0#5'Widt'
-  +'h'#2'i'#8'AutoSize'#8#5'Color'#7#6'clNone'#12'FocusControl'#7#11'CustomComb'
-  +'o'#11'ParentColor'#8#0#0#5'TEdit'#12'UserNameEdit'#6'Cursor'#7#7'crIBeam'#4
-  +'Left'#3#172#0#6'Height'#2#21#3'Top'#2'<'#5'Width'#3#169#0#8'TabOrder'#2#0#0
-  +#0#5'TEdit'#12'PasswordEdit'#6'Cursor'#7#7'crIBeam'#4'Left'#3#172#0#6'Height'
-  +#2#21#3'Top'#2'\'#5'Width'#3#169#0#12'PasswordChar'#6#1'*'#8'TabOrder'#2#1#0
-  +#0#7'TButton'#5'OkBtn'#4'Left'#3'd'#1#6'Height'#2#25#3'Top'#2#12#5'Width'#2
-  +'M'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2'OK'#7'Default'#9#7'OnCl'
-  +'ick'#7#10'OkBtnClick'#8'TabOrder'#2#3#0#0#7'TButton'#9'CancelBtn'#4'Left'#3
-  +'d'#1#6'Height'#2#25#3'Top'#2','#5'Width'#2'M'#25'BorderSpacing.InnerBorder'
-  +#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#4#0
-  +#0#9'TComboBox'#11'CustomCombo'#4'Left'#3#172#0#6'Height'#2#21#3'Top'#2'|'#5
-  +'Width'#3#169#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactS'
-  +'earchAscending'#0#10'ItemHeight'#2#13#9'MaxLength'#2#0#6'Sorted'#9#5'Style'
-  +#7#14'csDropDownList'#8'TabOrder'#2#2#0#0#0
+  'TPF0'#12'TRxLoginForm'#11'RxLoginForm'#6'Cursor'#7#7'crArrow'#4'Left'#3#230#0
+  +#6'Height'#3#159#0#3'Top'#3#141#0#5'Width'#3#186#1#18'HorzScrollBar.Page'#3
+  +#185#1#18'VertScrollBar.Page'#3#158#0#11'BorderIcons'#11#0#11'BorderStyle'#7
+  +#8'bsDialog'#7'Caption'#6#11'RxLoginForm'#12'ClientHeight'#3#159#0#11'Client'
+  +'Width'#3#186#1#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'For'
+  +'mStyle'#7#11'fsStayOnTop'#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormSh'
+  +'ow'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6'TImage'
+  +#7'AppIcon'#4'Left'#2#14#6'Height'#2' '#3'Top'#2#12#5'Width'#2' '#8'AutoSize'
+  +#9#0#0#6'TImage'#8'KeyImage'#4'Left'#2#10#6'Height'#2' '#3'Top'#2#15#5'Width'
+  +#2' '#8'AutoSize'#9#12'Picture.Data'#10#245#4#0#0#5'TIcon'#235#4#0#0'/* XPM '
+  +'*/'#10'static char *graphic[] = {'#10'"32 32 4 1",'#10'". c None",'#10'", c'
+  +' #808080",'#10'"- c #000000",'#10'"* c #FFFFFF",'#10'".....................'
+  +'...........",'#10'"................................",'#10'"................'
+  +'................",'#10'"................................",'#10'"...........'
+  +'.....................",'#10'"................................",'#10'"......'
+  +'..........................",'#10'"................................",'#10'".'
+  +'...............................",'#10'"................................",'
+  +#10'"................................",'#10'"...............................'
+  +'.",'#10'"................................",'#10'"..........................'
+  +'......",'#10'"................................",'#10'".....................'
+  +'...........",'#10'"................................",'#10'"................'
+  +'................",'#10'"................................",'#10'"...........'
+  +'.....................",'#10'",,,,,,,,,,,,,,,,,,-.............",'#10'",*****'
+  +'************-.............",'#10'",**,--************-.............",'#10'",'
+  +'*,-,--***********-.............",'#10'",*--**-----------*-.............",'
+  +#10'",*--**-----------*-.............",'#10'",*,-,--****--*--**-............'
+  +'.",'#10'",**,--*****--*--**-.............",'#10'",**********--*--**-.......'
+  +'......",'#10'",*****************-.............",'#10'",*****************-..'
+  +'...........",'#10'"-------------------............."}'#10#0#0#6'TLabel'#9'H'
+  +'intLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2#31#5'Width'#3#29#1#8'AutoSiz'
+  +'e'#8#11'ParentColor'#8#13'ShowAccelChar'#8#0#0#6'TLabel'#13'UserNameLabel'#4
+  +'Left'#2'@'#6'Height'#2#13#3'Top'#2'@'#5'Width'#2'i'#8'AutoSize'#8#12'FocusC'
+  +'ontrol'#7#12'UserNameEdit'#11'ParentColor'#8#0#0#6'TLabel'#13'PasswordLabel'
+  +#4'Left'#2'@'#6'Height'#2#13#3'Top'#2'`'#5'Width'#2'i'#8'AutoSize'#8#12'Focu'
+  +'sControl'#7#12'PasswordEdit'#11'ParentColor'#8#0#0#6'TLabel'#13'AppTitleLab'
+  +'el'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2#12#5'Width'#3#29#1#8'AutoSize'#8#11
+  +'ParentColor'#8#13'ShowAccelChar'#8#0#0#6'TLabel'#11'CustomLabel'#4'Left'#2
+  +'@'#6'Height'#2#13#3'Top'#3#128#0#5'Width'#2'i'#8'AutoSize'#8#12'FocusContro'
+  +'l'#7#11'CustomCombo'#11'ParentColor'#8#0#0#5'TEdit'#12'UserNameEdit'#6'Curs'
+  +'or'#7#7'crIBeam'#4'Left'#3#172#0#6'Height'#2#21#3'Top'#2'<'#5'Width'#3#169#0
+  +#8'TabOrder'#2#0#0#0#5'TEdit'#12'PasswordEdit'#6'Cursor'#7#7'crIBeam'#4'Left'
+  +#3#172#0#6'Height'#2#21#3'Top'#2'\'#5'Width'#3#169#0#8'EchoMode'#7#10'emPass'
+  +'word'#12'PasswordChar'#6#1'*'#8'TabOrder'#2#1#0#0#7'TButton'#5'OkBtn'#4'Lef'
+  +'t'#3'd'#1#6'Height'#2#25#3'Top'#2#12#5'Width'#2'M'#25'BorderSpacing.InnerBo'
+  +'rder'#2#2#7'Caption'#6#2'OK'#7'Default'#9#7'OnClick'#7#10'OkBtnClick'#8'Tab'
+  +'Order'#2#3#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'd'#1#6'Height'#2#25#3'Top'
+  +#2','#5'Width'#2'M'#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'
+  +#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#4#0#0#9'TComboBox'#11'CustomC'
+  +'ombo'#4'Left'#3#172#0#6'Height'#2#21#3'Top'#2'|'#5'Width'#3#169#0#16'AutoCo'
+  +'mpleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'Ite'
+  +'mHeight'#2#13#9'MaxLength'#2#0#6'Sorted'#9#5'Style'#7#14'csDropDownList'#8
+  +'TabOrder'#2#2#0#0#0
 ]);
diff --git a/components/rx/rxmemds.pas b/components/rx/rxmemds.pas
index fb8b3dcbb..2ce5c39d0 100644
--- a/components/rx/rxmemds.pas
+++ b/components/rx/rxmemds.pas
@@ -337,7 +337,7 @@ end;
 type
   TBookmarkData = Integer;
   PMemBookmarkInfo = ^TMemBookmarkInfo;
-  TMemBookmarkInfo = record
+  TMemBookmarkInfo = packed record
     BookmarkData: TBookmarkData;
     BookmarkFlag: TBookmarkFlag;
   end;
diff --git a/components/rx/vclutils.pas b/components/rx/vclutils.pas
index 43d2fddb4..cadfa494d 100644
--- a/components/rx/vclutils.pas
+++ b/components/rx/vclutils.pas
@@ -140,7 +140,7 @@ end;
 {$IFDEF WIN32}
 type
   PCheckTaskInfo = ^TCheckTaskInfo;
-  TCheckTaskInfo = record
+  TCheckTaskInfo = packed record
     FocusWnd: HWnd;
     Found: Boolean;
   end;