pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

change records to packed records

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@381 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-03-17 17:04:56 +00:00
parent bba8f3d864
commit 08c7a1f3a5
7 changed files with 122 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/autopanel.pas
View File

@@ -8,7 +8,7 @@ uses
SysUtils, Classes, LCLType, ExtCtrls; SysUtils, Classes, LCLType, ExtCtrls;
type type
TPlacement = record TPlacement = packed record
Left, Top, Width, Height: Integer; Left, Top, Width, Height: Integer;
end; end;

4
components/rx/dbutils.pas
View File

@@ -552,7 +552,7 @@ end;
procedure InternalRestoreFields(DataSet: TDataSet; IniFile: TObject; procedure InternalRestoreFields(DataSet: TDataSet; IniFile: TObject;
const Section: string; RestoreVisible: Boolean); const Section: string; RestoreVisible: Boolean);
type type
TFieldInfo = record TFieldInfo = packed record
Field: TField; Field: TField;
EndIndex: Integer; EndIndex: Integer;
end; end;
@@ -618,7 +618,7 @@ end;
procedure InternalRestoreFields(DataSet: TDataSet; IniFile: TObject; procedure InternalRestoreFields(DataSet: TDataSet; IniFile: TObject;
const Section: string; RestoreVisible: Boolean); const Section: string; RestoreVisible: Boolean);
type type
TFieldInfo = record TFieldInfo = packed record
Field: TField; Field: TField;
EndIndex: Integer; EndIndex: Integer;
end; end;

24
components/rx/pickdate.pas
View File

@@ -25,7 +25,7 @@ uses
type type
TDayOfWeek = 0..6; TDayOfWeek = 0..6;
TDaysItem = record TDaysItem = packed record
DayNum:byte; DayNum:byte;
DayDate:TDateTime; DayDate:TDateTime;
DayColor:TColor; DayColor:TColor;
@@ -381,7 +381,11 @@ begin
if ARow>0 then if ARow>0 then
begin 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)); DrawCellText(ACol, ARow, ARect, AState, IntToStr(FDaysArray[ACol, ARow].DayNum));
end end
else else
@@ -820,10 +824,12 @@ begin
if (csDesigning in ComponentState) then Exit; if (csDesigning in ComponentState) then Exit;
BackPanel := TPanel.Create(Self); BackPanel := TPanel.Create(Self);
BackPanel.Anchors:=[akLeft, akRight, akTop, akBottom];
with BackPanel as TPanel do with BackPanel as TPanel do
begin begin
Parent := Self; Parent := Self;
Align := alClient; // Align := alClient;
ParentColor := True; ParentColor := True;
ControlStyle := ControlStyle + [csReplicatable]; ControlStyle := ControlStyle + [csReplicatable];
end; end;
@@ -838,6 +844,7 @@ begin
BevelOuter := bvNone; BevelOuter := bvNone;
ParentColor := True; ParentColor := True;
ControlStyle := ControlStyle + [csReplicatable]; ControlStyle := ControlStyle + [csReplicatable];
Color:=clSkyBlue;
end; end;
FCalendar := TLocCalendar.Create(Self); FCalendar := TLocCalendar.Create(Self);
@@ -856,6 +863,14 @@ begin
FCloseBtn.Align:=alBottom; FCloseBtn.Align:=alBottom;
FCloseBtn.AutoSize:=true; 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); FBtns[0] := TRxTimerSpeedButton.Create(Self);
with FBtns[0] do with FBtns[0] do
begin begin
@@ -1004,6 +1019,9 @@ begin
CR:=ClientRect; CR:=ClientRect;
RxFrame3D(Canvas, CR, clBtnHighlight, clWindowFrame, 1); RxFrame3D(Canvas, CR, clBtnHighlight, clWindowFrame, 1);
RxFrame3D(Canvas, CR, clBtnFace, clBtnShadow, 1); RxFrame3D(Canvas, CR, clBtnFace, clBtnShadow, 1);
{ Canvas.Pen.Color:=clWindowText;
Canvas.Pen.Style := psSolid;
Canvas.Rectangle(0, 0, Width-1, Height-1)}
end; end;
procedure TPopupCalendar.Deactivate; procedure TPopupCalendar.Deactivate;

80
components/rx/rxlogin.lfm
View File

@@ -1,8 +1,8 @@
object RxLoginForm: TRxLoginForm object RxLoginForm: TRxLoginForm
Cursor = crArrow Cursor = crArrow
Left = 213 Left = 230
Height = 159 Height = 159
Top = 102 Top = 141
Width = 442 Width = 442
HorzScrollBar.Page = 441 HorzScrollBar.Page = 441
VertScrollBar.Page = 158 VertScrollBar.Page = 158
@@ -16,16 +16,14 @@ object RxLoginForm: TRxLoginForm
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96
Position = poScreenCenter Position = poScreenCenter
TextHeight = 13 LCLVersion = '0.9.25'
object AppIcon: TImage object AppIcon: TImage
Left = 14 Left = 14
Height = 32 Height = 32
Top = 12 Top = 12
Width = 32 Width = 32
AutoSize = True AutoSize = True
Transparent = True
end end
object KeyImage: TImage object KeyImage: TImage
Left = 10 Left = 10
@@ -34,33 +32,47 @@ object RxLoginForm: TRxLoginForm
Width = 32 Width = 32
AutoSize = True AutoSize = True
Picture.Data = { Picture.Data = {
055449636F6EFE0200000000010001002020100000000000E802000016000000 055449636F6EEB0400002F2A2058504D202A2F0A737461746963206368617220
2800000020000000400000000100040000000000800200000000000000000000 2A677261706869635B5D203D207B0A22333220333220342031222C0A222E2063
0000000000000000000000000000800000800000008080008000000080008000 204E6F6E65222C0A222C20632023383038303830222C0A222D20632023303030
80800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00 303030222C0A222A20632023464646464646222C0A222E2E2E2E2E2E2E2E2E2E
FFFF0000FFFFFF00000000000000000000000000000000008FFFFFFFFFFFFFFF 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
FF000000000000008FFFFFFFFFFFFFFFFF000000000000008FFFFFFFFFF00F00 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
FF000000000000008FF800FFFFF00F00FF000000000000008F80800FFFF00F00 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
FF000000000000008F00FF00000000000F000000000000008F00FF0000000000 0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
0F000000000000008F80800FFFFFFFFFFF000000000000008FF800FFFFFFFFFF 2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
FF000000000000008FFFFFFFFFFFFFFFFF000000000000008888888888888888 2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
8800000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
0000000000000000000000000000000000000000000000000000000000000000 0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
0000000000000000000000000000000000000000000000000000000000000000 2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
000000000000000000001FFF00001FFF00001FFF00001FFF00001FFF00001FFF 2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E
00001FFF00001FFF00001FFF00001FFF00001FFF00001FFFFFFFFFFFFFFFFFFF 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
FFFFFFFFFFFFFFFF 2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
2E2E222C0A222C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2E2E2E2E2E2E2E
2E2E2E2E2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2D2E2E2E
2E2E2E2E2E2E2E2E2E2E222C0A222C2A2A2C2D2D2A2A2A2A2A2A2A2A2A2A2A2A
2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A2C2D2C2D2D2A2A2A2A2A2A2A
2A2A2A2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A2D2D2A2A2D2D2D2D
2D2D2D2D2D2D2D2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A2D2D2A2A
2D2D2D2D2D2D2D2D2D2D2D2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2A
2C2D2C2D2D2A2A2A2A2D2D2A2D2D2A2A2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C
0A222C2A2A2C2D2D2A2A2A2A2A2D2D2A2D2D2A2A2D2E2E2E2E2E2E2E2E2E2E2E
2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2D2D2A2D2D2A2A2D2E2E2E2E2E2E2E
2E2E2E2E2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2D2E2E2E
2E2E2E2E2E2E2E2E2E2E222C0A222C2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
2D2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222D2D2D2D2D2D2D2D2D2D2D2D2D2D
2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A
} }
Transparent = True
end end
object HintLabel: TLabel object HintLabel: TLabel
Left = 64 Left = 64
@@ -68,7 +80,6 @@ object RxLoginForm: TRxLoginForm
Top = 31 Top = 31
Width = 285 Width = 285
AutoSize = False AutoSize = False
Color = clNone
ParentColor = False ParentColor = False
ShowAccelChar = False ShowAccelChar = False
end end
@@ -78,7 +89,6 @@ object RxLoginForm: TRxLoginForm
Top = 64 Top = 64
Width = 105 Width = 105
AutoSize = False AutoSize = False
Color = clNone
FocusControl = UserNameEdit FocusControl = UserNameEdit
ParentColor = False ParentColor = False
end end
@@ -88,7 +98,6 @@ object RxLoginForm: TRxLoginForm
Top = 96 Top = 96
Width = 105 Width = 105
AutoSize = False AutoSize = False
Color = clNone
FocusControl = PasswordEdit FocusControl = PasswordEdit
ParentColor = False ParentColor = False
end end
@@ -98,7 +107,6 @@ object RxLoginForm: TRxLoginForm
Top = 12 Top = 12
Width = 285 Width = 285
AutoSize = False AutoSize = False
Color = clNone
ParentColor = False ParentColor = False
ShowAccelChar = False ShowAccelChar = False
end end
@@ -108,7 +116,6 @@ object RxLoginForm: TRxLoginForm
Top = 128 Top = 128
Width = 105 Width = 105
AutoSize = False AutoSize = False
Color = clNone
FocusControl = CustomCombo FocusControl = CustomCombo
ParentColor = False ParentColor = False
end end
@@ -126,6 +133,7 @@ object RxLoginForm: TRxLoginForm
Height = 21 Height = 21
Top = 92 Top = 92
Width = 169 Width = 169
EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
TabOrder = 1 TabOrder = 1
end end

112
components/rx/rxlogin.lrs
View File

@@ -1,64 +1,56 @@
{ ��� - ���� ��������, ������������� ��������� lazarus } { ��� - ���� ��������, ������������� ��������� lazarus }
LazarusResources.Add('TRxLoginForm','FORMDATA',[ LazarusResources.Add('TRxLoginForm','FORMDATA',[
'TPF0'#12'TRxLoginForm'#11'RxLoginForm'#6'Cursor'#7#7'crArrow'#4'Left'#3#213#0 'TPF0'#12'TRxLoginForm'#11'RxLoginForm'#6'Cursor'#7#7'crArrow'#4'Left'#3#230#0
+#6'Height'#3#159#0#3'Top'#2'f'#5'Width'#3#186#1#18'HorzScrollBar.Page'#3#185 +#6'Height'#3#159#0#3'Top'#3#141#0#5'Width'#3#186#1#18'HorzScrollBar.Page'#3
+#1#18'VertScrollBar.Page'#3#158#0#11'BorderIcons'#11#0#11'BorderStyle'#7#8'b' +#185#1#18'VertScrollBar.Page'#3#158#0#11'BorderIcons'#11#0#11'BorderStyle'#7
+'sDialog'#7'Caption'#6#11'RxLoginForm'#12'ClientHeight'#3#159#0#11'ClientWid' +#8'bsDialog'#7'Caption'#6#11'RxLoginForm'#12'ClientHeight'#3#159#0#11'Client'
+'th'#3#186#1#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'FormSt' +'Width'#3#186#1#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'For'
+'yle'#7#11'fsStayOnTop'#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow' +'mStyle'#7#11'fsStayOnTop'#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormSh'
+#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2#13 +'ow'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6'TImage'
+#0#6'TImage'#7'AppIcon'#4'Left'#2#14#6'Height'#2' '#3'Top'#2#12#5'Width'#2' ' +#7'AppIcon'#4'Left'#2#14#6'Height'#2' '#3'Top'#2#12#5'Width'#2' '#8'AutoSize'
+#8'AutoSize'#9#11'Transparent'#9#0#0#6'TImage'#8'KeyImage'#4'Left'#2#10#6'He' +#9#0#0#6'TImage'#8'KeyImage'#4'Left'#2#10#6'Height'#2' '#3'Top'#2#15#5'Width'
+'ight'#2' '#3'Top'#2#15#5'Width'#2' '#8'AutoSize'#9#12'Picture.Data'#10#8#3#0 +#2' '#8'AutoSize'#9#12'Picture.Data'#10#245#4#0#0#5'TIcon'#235#4#0#0'/* XPM '
+#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 +'*/'#10'static char *graphic[] = {'#10'"32 32 4 1",'#10'". c None",'#10'", c'
+#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 +' #808080",'#10'"- c #000000",'#10'"* c #FFFFFF",'#10'".....................'
+#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 +'...........",'#10'"................................",'#10'"................'
+#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 +'................",'#10'"................................",'#10'"...........'
+#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 +'.....................",'#10'"................................",'#10'"......'
+#255#255#255#255#255#255#0#0#0#0#0#0#0#143#255#255#255#255#255#255#255#255#0 +'..........................",'#10'"................................",'#10'".'
+#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 +'...............................",'#10'"................................",'
+#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 +#10'"................................",'#10'"...............................'
+#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 +'.",'#10'"................................",'#10'"..........................'
+#128#128#15#255#255#255#255#255#0#0#0#0#0#0#0#143#248#0#255#255#255#255#255 +'......",'#10'"................................",'#10'".....................'
+#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 +'...........",'#10'"................................",'#10'"................'
+#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 +'................",'#10'"................................",'#10'"...........'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'.....................",'#10'",,,,,,,,,,,,,,,,,,-.............",'#10'",*****'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'************-.............",'#10'",**,--************-.............",'#10'",'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'*,-,--***********-.............",'#10'",*--**-----------*-.............",'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +#10'",*--**-----------*-.............",'#10'",*,-,--****--*--**-............'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'.",'#10'",**,--*****--*--**-.............",'#10'",**********--*--**-.......'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'......",'#10'",*****************-.............",'#10'",*****************-..'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'...........",'#10'"-------------------............."}'#10#0#0#6'TLabel'#9'H'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'intLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2#31#5'Width'#3#29#1#8'AutoSiz'
+#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 +'e'#8#11'ParentColor'#8#13'ShowAccelChar'#8#0#0#6'TLabel'#13'UserNameLabel'#4
+#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 +'Left'#2'@'#6'Height'#2#13#3'Top'#2'@'#5'Width'#2'i'#8'AutoSize'#8#12'FocusC'
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +'ontrol'#7#12'UserNameEdit'#11'ParentColor'#8#0#0#6'TLabel'#13'PasswordLabel'
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +#4'Left'#2'@'#6'Height'#2#13#3'Top'#2'`'#5'Width'#2'i'#8'AutoSize'#8#12'Focu'
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +'sControl'#7#12'PasswordEdit'#11'ParentColor'#8#0#0#6'TLabel'#13'AppTitleLab'
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#11'Tran' +'el'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2#12#5'Width'#3#29#1#8'AutoSize'#8#11
+'sparent'#9#0#0#6'TLabel'#9'HintLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2 +'ParentColor'#8#13'ShowAccelChar'#8#0#0#6'TLabel'#11'CustomLabel'#4'Left'#2
+#31#5'Width'#3#29#1#8'AutoSize'#8#5'Color'#7#6'clNone'#11'ParentColor'#8#13 +'@'#6'Height'#2#13#3'Top'#3#128#0#5'Width'#2'i'#8'AutoSize'#8#12'FocusContro'
+'ShowAccelChar'#8#0#0#6'TLabel'#13'UserNameLabel'#4'Left'#2'@'#6'Height'#2#13 +'l'#7#11'CustomCombo'#11'ParentColor'#8#0#0#5'TEdit'#12'UserNameEdit'#6'Curs'
+#3'Top'#2'@'#5'Width'#2'i'#8'AutoSize'#8#5'Color'#7#6'clNone'#12'FocusContro' +'or'#7#7'crIBeam'#4'Left'#3#172#0#6'Height'#2#21#3'Top'#2'<'#5'Width'#3#169#0
+'l'#7#12'UserNameEdit'#11'ParentColor'#8#0#0#6'TLabel'#13'PasswordLabel'#4'L' +#8'TabOrder'#2#0#0#0#5'TEdit'#12'PasswordEdit'#6'Cursor'#7#7'crIBeam'#4'Left'
+'eft'#2'@'#6'Height'#2#13#3'Top'#2'`'#5'Width'#2'i'#8'AutoSize'#8#5'Color'#7 +#3#172#0#6'Height'#2#21#3'Top'#2'\'#5'Width'#3#169#0#8'EchoMode'#7#10'emPass'
+#6'clNone'#12'FocusControl'#7#12'PasswordEdit'#11'ParentColor'#8#0#0#6'TLabe' +'word'#12'PasswordChar'#6#1'*'#8'TabOrder'#2#1#0#0#7'TButton'#5'OkBtn'#4'Lef'
+'l'#13'AppTitleLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2#12#5'Width'#3#29#1 +'t'#3'd'#1#6'Height'#2#25#3'Top'#2#12#5'Width'#2'M'#25'BorderSpacing.InnerBo'
+#8'AutoSize'#8#5'Color'#7#6'clNone'#11'ParentColor'#8#13'ShowAccelChar'#8#0#0 +'rder'#2#2#7'Caption'#6#2'OK'#7'Default'#9#7'OnClick'#7#10'OkBtnClick'#8'Tab'
+#6'TLabel'#11'CustomLabel'#4'Left'#2'@'#6'Height'#2#13#3'Top'#3#128#0#5'Widt' +'Order'#2#3#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'd'#1#6'Height'#2#25#3'Top'
+'h'#2'i'#8'AutoSize'#8#5'Color'#7#6'clNone'#12'FocusControl'#7#11'CustomComb' +#2','#5'Width'#2'M'#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'
+'o'#11'ParentColor'#8#0#0#5'TEdit'#12'UserNameEdit'#6'Cursor'#7#7'crIBeam'#4 +#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#4#0#0#9'TComboBox'#11'CustomC'
+'Left'#3#172#0#6'Height'#2#21#3'Top'#2'<'#5'Width'#3#169#0#8'TabOrder'#2#0#0 +'ombo'#4'Left'#3#172#0#6'Height'#2#21#3'Top'#2'|'#5'Width'#3#169#0#16'AutoCo'
+#0#5'TEdit'#12'PasswordEdit'#6'Cursor'#7#7'crIBeam'#4'Left'#3#172#0#6'Height' +'mpleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'Ite'
+#2#21#3'Top'#2'\'#5'Width'#3#169#0#12'PasswordChar'#6#1'*'#8'TabOrder'#2#1#0 +'mHeight'#2#13#9'MaxLength'#2#0#6'Sorted'#9#5'Style'#7#14'csDropDownList'#8
+#0#7'TButton'#5'OkBtn'#4'Left'#3'd'#1#6'Height'#2#25#3'Top'#2#12#5'Width'#2 +'TabOrder'#2#2#0#0#0
+'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
]); ]);

2
components/rx/rxmemds.pas
View File

@@ -337,7 +337,7 @@ end;
type type
TBookmarkData = Integer; TBookmarkData = Integer;
PMemBookmarkInfo = ^TMemBookmarkInfo; PMemBookmarkInfo = ^TMemBookmarkInfo;
TMemBookmarkInfo = record TMemBookmarkInfo = packed record
BookmarkData: TBookmarkData; BookmarkData: TBookmarkData;
BookmarkFlag: TBookmarkFlag; BookmarkFlag: TBookmarkFlag;
end; end;

2
components/rx/vclutils.pas
View File

@@ -140,7 +140,7 @@ end;
{$IFDEF WIN32} {$IFDEF WIN32}
type type
PCheckTaskInfo = ^TCheckTaskInfo; PCheckTaskInfo = ^TCheckTaskInfo;
TCheckTaskInfo = record TCheckTaskInfo = packed record
FocusWnd: HWnd; FocusWnd: HWnd;
Found: Boolean; Found: Boolean;
end; end;