mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 14:49:34 +01:00 
			
		
		
		
	packager: change AUnitName property to Unit_Name
git-svn-id: trunk@22353 -
This commit is contained in:
		
							parent
							
								
									5d50a609c0
								
							
						
					
					
						commit
						1e5ed0e46d
					
				@ -10,17 +10,17 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
  OnClose = AddFileToAPackageDlgClose
 | 
			
		||||
  Position = poScreenCenter
 | 
			
		||||
  ShowHint = True
 | 
			
		||||
  LCLVersion = '0.9.27'
 | 
			
		||||
  LCLVersion = '0.9.29'
 | 
			
		||||
  object FileGroupBox: TGroupBox
 | 
			
		||||
    Left = 6
 | 
			
		||||
    Height = 152
 | 
			
		||||
    Height = 148
 | 
			
		||||
    Top = 6
 | 
			
		||||
    Width = 457
 | 
			
		||||
    Align = alTop
 | 
			
		||||
    AutoSize = True
 | 
			
		||||
    BorderSpacing.Around = 6
 | 
			
		||||
    Caption = 'FileGroupBox'
 | 
			
		||||
    ClientHeight = 134
 | 
			
		||||
    ClientHeight = 130
 | 
			
		||||
    ClientWidth = 453
 | 
			
		||||
    TabOrder = 0
 | 
			
		||||
    object UnitNameLabel: TLabel
 | 
			
		||||
@ -28,7 +28,7 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
      AnchorSideTop.Side = asrBottom
 | 
			
		||||
      Left = 6
 | 
			
		||||
      Height = 14
 | 
			
		||||
      Top = 35
 | 
			
		||||
      Top = 33
 | 
			
		||||
      Width = 439
 | 
			
		||||
      Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
      BorderSpacing.Left = 6
 | 
			
		||||
@ -42,7 +42,7 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
      AnchorSideTop.Side = asrBottom
 | 
			
		||||
      Left = 6
 | 
			
		||||
      Height = 25
 | 
			
		||||
      Top = 103
 | 
			
		||||
      Top = 99
 | 
			
		||||
      Width = 439
 | 
			
		||||
      Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
      AutoFill = True
 | 
			
		||||
@ -63,7 +63,7 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
    end
 | 
			
		||||
    object FileNameEdit: TEdit
 | 
			
		||||
      Left = 6
 | 
			
		||||
      Height = 23
 | 
			
		||||
      Height = 21
 | 
			
		||||
      Top = 6
 | 
			
		||||
      Width = 439
 | 
			
		||||
      Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
@ -76,8 +76,8 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
      AnchorSideTop.Control = UnitNameLabel
 | 
			
		||||
      AnchorSideTop.Side = asrBottom
 | 
			
		||||
      Left = 6
 | 
			
		||||
      Height = 23
 | 
			
		||||
      Top = 51
 | 
			
		||||
      Height = 21
 | 
			
		||||
      Top = 49
 | 
			
		||||
      Width = 439
 | 
			
		||||
      Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
      BorderSpacing.Top = 2
 | 
			
		||||
@ -89,7 +89,7 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
      AnchorSideTop.Side = asrBottom
 | 
			
		||||
      Left = 6
 | 
			
		||||
      Height = 17
 | 
			
		||||
      Top = 80
 | 
			
		||||
      Top = 76
 | 
			
		||||
      Width = 439
 | 
			
		||||
      Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
      BorderSpacing.Top = 6
 | 
			
		||||
@ -100,7 +100,7 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
  object PackagesGroupBox: TGroupBox
 | 
			
		||||
    Left = 6
 | 
			
		||||
    Height = 74
 | 
			
		||||
    Top = 164
 | 
			
		||||
    Top = 160
 | 
			
		||||
    Width = 457
 | 
			
		||||
    Align = alTop
 | 
			
		||||
    Anchors = [akLeft, akRight]
 | 
			
		||||
@ -116,10 +116,8 @@ object AddFileToAPackageDialog: TAddFileToAPackageDialog
 | 
			
		||||
      Top = 6
 | 
			
		||||
      Width = 441
 | 
			
		||||
      Align = alTop
 | 
			
		||||
      AutoComplete = False
 | 
			
		||||
      BorderSpacing.Around = 6
 | 
			
		||||
      ItemHeight = 13
 | 
			
		||||
      ItemWidth = 0
 | 
			
		||||
      TabOrder = 0
 | 
			
		||||
      Text = 'PackagesComboBox'
 | 
			
		||||
    end
 | 
			
		||||
 | 
			
		||||
@ -5,18 +5,18 @@ LazarusResources.Add('TAddFileToAPackageDialog','FORMDATA',[
 | 
			
		||||
  +#6'Height'#3#168#1#3'Top'#3#221#0#5'Width'#3#213#1#13'ActiveControl'#7#12'Fi'
 | 
			
		||||
  +'leNameEdit'#7'Caption'#6#23'AddFileToAPackageDialog'#12'ClientHeight'#3#168
 | 
			
		||||
  +#1#11'ClientWidth'#3#213#1#7'OnClose'#7#25'AddFileToAPackageDlgClose'#8'Posi'
 | 
			
		||||
  +'tion'#7#14'poScreenCenter'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.27'#0#9'TGr'
 | 
			
		||||
  +'oupBox'#12'FileGroupBox'#4'Left'#2#6#6'Height'#3#152#0#3'Top'#2#6#5'Width'#3
 | 
			
		||||
  +'tion'#7#14'poScreenCenter'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.29'#0#9'TGr'
 | 
			
		||||
  +'oupBox'#12'FileGroupBox'#4'Left'#2#6#6'Height'#3#148#0#3'Top'#2#6#5'Width'#3
 | 
			
		||||
  +#201#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capt'
 | 
			
		||||
  +'ion'#6#12'FileGroupBox'#12'ClientHeight'#3#134#0#11'ClientWidth'#3#197#1#8
 | 
			
		||||
  +'ion'#6#12'FileGroupBox'#12'ClientHeight'#3#130#0#11'ClientWidth'#3#197#1#8
 | 
			
		||||
  +'TabOrder'#2#0#0#6'TLabel'#13'UnitNameLabel'#21'AnchorSideTop.Control'#7#12
 | 
			
		||||
  +'FileNameEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
 | 
			
		||||
  +#14#3'Top'#2'#'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
 | 
			
		||||
  +#14#3'Top'#2'!'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
 | 
			
		||||
  +#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Rig'
 | 
			
		||||
  +'ht'#2#6#7'Caption'#6#13'UnitNameLabel'#11'ParentColor'#8#0#0#11'TRadioGroup'
 | 
			
		||||
  +#18'FileTypeRadioGroup'#21'AnchorSideTop.Control'#7#23'HasRegisterProcCheckB'
 | 
			
		||||
  +'ox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#25#3'Top'
 | 
			
		||||
  +#2'g'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoF'
 | 
			
		||||
  +#2'c'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoF'
 | 
			
		||||
  +'ill'#9#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'FileTypeR'
 | 
			
		||||
  +'adioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpa'
 | 
			
		||||
  +'cing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
 | 
			
		||||
@ -25,27 +25,27 @@ LazarusResources.Add('TAddFileToAPackageDialog','FORMDATA',[
 | 
			
		||||
  +#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
 | 
			
		||||
  +'m'#27'ChildSizing.ControlsPerLine'#2#1#21'Constraints.MinHeight'#2#25#8'Tab'
 | 
			
		||||
  +'Order'#2#3#7'TabStop'#9#0#0#5'TEdit'#12'FileNameEdit'#4'Left'#2#6#6'Height'
 | 
			
		||||
  +#2#23#3'Top'#2#6#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
 | 
			
		||||
  +#2#21#3'Top'#2#6#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
 | 
			
		||||
  +#0#20'BorderSpacing.Around'#2#6#8'ReadOnly'#9#8'TabOrder'#2#0#4'Text'#6#12'F'
 | 
			
		||||
  +'ileNameEdit'#0#0#5'TEdit'#12'UnitNameEdit'#21'AnchorSideTop.Control'#7#13'U'
 | 
			
		||||
  +'nitNameLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
 | 
			
		||||
  +#23#3'Top'#2'3'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
 | 
			
		||||
  +#21#3'Top'#2'1'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
 | 
			
		||||
  +#0#17'BorderSpacing.Top'#2#2#8'TabOrder'#2#1#4'Text'#6#12'UnitNameEdit'#0#0#9
 | 
			
		||||
  +'TCheckBox'#23'HasRegisterProcCheckBox'#21'AnchorSideTop.Control'#7#12'UnitN'
 | 
			
		||||
  +'ameEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3
 | 
			
		||||
  +'Top'#2'P'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17
 | 
			
		||||
  +'Top'#2'L'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17
 | 
			
		||||
  +'BorderSpacing.Top'#2#6#7'Caption'#6#23'HasRegisterProcCheckBox'#8'TabOrder'
 | 
			
		||||
  +#2#2#0#0#0#9'TGroupBox'#16'PackagesGroupBox'#4'Left'#2#6#6'Height'#2'J'#3'To'
 | 
			
		||||
  +'p'#3#164#0#5'Width'#3#201#1#5'Align'#7#5'alTop'#7'Anchors'#11#6'akLeft'#7'a'
 | 
			
		||||
  +'p'#3#160#0#5'Width'#3#201#1#5'Align'#7#5'alTop'#7'Anchors'#11#6'akLeft'#7'a'
 | 
			
		||||
  +'kRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'Packag'
 | 
			
		||||
  +'esGroupBox'#12'ClientHeight'#2'8'#11'ClientWidth'#3#197#1#8'TabOrder'#2#1#0
 | 
			
		||||
  +#9'TComboBox'#16'PackagesComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'W'
 | 
			
		||||
  +'idth'#3#185#1#5'Align'#7#5'alTop'#12'AutoComplete'#8#20'BorderSpacing.Aroun'
 | 
			
		||||
  +'d'#2#6#10'ItemHeight'#2#13#9'ItemWidth'#2#0#8'TabOrder'#2#0#4'Text'#6#16'Pa'
 | 
			
		||||
  +'ckagesComboBox'#0#0#9'TCheckBox'#15'ShowAllCheckBox'#4'Left'#2#6#6'Height'#2
 | 
			
		||||
  +#17#3'Top'#2'!'#5'Width'#3#185#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
 | 
			
		||||
  +#2#6#7'Caption'#6#15'ShowAllCheckBox'#7'OnClick'#7#20'ShowAllCheckBoxClick'#8
 | 
			
		||||
  +'TabOrder'#2#1#0#0#0#12'TButtonPanel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26
 | 
			
		||||
  +#3'Top'#3#136#1#5'Width'#3#201#1#8'TabOrder'#2#2#11'ShowButtons'#11#4'pbOK'#8
 | 
			
		||||
  +'pbCancel'#6'pbHelp'#0#9'ShowBevel'#8#0#0#0
 | 
			
		||||
  +'idth'#3#185#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#10'ItemHeigh'
 | 
			
		||||
  +'t'#2#13#8'TabOrder'#2#0#4'Text'#6#16'PackagesComboBox'#0#0#9'TCheckBox'#15
 | 
			
		||||
  +'ShowAllCheckBox'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'!'#5'Width'#3#185#1#5
 | 
			
		||||
  +'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'ShowAllCheck'
 | 
			
		||||
  +'Box'#7'OnClick'#7#20'ShowAllCheckBoxClick'#8'TabOrder'#2#1#0#0#0#12'TButton'
 | 
			
		||||
  +'Panel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26#3'Top'#3#136#1#5'Width'#3#201
 | 
			
		||||
  +#1#8'TabOrder'#2#2#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#9'Show'
 | 
			
		||||
  +'Bevel'#8#0#0#0
 | 
			
		||||
]);
 | 
			
		||||
 | 
			
		||||
@ -80,7 +80,7 @@ type
 | 
			
		||||
    destructor Destroy; override;
 | 
			
		||||
    procedure UpdateAvailablePackages;
 | 
			
		||||
    property Filename: string read GetFilename write SetFilename;
 | 
			
		||||
    property AUnitName: string read GetUnitName write SetUnitName;
 | 
			
		||||
    property Unit_Name: string read GetUnitName write SetUnitName;
 | 
			
		||||
    property FileType: TPkgFileType read GetFileType write SetFileType;
 | 
			
		||||
    property HasRegisterProc: boolean read GetHasRegisterProc write SetHasRegisterProc;
 | 
			
		||||
  end;
 | 
			
		||||
@ -100,7 +100,7 @@ var
 | 
			
		||||
begin
 | 
			
		||||
  AddFileToAPackageDialog:=TAddFileToAPackageDialog.Create(nil);
 | 
			
		||||
  AddFileToAPackageDialog.Filename:=Filename;
 | 
			
		||||
  AddFileToAPackageDialog.AUnitName:=AUnitName;
 | 
			
		||||
  AddFileToAPackageDialog.Unit_Name:=AUnitName;
 | 
			
		||||
  AddFileToAPackageDialog.HasRegisterProc:=HasRegisterProc;
 | 
			
		||||
  AddFileToAPackageDialog.UpdateAvailablePackages;
 | 
			
		||||
  Result:=AddFileToAPackageDialog.ShowModal;
 | 
			
		||||
@ -170,7 +170,7 @@ begin
 | 
			
		||||
      Include(FileFlags,pffAddToPkgUsesSection);
 | 
			
		||||
    if HasRegisterProc then
 | 
			
		||||
      Include(FileFlags,pffHasRegisterProc);
 | 
			
		||||
    APackage.AddFile(Filename,AUnitName,FileType,FileFlags,cpNormal);
 | 
			
		||||
    APackage.AddFile(Filename,Unit_Name,FileType,FileFlags,cpNormal);
 | 
			
		||||
    if APackage.Editor<>nil then APackage.Editor.UpdateAll;
 | 
			
		||||
    APackage.EndUpdate;
 | 
			
		||||
 | 
			
		||||
@ -251,7 +251,7 @@ end;
 | 
			
		||||
 | 
			
		||||
procedure TAddFileToAPackageDialog.SetUnitName(const AValue: string);
 | 
			
		||||
begin
 | 
			
		||||
  if AUnitName=AValue then exit;
 | 
			
		||||
  if Unit_Name=AValue then exit;
 | 
			
		||||
  UnitNameEdit.Text:=AValue;
 | 
			
		||||
end;
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
@ -13,7 +13,7 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
  OnDestroy = FormDestroy
 | 
			
		||||
  OnKeyDown = AddToPackageDlgKeyDown
 | 
			
		||||
  Position = poScreenCenter
 | 
			
		||||
  LCLVersion = '0.9.27'
 | 
			
		||||
  LCLVersion = '0.9.29'
 | 
			
		||||
  object NoteBook: TNotebook
 | 
			
		||||
    Left = 0
 | 
			
		||||
    Height = 300
 | 
			
		||||
@ -24,17 +24,17 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
    TabOrder = 0
 | 
			
		||||
    object NewFilePage: TPage
 | 
			
		||||
      Caption = 'New File'
 | 
			
		||||
      ClientWidth = 498
 | 
			
		||||
      ClientHeight = 273
 | 
			
		||||
      ClientWidth = 492
 | 
			
		||||
      ClientHeight = 274
 | 
			
		||||
      OnResize = NewFilePageResize
 | 
			
		||||
      object NewFileTreeView: TTreeView
 | 
			
		||||
        Left = 0
 | 
			
		||||
        Height = 218
 | 
			
		||||
        Height = 219
 | 
			
		||||
        Top = 0
 | 
			
		||||
        Width = 249
 | 
			
		||||
        Align = alLeft
 | 
			
		||||
        BorderSpacing.Bottom = 5
 | 
			
		||||
        DefaultItemHeight = 19
 | 
			
		||||
        DefaultItemHeight = 15
 | 
			
		||||
        ReadOnly = True
 | 
			
		||||
        RightClickSelect = True
 | 
			
		||||
        TabOrder = 0
 | 
			
		||||
@ -48,20 +48,20 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        AnchorSideLeft.Side = asrBottom
 | 
			
		||||
        AnchorSideRight.Side = asrBottom
 | 
			
		||||
        Left = 249
 | 
			
		||||
        Height = 218
 | 
			
		||||
        Height = 219
 | 
			
		||||
        Top = 0
 | 
			
		||||
        Width = 249
 | 
			
		||||
        Width = 243
 | 
			
		||||
        Align = alClient
 | 
			
		||||
        BorderSpacing.Bottom = 5
 | 
			
		||||
        Caption = 'NewFileDescriptionGroupBox'
 | 
			
		||||
        ClientHeight = 199
 | 
			
		||||
        ClientWidth = 245
 | 
			
		||||
        ClientHeight = 201
 | 
			
		||||
        ClientWidth = 239
 | 
			
		||||
        TabOrder = 1
 | 
			
		||||
        object NewFileHelpLabel: TLabel
 | 
			
		||||
          Left = 0
 | 
			
		||||
          Height = 199
 | 
			
		||||
          Height = 201
 | 
			
		||||
          Top = 0
 | 
			
		||||
          Width = 245
 | 
			
		||||
          Width = 239
 | 
			
		||||
          Align = alClient
 | 
			
		||||
          Caption = 'NewFileHelpLabel'
 | 
			
		||||
          ParentColor = False
 | 
			
		||||
@ -71,19 +71,19 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
      object NewFileBtnPanel: TPanel
 | 
			
		||||
        Left = 0
 | 
			
		||||
        Height = 50
 | 
			
		||||
        Top = 223
 | 
			
		||||
        Width = 498
 | 
			
		||||
        Top = 224
 | 
			
		||||
        Width = 492
 | 
			
		||||
        Align = alBottom
 | 
			
		||||
        BevelOuter = bvNone
 | 
			
		||||
        ClientHeight = 50
 | 
			
		||||
        ClientWidth = 498
 | 
			
		||||
        ClientWidth = 492
 | 
			
		||||
        TabOrder = 2
 | 
			
		||||
        object NewFileOkButton: TBitBtn
 | 
			
		||||
          AnchorSideBottom.Side = asrBottom
 | 
			
		||||
          Left = 184
 | 
			
		||||
          Left = 207
 | 
			
		||||
          Height = 38
 | 
			
		||||
          Top = 6
 | 
			
		||||
          Width = 138
 | 
			
		||||
          Width = 127
 | 
			
		||||
          Align = alRight
 | 
			
		||||
          Anchors = [akBottom]
 | 
			
		||||
          AutoSize = True
 | 
			
		||||
@ -132,10 +132,10 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        end
 | 
			
		||||
        object NewFileCancelButton: TBitBtn
 | 
			
		||||
          AnchorSideLeft.Side = asrBottom
 | 
			
		||||
          Left = 328
 | 
			
		||||
          Left = 340
 | 
			
		||||
          Height = 38
 | 
			
		||||
          Top = 6
 | 
			
		||||
          Width = 164
 | 
			
		||||
          Width = 146
 | 
			
		||||
          Align = alRight
 | 
			
		||||
          AutoSize = True
 | 
			
		||||
          BorderSpacing.Around = 6
 | 
			
		||||
@ -184,8 +184,8 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
    end
 | 
			
		||||
    object AddUnitPage: TPage
 | 
			
		||||
      Caption = 'Add Unit'
 | 
			
		||||
      ClientWidth = 498
 | 
			
		||||
      ClientHeight = 273
 | 
			
		||||
      ClientWidth = 492
 | 
			
		||||
      ClientHeight = 274
 | 
			
		||||
      object AddUnitFilenameLabel: TLabel
 | 
			
		||||
        AnchorSideTop.Control = AddUnitFilenameEdit
 | 
			
		||||
        AnchorSideTop.Side = asrCenter
 | 
			
		||||
@ -213,15 +213,14 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Left = 111
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 307
 | 
			
		||||
        Width = 301
 | 
			
		||||
        Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        TabOrder = 0
 | 
			
		||||
        Text = 'AddUnitFilenameEdit'
 | 
			
		||||
      end
 | 
			
		||||
      object AddUnitFileBrowseButton: TButton
 | 
			
		||||
        AnchorSideRight.Control = AddUnitFileShortenButton
 | 
			
		||||
        Left = 418
 | 
			
		||||
        Left = 412
 | 
			
		||||
        Height = 23
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 38
 | 
			
		||||
@ -234,7 +233,7 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
      object AddUnitFileShortenButton: TButton
 | 
			
		||||
        AnchorSideRight.Control = AddUnitPage
 | 
			
		||||
        AnchorSideRight.Side = asrBottom
 | 
			
		||||
        Left = 456
 | 
			
		||||
        Left = 450
 | 
			
		||||
        Height = 23
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 42
 | 
			
		||||
@ -253,7 +252,6 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 38
 | 
			
		||||
        Width = 156
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        TabOrder = 3
 | 
			
		||||
        Text = 'AddUnitSrcNameEdit'
 | 
			
		||||
@ -451,8 +449,8 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
    end
 | 
			
		||||
    object NewComponentPage: TPage
 | 
			
		||||
      Caption = 'New Component'
 | 
			
		||||
      ClientWidth = 498
 | 
			
		||||
      ClientHeight = 273
 | 
			
		||||
      ClientWidth = 492
 | 
			
		||||
      ClientHeight = 274
 | 
			
		||||
      object AncestorTypeLabel: TLabel
 | 
			
		||||
        AnchorSideTop.Control = AncestorComboBox
 | 
			
		||||
        AnchorSideTop.Side = asrCenter
 | 
			
		||||
@ -510,9 +508,7 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 21
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 200
 | 
			
		||||
        AutoComplete = False
 | 
			
		||||
        ItemHeight = 0
 | 
			
		||||
        ItemWidth = 0
 | 
			
		||||
        ItemHeight = 13
 | 
			
		||||
        OnCloseUp = AncestorComboBoxCloseUp
 | 
			
		||||
        TabOrder = 0
 | 
			
		||||
        Text = 'AncestorComboBox'
 | 
			
		||||
@ -541,7 +537,6 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 32
 | 
			
		||||
        Width = 200
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        OnChange = ClassNameEditChange
 | 
			
		||||
        TabOrder = 2
 | 
			
		||||
@ -556,10 +551,8 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 21
 | 
			
		||||
        Top = 65
 | 
			
		||||
        Width = 200
 | 
			
		||||
        AutoComplete = False
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        ItemHeight = 0
 | 
			
		||||
        ItemWidth = 0
 | 
			
		||||
        ItemHeight = 13
 | 
			
		||||
        TabOrder = 3
 | 
			
		||||
        Text = 'PalettePageCombobox'
 | 
			
		||||
      end
 | 
			
		||||
@ -572,7 +565,6 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 92
 | 
			
		||||
        Width = 129
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        TabOrder = 4
 | 
			
		||||
        Text = 'ComponentUnitFileEdit'
 | 
			
		||||
@ -620,7 +612,6 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 125
 | 
			
		||||
        Width = 156
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        TabOrder = 7
 | 
			
		||||
        Text = 'ComponentUnitNameEdit'
 | 
			
		||||
@ -730,8 +721,8 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
    end
 | 
			
		||||
    object NewRequirementPage: TPage
 | 
			
		||||
      Caption = 'New Requirement'
 | 
			
		||||
      ClientWidth = 498
 | 
			
		||||
      ClientHeight = 273
 | 
			
		||||
      ClientWidth = 492
 | 
			
		||||
      ClientHeight = 274
 | 
			
		||||
      object DependPkgNameLabel: TLabel
 | 
			
		||||
        AnchorSideTop.Control = DependPkgNameComboBox
 | 
			
		||||
        AnchorSideTop.Side = asrCenter
 | 
			
		||||
@ -769,9 +760,7 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 21
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 215
 | 
			
		||||
        AutoComplete = False
 | 
			
		||||
        ItemHeight = 0
 | 
			
		||||
        ItemWidth = 0
 | 
			
		||||
        ItemHeight = 13
 | 
			
		||||
        TabOrder = 0
 | 
			
		||||
        Text = 'DependPkgNameComboBox'
 | 
			
		||||
      end
 | 
			
		||||
@ -784,7 +773,6 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 32
 | 
			
		||||
        Width = 100
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        TabOrder = 1
 | 
			
		||||
        Text = 'DependMinVersionEdit'
 | 
			
		||||
@ -798,7 +786,6 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 65
 | 
			
		||||
        Width = 100
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BorderSpacing.Top = 6
 | 
			
		||||
        TabOrder = 2
 | 
			
		||||
        Text = 'DependMaxVersionEdit'
 | 
			
		||||
@ -908,8 +895,8 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
    end
 | 
			
		||||
    object AddFilePage: TPage
 | 
			
		||||
      Caption = 'Add File'
 | 
			
		||||
      ClientWidth = 498
 | 
			
		||||
      ClientHeight = 273
 | 
			
		||||
      ClientWidth = 492
 | 
			
		||||
      ClientHeight = 274
 | 
			
		||||
      object AddFilenameLabel: TLabel
 | 
			
		||||
        AnchorSideTop.Control = AddFilenameEdit
 | 
			
		||||
        AnchorSideTop.Side = asrCenter
 | 
			
		||||
@ -927,15 +914,14 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        Left = 92
 | 
			
		||||
        Height = 27
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 326
 | 
			
		||||
        Width = 320
 | 
			
		||||
        Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        TabOrder = 0
 | 
			
		||||
        Text = 'AddFilenameEdit'
 | 
			
		||||
      end
 | 
			
		||||
      object AddFileBrowseButton: TButton
 | 
			
		||||
        AnchorSideRight.Control = AddFileShortenButton
 | 
			
		||||
        Left = 418
 | 
			
		||||
        Left = 412
 | 
			
		||||
        Height = 23
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 38
 | 
			
		||||
@ -948,7 +934,7 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
      object AddFileShortenButton: TButton
 | 
			
		||||
        AnchorSideRight.Control = AddFilePage
 | 
			
		||||
        AnchorSideRight.Side = asrBottom
 | 
			
		||||
        Left = 456
 | 
			
		||||
        Left = 450
 | 
			
		||||
        Height = 23
 | 
			
		||||
        Top = 5
 | 
			
		||||
        Width = 42
 | 
			
		||||
@ -1087,43 +1073,39 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
    end
 | 
			
		||||
    object AddFilesPage: TPage
 | 
			
		||||
      Caption = 'Add Files'
 | 
			
		||||
      ClientWidth = 498
 | 
			
		||||
      ClientHeight = 273
 | 
			
		||||
      ClientWidth = 492
 | 
			
		||||
      ClientHeight = 274
 | 
			
		||||
      object FilesListView: TListView
 | 
			
		||||
        AnchorSideBottom.Control = FilesBrowseButton
 | 
			
		||||
        Left = 0
 | 
			
		||||
        Height = 227
 | 
			
		||||
        Height = 228
 | 
			
		||||
        Top = 0
 | 
			
		||||
        Width = 498
 | 
			
		||||
        Width = 492
 | 
			
		||||
        Align = alClient
 | 
			
		||||
        BorderSpacing.Bottom = 5
 | 
			
		||||
        Columns = <        
 | 
			
		||||
          item
 | 
			
		||||
            AutoSize = False
 | 
			
		||||
            Caption = 'Filename'
 | 
			
		||||
            Width = 200
 | 
			
		||||
          end        
 | 
			
		||||
          item
 | 
			
		||||
            AutoSize = False
 | 
			
		||||
            Caption = 'Type'
 | 
			
		||||
            Width = 280
 | 
			
		||||
          end>
 | 
			
		||||
        MultiSelect = True
 | 
			
		||||
        SortColumn = 0
 | 
			
		||||
        SortType = stNone
 | 
			
		||||
        TabOrder = 0
 | 
			
		||||
        ViewStyle = vsReport
 | 
			
		||||
      end
 | 
			
		||||
      object AddFilesBtnPanel: TPanel
 | 
			
		||||
        Left = 0
 | 
			
		||||
        Height = 41
 | 
			
		||||
        Top = 232
 | 
			
		||||
        Width = 498
 | 
			
		||||
        Top = 233
 | 
			
		||||
        Width = 492
 | 
			
		||||
        Align = alBottom
 | 
			
		||||
        AutoSize = True
 | 
			
		||||
        BevelOuter = bvNone
 | 
			
		||||
        ClientHeight = 41
 | 
			
		||||
        ClientWidth = 498
 | 
			
		||||
        ClientWidth = 492
 | 
			
		||||
        TabOrder = 1
 | 
			
		||||
        object FilesBrowseButton: TButton
 | 
			
		||||
          AnchorSideBottom.Side = asrBottom
 | 
			
		||||
@ -1140,7 +1122,7 @@ object AddToPackageDlg: TAddToPackageDlg
 | 
			
		||||
        end
 | 
			
		||||
        object FilesAddButton: TButton
 | 
			
		||||
          AnchorSideLeft.Side = asrBottom
 | 
			
		||||
          Left = 498
 | 
			
		||||
          Left = 492
 | 
			
		||||
          Height = 29
 | 
			
		||||
          Top = 6
 | 
			
		||||
          Width = 107
 | 
			
		||||
 | 
			
		||||
										
											
												File diff suppressed because it is too large
												Load Diff
											
										
									
								
							@ -60,7 +60,7 @@ type
 | 
			
		||||
    AddType: TAddToPkgType;
 | 
			
		||||
    Dependency: TPkgDependency;
 | 
			
		||||
    UnitFilename: string;
 | 
			
		||||
    AUnitName: string;
 | 
			
		||||
    Unit_Name: string;
 | 
			
		||||
    AncestorType: string;
 | 
			
		||||
    NewClassName: string;
 | 
			
		||||
    PageName: string;
 | 
			
		||||
@ -451,7 +451,7 @@ begin
 | 
			
		||||
    Params.AddType:=d2ptUnit;
 | 
			
		||||
 | 
			
		||||
    Params.UnitFilename:=AddUnitFilenameEdit.Text;
 | 
			
		||||
    Params.AUnitName:=AddUnitSrcNameEdit.Text;
 | 
			
		||||
    Params.Unit_Name:=AddUnitSrcNameEdit.Text;
 | 
			
		||||
    Params.FileType:=pftUnit;
 | 
			
		||||
    Params.PkgFileFlags:=[pffAddToPkgUsesSection];
 | 
			
		||||
    Params.AutoAddLFMFile:=AddSecondaryFilesCheckBox.Checked;
 | 
			
		||||
@ -463,7 +463,7 @@ begin
 | 
			
		||||
    Params.AddType:=d2ptVirtualUnit;
 | 
			
		||||
 | 
			
		||||
    Params.UnitFilename:=ExtractFilename(AddUnitFilenameEdit.Text);
 | 
			
		||||
    Params.AUnitName:=AddUnitSrcNameEdit.Text;
 | 
			
		||||
    Params.Unit_Name:=AddUnitSrcNameEdit.Text;
 | 
			
		||||
    Params.FileType:=pftVirtualUnit;
 | 
			
		||||
    Params.PkgFileFlags:=[];
 | 
			
		||||
    Params.AutoAddLFMFile:=false;
 | 
			
		||||
@ -476,11 +476,11 @@ begin
 | 
			
		||||
    OnGetIDEFileInfo,Params.UnitFilename) then exit;
 | 
			
		||||
    
 | 
			
		||||
  // check unitname
 | 
			
		||||
  if CompareText(Params.AUnitName,ExtractFileNameOnly(Params.UnitFilename))<>0
 | 
			
		||||
  if CompareText(Params.Unit_Name,ExtractFileNameOnly(Params.UnitFilename))<>0
 | 
			
		||||
  then begin
 | 
			
		||||
    MessageDlg(lisA2PInvalidUnitName,
 | 
			
		||||
      Format(lisA2PTheUnitNameAndFilenameDiffer, ['"',
 | 
			
		||||
        Params.AUnitName, '"', #13, '"', Params.UnitFilename, '"']),
 | 
			
		||||
        Params.Unit_Name, '"', #13, '"', Params.UnitFilename, '"']),
 | 
			
		||||
      mtError,[mbCancel],0);
 | 
			
		||||
    exit;
 | 
			
		||||
  end;
 | 
			
		||||
@ -556,7 +556,7 @@ begin
 | 
			
		||||
  Params.AddType:=d2ptUnit;
 | 
			
		||||
  Params.UnitFilename:=Filename;
 | 
			
		||||
  Params.FileType:=pftText;
 | 
			
		||||
  Params.AUnitName:='';
 | 
			
		||||
  Params.Unit_Name:='';
 | 
			
		||||
  Params.PkgFileFlags:=[];
 | 
			
		||||
 | 
			
		||||
  if not FileExistsUTF8(Params.UnitFilename) then begin
 | 
			
		||||
@ -776,18 +776,18 @@ begin
 | 
			
		||||
        CurParams.AutoAddLFMFile:=true;
 | 
			
		||||
        CurParams.AutoAddLRSFile:=true;
 | 
			
		||||
        if Assigned(OnGetUnitRegisterInfo) then begin
 | 
			
		||||
          OnGetUnitRegisterInfo(Self,Filename,CurParams.AUnitName,HasRegisterProc);
 | 
			
		||||
          OnGetUnitRegisterInfo(Self,Filename,CurParams.Unit_Name,HasRegisterProc);
 | 
			
		||||
          if HasRegisterProc then
 | 
			
		||||
            Include(CurParams.PkgFileFlags,pffHasRegisterProc);
 | 
			
		||||
        end;
 | 
			
		||||
 | 
			
		||||
        // check unitname
 | 
			
		||||
        if CompareText(CurParams.AUnitName,
 | 
			
		||||
        if CompareText(CurParams.Unit_Name,
 | 
			
		||||
          ExtractFileNameOnly(CurParams.UnitFilename))<>0
 | 
			
		||||
        then begin
 | 
			
		||||
          if MessageDlg(lisA2PInvalidUnitName,
 | 
			
		||||
              Format(lisA2PTheUnitNameAndFilenameDiffer, ['"',
 | 
			
		||||
                CurParams.AUnitName, '"', #13, '"', CurParams.UnitFilename, '"']),
 | 
			
		||||
                CurParams.Unit_Name, '"', #13, '"', CurParams.UnitFilename, '"']),
 | 
			
		||||
            mtError,[mbIgnore,mbCancel],0)<>mrIgnore
 | 
			
		||||
          then begin
 | 
			
		||||
            FilesListView.Items.Delete(i);
 | 
			
		||||
@ -935,7 +935,7 @@ begin
 | 
			
		||||
  Params.AncestorType:=AncestorComboBox.Text;
 | 
			
		||||
  Params.NewClassName:=ClassNameEdit.Text;
 | 
			
		||||
  Params.PageName:=PalettePageCombobox.Text;
 | 
			
		||||
  Params.AUnitName:=ComponentUnitNameEdit.Text;
 | 
			
		||||
  Params.Unit_Name:=ComponentUnitNameEdit.Text;
 | 
			
		||||
  Params.UnitFilename:=ComponentUnitFileEdit.Text;
 | 
			
		||||
  Params.UsedUnitname:='';
 | 
			
		||||
 | 
			
		||||
@ -958,11 +958,11 @@ begin
 | 
			
		||||
  end;
 | 
			
		||||
 | 
			
		||||
  // check unitname - filename redundancy
 | 
			
		||||
  if AnsiCompareText(Params.AUnitname,ExtractFileNameOnly(Params.UnitFilename))<>0
 | 
			
		||||
  if AnsiCompareText(Params.Unit_name,ExtractFileNameOnly(Params.UnitFilename))<>0
 | 
			
		||||
  then begin
 | 
			
		||||
    MessageDlg(lisA2PUnitNameInvalid,
 | 
			
		||||
      Format(lisA2PTheUnitNameDoesNotCorrespondToTheFilename, ['"',
 | 
			
		||||
        Params.AUnitName, '"']),
 | 
			
		||||
        Params.Unit_Name, '"']),
 | 
			
		||||
      mtError,[mbCancel],0);
 | 
			
		||||
    exit;
 | 
			
		||||
  end;
 | 
			
		||||
@ -1651,7 +1651,7 @@ begin
 | 
			
		||||
  AddType:=d2ptUnit;
 | 
			
		||||
  Dependency:=nil;
 | 
			
		||||
  UnitFilename:='';
 | 
			
		||||
  AUnitName:='';
 | 
			
		||||
  Unit_Name:='';
 | 
			
		||||
  AncestorType:='';
 | 
			
		||||
  NewClassName:='';
 | 
			
		||||
  PageName:='';
 | 
			
		||||
 | 
			
		||||
@ -243,7 +243,7 @@ type
 | 
			
		||||
    property LazPackage: TLazPackage read FPackage;
 | 
			
		||||
    property Removed: boolean read FRemoved write SetRemoved;
 | 
			
		||||
    property SourceDirectoryReferenced: boolean read FSourceDirectoryReferenced;
 | 
			
		||||
    property AUnitName: string read FUnitName write FUnitName;
 | 
			
		||||
    property Unit_Name: string read FUnitName write FUnitName;
 | 
			
		||||
  end;
 | 
			
		||||
  
 | 
			
		||||
  
 | 
			
		||||
@ -1263,10 +1263,10 @@ begin
 | 
			
		||||
                           ChangeFileExt(ShortFilename2,''));
 | 
			
		||||
  if Result<>0 then exit;
 | 
			
		||||
  // if one is a unit, then it is higher
 | 
			
		||||
  if (PkgFile1.AUnitName<>'') and (PkgFile2.AUnitName='') then begin
 | 
			
		||||
  if (PkgFile1.Unit_Name<>'') and (PkgFile2.Unit_Name='') then begin
 | 
			
		||||
    Result:=-1;
 | 
			
		||||
    exit;
 | 
			
		||||
  end else if (PkgFile1.AUnitName='') and (PkgFile2.AUnitName<>'') then begin
 | 
			
		||||
  end else if (PkgFile1.Unit_Name='') and (PkgFile2.Unit_Name<>'') then begin
 | 
			
		||||
    Result:=1;
 | 
			
		||||
    exit;
 | 
			
		||||
  end;
 | 
			
		||||
@ -2982,14 +2982,14 @@ begin
 | 
			
		||||
    for i:=0 to Cnt-1 do begin
 | 
			
		||||
      Result:=Files[i];
 | 
			
		||||
      if IgnorePkgFile=Result then continue;
 | 
			
		||||
      if CompareText(Result.AUnitName,TheUnitName)=0 then exit;
 | 
			
		||||
      if CompareText(Result.Unit_Name,TheUnitName)=0 then exit;
 | 
			
		||||
    end;
 | 
			
		||||
    if not IgnoreRemoved then begin
 | 
			
		||||
      Cnt:=RemovedFilesCount;
 | 
			
		||||
      for i:=0 to Cnt-1 do begin
 | 
			
		||||
        Result:=RemovedFiles[i];
 | 
			
		||||
        if IgnorePkgFile=Result then continue;
 | 
			
		||||
        if CompareText(Result.AUnitName,TheUnitName)=0 then exit;
 | 
			
		||||
        if CompareText(Result.Unit_Name,TheUnitName)=0 then exit;
 | 
			
		||||
      end;
 | 
			
		||||
    end;
 | 
			
		||||
  end;
 | 
			
		||||
@ -3060,7 +3060,7 @@ begin
 | 
			
		||||
  end;
 | 
			
		||||
  with Result do begin
 | 
			
		||||
    Filename:=NewFilename;
 | 
			
		||||
    AUnitName:=NewUnitName;
 | 
			
		||||
    Unit_Name:=NewUnitName;
 | 
			
		||||
    FileType:=NewFileType;
 | 
			
		||||
    Flags:=NewFlags;
 | 
			
		||||
    NewComponentPriority:=ComponentPriorityNormal;
 | 
			
		||||
@ -3086,7 +3086,7 @@ begin
 | 
			
		||||
  with Result do begin
 | 
			
		||||
    AutoReferenceSourceDir:=false;
 | 
			
		||||
    Filename:=NewFilename;
 | 
			
		||||
    AUnitName:=NewUnitName;
 | 
			
		||||
    Unit_Name:=NewUnitName;
 | 
			
		||||
    FileType:=NewFileType;
 | 
			
		||||
    Flags:=NewFlags;
 | 
			
		||||
    NewComponentPriority:=ComponentPriorityNormal;
 | 
			
		||||
@ -3545,7 +3545,7 @@ function TPkgComponent.GetUnitName: string;
 | 
			
		||||
var
 | 
			
		||||
  TIUnitName: String;
 | 
			
		||||
begin
 | 
			
		||||
  Result:=PkgFile.AUnitName;
 | 
			
		||||
  Result:=PkgFile.Unit_Name;
 | 
			
		||||
  // compare with RTTI unit name
 | 
			
		||||
  if ComponentClass<>nil then begin
 | 
			
		||||
    TIUnitName:=GetClassUnitName(ComponentClass);
 | 
			
		||||
@ -4357,7 +4357,7 @@ begin
 | 
			
		||||
  Result:=Root;
 | 
			
		||||
  while (Result<>nil) do begin
 | 
			
		||||
    PkgFile:=TPkgFile(Result.Data);
 | 
			
		||||
    Comp:=CompareText(AUnitName,PkgFile.AUnitName);
 | 
			
		||||
    Comp:=CompareText(AUnitName,PkgFile.Unit_Name);
 | 
			
		||||
    if Comp=0 then exit;
 | 
			
		||||
    if Comp<0 then begin
 | 
			
		||||
      Result:=Result.Left
 | 
			
		||||
@ -4382,8 +4382,8 @@ end;
 | 
			
		||||
function ComparePkgFilesUnitname(PkgFile1, PkgFile2: Pointer): integer;
 | 
			
		||||
begin
 | 
			
		||||
  Result := CompareText(
 | 
			
		||||
              TPkgFile(PkgFile1).AUnitName,
 | 
			
		||||
              TPkgFile(PkgFile2).AUnitName);
 | 
			
		||||
              TPkgFile(PkgFile1).Unit_Name,
 | 
			
		||||
              TPkgFile(PkgFile2).Unit_Name);
 | 
			
		||||
end;
 | 
			
		||||
 | 
			
		||||
constructor TPkgUnitsTree.Create(ThePackage: TLazPackage);
 | 
			
		||||
 | 
			
		||||
@ -955,7 +955,7 @@ procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject);
 | 
			
		||||
    ExtendUnitIncPathForNewUnit(AddParams.UnitFilename,NewLRSFilename);
 | 
			
		||||
    // add unit file
 | 
			
		||||
    with AddParams do
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,AUnitName,
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,Unit_Name,
 | 
			
		||||
                                          FileType,PkgFileFlags,cpNormal);
 | 
			
		||||
    PackageEditors.DeleteAmbiguousFiles(LazPackage,AddParams.UnitFilename);
 | 
			
		||||
    UpdateAll;
 | 
			
		||||
@ -964,7 +964,7 @@ procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject);
 | 
			
		||||
  procedure AddVirtualUnit(AddParams: TAddToPkgResult);
 | 
			
		||||
  begin
 | 
			
		||||
    with AddParams do
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,AUnitName,FileType,
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,Unit_Name,FileType,
 | 
			
		||||
                                          PkgFileFlags,cpNormal);
 | 
			
		||||
    PackageEditors.DeleteAmbiguousFiles(LazPackage,AddParams.UnitFilename);
 | 
			
		||||
    UpdateAll;
 | 
			
		||||
@ -975,7 +975,7 @@ procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject);
 | 
			
		||||
    ExtendUnitIncPathForNewUnit(AddParams.UnitFilename,'');
 | 
			
		||||
    // add file
 | 
			
		||||
    with AddParams do
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,AUnitName,FileType,
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,Unit_Name,FileType,
 | 
			
		||||
                                          PkgFileFlags,cpNormal);
 | 
			
		||||
    // add dependency
 | 
			
		||||
    if AddParams.Dependency<>nil then begin
 | 
			
		||||
@ -997,7 +997,7 @@ procedure TPackageEditorForm.AddBitBtnClick(Sender: TObject);
 | 
			
		||||
  begin
 | 
			
		||||
    // add file
 | 
			
		||||
    with AddParams do
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,AUnitName,FileType,
 | 
			
		||||
      FNextSelectedPart := LazPackage.AddFile(UnitFilename,Unit_Name,FileType,
 | 
			
		||||
                                          PkgFileFlags,cpNormal);
 | 
			
		||||
    UpdateAll;
 | 
			
		||||
  end;
 | 
			
		||||
 | 
			
		||||
@ -1679,7 +1679,7 @@ procedure TLazPackageGraph.ReplacePackage(OldPackage, NewPackage: TLazPackage);
 | 
			
		||||
    PkgComponent: TPkgComponent;
 | 
			
		||||
  begin
 | 
			
		||||
    if (OldPkgFile.ComponentCount>0) then begin
 | 
			
		||||
      OldUnitName:=OldPkgFile.AUnitName;
 | 
			
		||||
      OldUnitName:=OldPkgFile.Unit_Name;
 | 
			
		||||
      if OldUnitName='' then RaiseException('MoveInstalledComponents');
 | 
			
		||||
      NewPkgFile:=NewPackage.FindUnit(OldUnitName,false);
 | 
			
		||||
      if NewPkgFile=nil then begin
 | 
			
		||||
@ -2228,7 +2228,7 @@ var
 | 
			
		||||
    PackageTreeOfUnitTrees.Add(Result);
 | 
			
		||||
    for i:=0 to Pkg.FileCount-1 do begin
 | 
			
		||||
      PkgFile:=Pkg.Files[i];
 | 
			
		||||
      if (PkgFile.FileType in FileTypes) and (PkgFile.AUnitName<>'') then
 | 
			
		||||
      if (PkgFile.FileType in FileTypes) and (PkgFile.Unit_Name<>'') then
 | 
			
		||||
        Result.Add(PkgFile);
 | 
			
		||||
    end;
 | 
			
		||||
  end;
 | 
			
		||||
@ -2255,9 +2255,9 @@ var
 | 
			
		||||
    for i:=0 to Pkg1.FileCount-1 do begin
 | 
			
		||||
      PkgFile1:=Pkg1.Files[i];
 | 
			
		||||
      if (PkgFile1.FileType in FileTypes)
 | 
			
		||||
      and (PkgFile1.AUnitName<>'') then begin
 | 
			
		||||
      and (PkgFile1.Unit_Name<>'') then begin
 | 
			
		||||
        // check if a unit of Pkg1 exists in Pkg2
 | 
			
		||||
        PkgFile2:=UnitsTreeOfPkg2.FindPkgFileWithUnitName(PkgFile1.AUnitName);
 | 
			
		||||
        PkgFile2:=UnitsTreeOfPkg2.FindPkgFileWithUnitName(PkgFile1.Unit_Name);
 | 
			
		||||
        if PkgFile2<>nil then begin
 | 
			
		||||
          File1:=PkgFile1;
 | 
			
		||||
          File2:=PkgFile2;
 | 
			
		||||
@ -2265,7 +2265,7 @@ var
 | 
			
		||||
          exit;
 | 
			
		||||
        end;
 | 
			
		||||
        // check if a unit of Pkg1 has the same name as Pkg2
 | 
			
		||||
        if AnsiCompareText(PkgFile1.AUnitName,Pkg2.Name)=0 then begin
 | 
			
		||||
        if AnsiCompareText(PkgFile1.Unit_Name,Pkg2.Name)=0 then begin
 | 
			
		||||
          File1:=PkgFile1;
 | 
			
		||||
          ConflictPkg:=Pkg2;
 | 
			
		||||
          Result:=true;
 | 
			
		||||
@ -2349,7 +2349,7 @@ function TLazPackageGraph.FindFPCConflictUnit(APackage: TLazPackage;
 | 
			
		||||
      CurFile:=Pkg1.Files[i];
 | 
			
		||||
      if (CurFile.FileType in (PkgFileUnitTypes-[pftVirtualUnit]))
 | 
			
		||||
      and (pffAddToPkgUsesSection in CurFile.Flags) then begin
 | 
			
		||||
        Result:=CheckUnitName(CurFile.AUnitName);
 | 
			
		||||
        Result:=CheckUnitName(CurFile.Unit_Name);
 | 
			
		||||
        if Result then begin
 | 
			
		||||
          File1:=CurFile;
 | 
			
		||||
          exit;
 | 
			
		||||
@ -3142,7 +3142,7 @@ begin
 | 
			
		||||
    for i:=0 to APackage.FileCount-1 do begin
 | 
			
		||||
      CurFile:=APackage.Files[i];
 | 
			
		||||
      if not (CurFile.FileType in PkgFileUnitTypes) then continue;
 | 
			
		||||
      OutputFileName:=AppendPathDelim(OutputDir)+CurFile.AUnitName+'.ppu';
 | 
			
		||||
      OutputFileName:=AppendPathDelim(OutputDir)+CurFile.Unit_Name+'.ppu';
 | 
			
		||||
      Result:=DeleteFileInteractive(OutputFileName,[mbIgnore,mbAbort]);
 | 
			
		||||
      if Result in [mrCancel,mrAbort] then exit;
 | 
			
		||||
    end;
 | 
			
		||||
@ -3214,7 +3214,7 @@ begin
 | 
			
		||||
  for i:=0 to APackage.FileCount-1 do begin
 | 
			
		||||
    CurFile:=APackage.Files[i];
 | 
			
		||||
    if CurFile.FileType<>pftUnit then continue;
 | 
			
		||||
    CurUnitName:=lowercase(CurFile.AUnitName);
 | 
			
		||||
    CurUnitName:=lowercase(CurFile.Unit_Name);
 | 
			
		||||
    if CurUnitName='' then continue;
 | 
			
		||||
    Result:=CheckFile(CurUnitName+'.ppu');
 | 
			
		||||
    if Result<>mrOk then exit;
 | 
			
		||||
@ -3291,13 +3291,13 @@ begin
 | 
			
		||||
          if SysUtils.CompareText(CurSrcUnitName,CurUnitName)<>0 then
 | 
			
		||||
            CurSrcUnitName:=CodeToolBoss.GetSourceName(CodeBuffer,false);
 | 
			
		||||
          // if it makes sense, update unitname
 | 
			
		||||
          if SysUtils.CompareText(CurSrcUnitName,CurFile.AUnitName)=0 then
 | 
			
		||||
            CurFile.AUnitName:=CurSrcUnitName;
 | 
			
		||||
          if SysUtils.CompareText(CurSrcUnitName,CurFile.Unit_Name)=0 then
 | 
			
		||||
            CurFile.Unit_Name:=CurSrcUnitName;
 | 
			
		||||
        end;
 | 
			
		||||
        if SysUtils.CompareText(CurUnitName,CurFile.AUnitName)=0 then
 | 
			
		||||
          CurUnitName:=CurFile.AUnitName
 | 
			
		||||
        if SysUtils.CompareText(CurUnitName,CurFile.Unit_Name)=0 then
 | 
			
		||||
          CurUnitName:=CurFile.Unit_Name
 | 
			
		||||
        else
 | 
			
		||||
          CurFile.AUnitName:=CurUnitName;
 | 
			
		||||
          CurFile.Unit_Name:=CurUnitName;
 | 
			
		||||
      end;
 | 
			
		||||
 | 
			
		||||
      if (CurUnitName<>'') and IsValidIdent(CurUnitName) then begin
 | 
			
		||||
 | 
			
		||||
@ -754,7 +754,7 @@ begin
 | 
			
		||||
  and (Params.UsedUnitname<>'') then
 | 
			
		||||
    UsesLine:=UsesLine+', '+Params.UsedUnitname;
 | 
			
		||||
  NewSource:=
 | 
			
		||||
     'unit '+Params.AUnitName+';'+LE
 | 
			
		||||
     'unit '+Params.Unit_Name+';'+LE
 | 
			
		||||
    +LE
 | 
			
		||||
    +'{$mode objfpc}{$H+}'+LE
 | 
			
		||||
    +LE
 | 
			
		||||
@ -2249,7 +2249,7 @@ begin
 | 
			
		||||
        #13, #13, #13, #13, #13, #13, #13, #13]);
 | 
			
		||||
      for i:=0 to MissingUnits.Count-1 do begin
 | 
			
		||||
        PkgFile:=TPkgFile(MissingUnits[i]);
 | 
			
		||||
        Msg:=Format(lisUnitInPackage, [Msg, PkgFile.AUnitName,
 | 
			
		||||
        Msg:=Format(lisUnitInPackage, [Msg, PkgFile.Unit_Name,
 | 
			
		||||
          PkgFile.LazPackage.IDAsString, #13]);
 | 
			
		||||
      end;
 | 
			
		||||
      Result:=IDEMessageDialog(lisPackageNeedsInstallation,
 | 
			
		||||
 | 
			
		||||
@ -7,9 +7,8 @@ object EditVirtualUnitDialog: TEditVirtualUnitDialog
 | 
			
		||||
  ClientHeight = 131
 | 
			
		||||
  ClientWidth = 450
 | 
			
		||||
  OnCreate = EditVirtualUnitDialogCreate
 | 
			
		||||
  ParentFont = False
 | 
			
		||||
  Position = poScreenCenter
 | 
			
		||||
  LCLVersion = '0.9.25'
 | 
			
		||||
  LCLVersion = '0.9.29'
 | 
			
		||||
  object FilenameLabel: TLabel
 | 
			
		||||
    Left = 8
 | 
			
		||||
    Height = 14
 | 
			
		||||
@ -28,7 +27,7 @@ object EditVirtualUnitDialog: TEditVirtualUnitDialog
 | 
			
		||||
  end
 | 
			
		||||
  object FilenameEdit: TEdit
 | 
			
		||||
    Left = 96
 | 
			
		||||
    Height = 23
 | 
			
		||||
    Height = 21
 | 
			
		||||
    Top = 18
 | 
			
		||||
    Width = 344
 | 
			
		||||
    Anchors = [akTop, akLeft, akRight]
 | 
			
		||||
@ -37,7 +36,7 @@ object EditVirtualUnitDialog: TEditVirtualUnitDialog
 | 
			
		||||
  end
 | 
			
		||||
  object UnitnameEdit: TEdit
 | 
			
		||||
    Left = 96
 | 
			
		||||
    Height = 23
 | 
			
		||||
    Height = 21
 | 
			
		||||
    Top = 58
 | 
			
		||||
    Width = 128
 | 
			
		||||
    TabOrder = 1
 | 
			
		||||
 | 
			
		||||
@ -4,111 +4,111 @@ LazarusResources.Add('TEditVirtualUnitDialog','FORMDATA',[
 | 
			
		||||
  'TPF0'#22'TEditVirtualUnitDialog'#21'EditVirtualUnitDialog'#4'Left'#3'Z'#1#6
 | 
			
		||||
  +'Height'#3#131#0#3'Top'#3#254#0#5'Width'#3#194#1#7'Caption'#6#21'EditVirtual'
 | 
			
		||||
  +'UnitDialog'#12'ClientHeight'#3#131#0#11'ClientWidth'#3#194#1#8'OnCreate'#7
 | 
			
		||||
  +#27'EditVirtualUnitDialogCreate'#10'ParentFont'#8#8'Position'#7#14'poScreenC'
 | 
			
		||||
  +'enter'#10'LCLVersion'#6#6'0.9.25'#0#6'TLabel'#13'FilenameLabel'#4'Left'#2#8
 | 
			
		||||
  +#6'Height'#2#14#3'Top'#2#24#5'Width'#2'D'#7'Caption'#6#13'FilenameLabel'#11
 | 
			
		||||
  +'ParentColor'#8#0#0#6'TLabel'#13'UnitnameLabel'#4'Left'#2#8#6'Height'#2#14#3
 | 
			
		||||
  +'Top'#2'@'#5'Width'#2'G'#7'Caption'#6#13'UnitnameLabel'#11'ParentColor'#8#0#0
 | 
			
		||||
  +#5'TEdit'#12'FilenameEdit'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2#18#5'Width'#3
 | 
			
		||||
  +'X'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6
 | 
			
		||||
  +#12'FilenameEdit'#0#0#5'TEdit'#12'UnitnameEdit'#4'Left'#2'`'#6'Height'#2#23#3
 | 
			
		||||
  +'Top'#2':'#5'Width'#3#128#0#8'TabOrder'#2#1#4'Text'#6#12'UnitnameEdit'#0#0#7
 | 
			
		||||
  +'TBitBtn'#12'CancelButton'#4'Left'#3'L'#1#6'Height'#2#25#3'Top'#2'`'#5'Width'
 | 
			
		||||
  +#2'e'#7'Caption'#6#12'CancelButton'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'
 | 
			
		||||
  +#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0
 | 
			
		||||
  +'d'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +'?='#237'A;8'#235#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'!'#31#227#8#30#28#226'A'#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'JG'#240'AOL'#242#255'@>'#237
 | 
			
		||||
  +#253'<9'#235#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'''%'
 | 
			
		||||
  +#229#8'$"'#228#252'1/'#234#255#31#29#226'A'#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0'TQ'#243'AXV'#245#255'ca'#250#255'XU'#246#255'A?'#237#252'=:'#236#8
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'0-'#231#8',*'#230#252'A?'#241#255'LJ'#246#255'1'
 | 
			
		||||
  +'/'#234#255#31#29#226'A'#255#255#255#0#255#255#255#0'YV'#245'+[X'#246#255'eb'
 | 
			
		||||
  +#250#255'qp'#255#255'YV'#246#255'B@'#238#252'>;'#236#8'97'#235#8'52'#233#252
 | 
			
		||||
  +'GE'#242#255'cb'#255#255'JH'#244#255'/-'#233#255'" '#227'+'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'ZW'#245'+[Y'#246#255'fc'#250#255'tq'#255#255'ZX'#246
 | 
			
		||||
  +#255'CA'#238#252'><'#236#253'PM'#244#255'hg'#255#255'PN'#245#255'64'#235#255
 | 
			
		||||
  +'*'''#229'+'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'[X'#246'+\Z'#246#255'gd'#250#255'tr'#255#255'sp'#255#255'pn'#255#255
 | 
			
		||||
  +'nl'#255#255'WU'#247#255'?='#238#255'20'#232'+'#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'\Y'
 | 
			
		||||
  +#246'+]['#247#255'yv'#255#255'YV'#255#255'WT'#255#255'rp'#255#255'HF'#240#255
 | 
			
		||||
  +'<9'#235'+'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'a^'#248#8']Z'#246#253'}y'
 | 
			
		||||
  +#255#255'^['#255#255'[X'#255#255'vt'#255#255'FC'#239#253'A?'#237#8#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'ig'#251#8'fc'#249#252'pm'#251#255#128'~'#255#255'~{'#255#255
 | 
			
		||||
  +'|y'#255#255'yw'#255#255'^\'#247#255'GD'#239#252'B@'#238#8#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'qn'#253#8'nk'#252#252'w'
 | 
			
		||||
  +'t'#253#255#134#130#255#255'vs'#252#255'db'#248#255'`]'#247#255'mj'#250#255
 | 
			
		||||
  +'{y'#255#255'`]'#247#255'HE'#239#252'CA'#238#8#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'vs'#255#8'tq'#254#253'}z'#254#255#138#135#255#255'|y'#253#255
 | 
			
		||||
  +'li'#251#255'ca'#249'+_\'#247'+a^'#248#255'nl'#250#255'}z'#255#255'a_'#247
 | 
			
		||||
  +#255'IF'#240#252'DA'#238#5#255#255#255#0#255#255#255#0'wt'#255#31'zw'#255#255
 | 
			
		||||
  +#129'~'#255#255#129'~'#254#255'tq'#253#255'li'#251'+'#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'`]'#247'+b_'#248#255'om'#251#255'~|'#255#255'b_'#248#255'JG'#240'oEB'
 | 
			
		||||
  +#238#2#255#255#255#0#255#255#255#0'wt'#255#31'zw'#255#255'yv'#254#255'ro'#253
 | 
			
		||||
  +'+'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'a^'#248'+da'#248
 | 
			
		||||
  +#255'jh'#249#255'TQ'#243#168'OM'#242')'#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0'wt'#255#31'wt'#255'+'#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'b_'#248'+]['#247'oYV'
 | 
			
		||||
  +#245'>'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'c`'#248#10#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'
 | 
			
		||||
  +#2#2#0#0#7'TBitBtn'#8'OkButton'#4'Left'#3#200#0#6'Height'#2#25#3'Top'#2'`'#5
 | 
			
		||||
  +'Width'#2'e'#7'Caption'#6#8'OkButton'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM'
 | 
			
		||||
  +'6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0
 | 
			
		||||
  +#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255
 | 
			
		||||
  +#27'EditVirtualUnitDialogCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVers'
 | 
			
		||||
  +'ion'#6#6'0.9.29'#0#6'TLabel'#13'FilenameLabel'#4'Left'#2#8#6'Height'#2#14#3
 | 
			
		||||
  +'Top'#2#24#5'Width'#2'D'#7'Caption'#6#13'FilenameLabel'#11'ParentColor'#8#0#0
 | 
			
		||||
  +#6'TLabel'#13'UnitnameLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5'Width'
 | 
			
		||||
  +#2'G'#7'Caption'#6#13'UnitnameLabel'#11'ParentColor'#8#0#0#5'TEdit'#12'Filen'
 | 
			
		||||
  +'ameEdit'#4'Left'#2'`'#6'Height'#2#21#3'Top'#2#18#5'Width'#3'X'#1#7'Anchors'
 | 
			
		||||
  +#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#12'FilenameEdi'
 | 
			
		||||
  +'t'#0#0#5'TEdit'#12'UnitnameEdit'#4'Left'#2'`'#6'Height'#2#21#3'Top'#2':'#5
 | 
			
		||||
  +'Width'#3#128#0#8'TabOrder'#2#1#4'Text'#6#12'UnitnameEdit'#0#0#7'TBitBtn'#12
 | 
			
		||||
  +'CancelButton'#4'Left'#3'L'#1#6'Height'#2#25#3'Top'#2'`'#5'Width'#2'e'#7'Cap'
 | 
			
		||||
  +'tion'#6#12'CancelButton'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0
 | 
			
		||||
  +#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'
 | 
			
		||||
  +#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
 | 
			
		||||
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  ,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'1z6'#10'-u2'#7#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'?='#237'A;8'
 | 
			
		||||
  +#235#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'!'#31#227#8#30#28#226'A'#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0'JG'#240'AOL'#242#255'@>'#237#253'<9'#235#8
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'''%'#229#8'$"'#228
 | 
			
		||||
  +#252'1/'#234#255#31#29#226'A'#255#255#255#0#255#255#255#0#255#255#255#0'TQ'
 | 
			
		||||
  +#243'AXV'#245#255'ca'#250#255'XU'#246#255'A?'#237#252'=:'#236#8#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'0-'#231#8',*'#230#252'A?'#241#255'LJ'#246#255'1/'#234#255#31
 | 
			
		||||
  +#29#226'A'#255#255#255#0#255#255#255#0'YV'#245'+[X'#246#255'eb'#250#255'qp'
 | 
			
		||||
  +#255#255'YV'#246#255'B@'#238#252'>;'#236#8'97'#235#8'52'#233#252'GE'#242#255
 | 
			
		||||
  +'cb'#255#255'JH'#244#255'/-'#233#255'" '#227'+'#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'ZW'#245'+[Y'#246#255'fc'#250#255'tq'#255#255'ZX'#246#255'CA'
 | 
			
		||||
  +#238#252'><'#236#253'PM'#244#255'hg'#255#255'PN'#245#255'64'#235#255'*'''#229
 | 
			
		||||
  +'+'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'[X'
 | 
			
		||||
  +#246'+\Z'#246#255'gd'#250#255'tr'#255#255'sp'#255#255'pn'#255#255'nl'#255#255
 | 
			
		||||
  +'WU'#247#255'?='#238#255'20'#232'+'#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'\Y'#246'+]['#247#255
 | 
			
		||||
  +'yv'#255#255'YV'#255#255'WT'#255#255'rp'#255#255'HF'#240#255'<9'#235'+'#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0'a^'#248#8']Z'#246#253'}y'#255#255'^['#255
 | 
			
		||||
  +#255'[X'#255#255'vt'#255#255'FC'#239#253'A?'#237#8#255#255#255#0#255#255#255
 | 
			
		||||
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ig'
 | 
			
		||||
  +#251#8'fc'#249#252'pm'#251#255#128'~'#255#255'~{'#255#255'|y'#255#255'yw'#255
 | 
			
		||||
  +#255'^\'#247#255'GD'#239#252'B@'#238#8#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0'qn'#253#8'nk'#252#252'wt'#253#255#134#130
 | 
			
		||||
  +#255#255'vs'#252#255'db'#248#255'`]'#247#255'mj'#250#255'{y'#255#255'`]'#247
 | 
			
		||||
  +#255'HE'#239#252'CA'#238#8#255#255#255#0#255#255#255#0#255#255#255#0'vs'#255
 | 
			
		||||
  +#8'tq'#254#253'}z'#254#255#138#135#255#255'|y'#253#255'li'#251#255'ca'#249'+'
 | 
			
		||||
  +'_\'#247'+a^'#248#255'nl'#250#255'}z'#255#255'a_'#247#255'IF'#240#252'DA'#238
 | 
			
		||||
  +#5#255#255#255#0#255#255#255#0'wt'#255#31'zw'#255#255#129'~'#255#255#129'~'
 | 
			
		||||
  +#254#255'tq'#253#255'li'#251'+'#255#255#255#0#255#255#255#0'`]'#247'+b_'#248
 | 
			
		||||
  +#255'om'#251#255'~|'#255#255'b_'#248#255'JG'#240'oEB'#238#2#255#255#255#0#255
 | 
			
		||||
  +#255#255#0'wt'#255#31'zw'#255#255'yv'#254#255'ro'#253'+'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0'a^'#248'+da'#248#255'jh'#249#255'TQ'
 | 
			
		||||
  +#243#168'OM'#242')'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +'wt'#255#31'wt'#255'+'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
 | 
			
		||||
  +#0#255#255#255#0#255#255#255#0'b_'#248'+]['#247'oYV'#245'>'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +'9'#133'@'#10'7'#131'='#255'1{7'#251'.v3'#7#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'c`'#248#10#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#8
 | 
			
		||||
  +'OkButton'#4'Left'#3#200#0#6'Height'#2#25#3'Top'#2'`'#5'Width'#2'e'#7'Captio'
 | 
			
		||||
  +'n'#6#8'OkButton'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0
 | 
			
		||||
  +#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0
 | 
			
		||||
  +#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'B'#146'I'#10'@'#142'G'#255
 | 
			
		||||
  +'T'#163'\'#255'O'#159'W'#255'2|8'#254'.w4'#8#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0'K'#158'S'#10'I'#154'Q'#255'['#172'd'#255'w'#202#130#255
 | 
			
		||||
  +'t'#200'~'#255'Q'#160'Y'#255'3}9'#254'/x5'#8#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'
 | 
			
		||||
  +#10'Q'#166'Z'#255'c'#181'm'#255'~'#206#137#255'{'#204#135#255'v'#202#129#255
 | 
			
		||||
  +'v'#201#129#255'R'#162'Z'#255'4~:'#254'0y5'#8#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0'Z'#180'e'#9'Y'#176'c'#255'k'#189'v'
 | 
			
		||||
  +#255#132#210#144#255'z'#201#133#255'`'#178'j'#255'c'#180'm'#255'x'#201#131
 | 
			
		||||
  +#255'x'#203#130#255'S'#163'\'#255'4:'#253'1z6'#8#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'^'#185'iF['#181'f'#228'y'#201#134#255#128#206
 | 
			
		||||
  +#141#255'Q'#166'Z'#252'M'#161'VoI'#156'Q'#139'\'#173'g'#255'|'#204#134#255'y'
 | 
			
		||||
  +#203#133#255'T'#164']'#255'5'#128';'#252'1{7'#8#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'_'#186'j<\'#182'f'#230'm'#192'y'#255'U'#172'_o'
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'J'#157'R'#145'^'#174'h'#255'}'#205#137#255'|'
 | 
			
		||||
  +#205#135#255'V'#165'_'#255'6'#129'<'#252'2|8'#8#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'_'#187'jC\'#183'ge'#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'K'#158'S'#145'_'#175'i'#255''#206#138#255'~'
 | 
			
		||||
  +#206#137#255'W'#166'`'#255'7'#130'='#252'3}9'#8#255#255#255#0#255#255#255#0
 | 
			
		||||
  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0'K'#159'T'#145'`'#176'j'#255#129#207
 | 
			
		||||
  +#141#255''#207#139#255'X'#167'a'#255'9'#133'@'#255'4~:'#8#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'L'#160'U'#145'b'#178'l'#255
 | 
			
		||||
  +#130#209#143#255'z'#200#133#255'W'#166'`'#255'8'#132'?{'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#145
 | 
			
		||||
  +'c'#179'm'#255'_'#175'i'#255'A'#145'Iy'#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#255#0'1z6'#10'-u2'#7#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'N'#162
 | 
			
		||||
  +'W'#145'J'#157'R'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'9'#133'@'#10'7'#131
 | 
			
		||||
  +'='#255'1{7'#251'.v3'#7#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
 | 
			
		||||
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'B'#146'I'#10'@'#142'G'#255'T'#163'\'#255'O'#159'W'
 | 
			
		||||
  +#255'2|8'#254'.w4'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'K'#158
 | 
			
		||||
  +'S'#10'I'#154'Q'#255'['#172'd'#255'w'#202#130#255't'#200'~'#255'Q'#160'Y'#255
 | 
			
		||||
  +'3}9'#254'/x5'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#10'Q'#166'Z'#255'c'#181'm'
 | 
			
		||||
  +#255'~'#206#137#255'{'#204#135#255'v'#202#129#255'v'#201#129#255'R'#162'Z'
 | 
			
		||||
  +#255'4~:'#254'0y5'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'Z'#180'e'#9'Y'#176'c'#255'k'#189'v'#255#132#210#144#255'z'#201
 | 
			
		||||
  +#133#255'`'#178'j'#255'c'#180'm'#255'x'#201#131#255'x'#203#130#255'S'#163'\'
 | 
			
		||||
  +#255'4'#127':'#253'1z6'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'^'#185'iF['#181'f'#228'y'#201#134#255#128#206#141#255'Q'#166'Z'#252'M'
 | 
			
		||||
  +#161'VoI'#156'Q'#139'\'#173'g'#255'|'#204#134#255'y'#203#133#255'T'#164']'
 | 
			
		||||
  +#255'5'#128';'#252'1{7'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'_'#186'j<\'#182'f'#230'm'#192'y'#255'U'#172'_o'#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'J'#157'R'#145'^'#174'h'#255'}'#205#137#255'|'#205#135#255'V'#165'_'
 | 
			
		||||
  +#255'6'#129'<'#252'2|8'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'_'#187'jC\'#183'ge'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'K'#158'S'#145'_'#175'i'#255#127#206#138#255'~'#206#137#255'W'#166'`'
 | 
			
		||||
  +#255'7'#130'='#252'3}9'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'K'#159'T'#145'`'#176'j'#255#129#207#141#255#127#207#139#255'X'
 | 
			
		||||
  +#167'a'#255'9'#133'@'#255'4~:'#8#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'L'#160'U'#145'b'#178'l'#255#130#209#143#255'z'#200
 | 
			
		||||
  +#133#255'W'#166'`'#255'8'#132'?{'#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#145'c'#179'm'#255'_'#175'i'
 | 
			
		||||
  +#255'A'#145'Iy'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'N'#162'W'#145'J'#157'R'#127
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'
 | 
			
		||||
  +#7#13'OkButtonClick'#8'TabOrder'#2#3#0#0#0
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'
 | 
			
		||||
  +#8'TabOrder'#2#3#0#0#0
 | 
			
		||||
]);
 | 
			
		||||
 | 
			
		||||
@ -132,9 +132,9 @@ begin
 | 
			
		||||
 | 
			
		||||
  // commit
 | 
			
		||||
  if (PkgFile.Filename<>NewFilename)
 | 
			
		||||
  or (PkgFile.AUnitname<>NewUnitName) then begin
 | 
			
		||||
  or (PkgFile.Unit_name<>NewUnitName) then begin
 | 
			
		||||
    PkgFile.Filename:=NewFilename;
 | 
			
		||||
    PkgFile.AUnitname:=NewUnitName;
 | 
			
		||||
    PkgFile.Unit_name:=NewUnitName;
 | 
			
		||||
    if LazPackage<>nil then LazPackage.Modified:=true;
 | 
			
		||||
  end;
 | 
			
		||||
  
 | 
			
		||||
@ -147,7 +147,7 @@ begin
 | 
			
		||||
  FPkgFile:=AValue;
 | 
			
		||||
  if PkgFile<>nil then begin
 | 
			
		||||
    FilenameEdit.Text:=PkgFile.Filename;
 | 
			
		||||
    UnitnameEdit.Text:=PkgFile.AUnitName;
 | 
			
		||||
    UnitnameEdit.Text:=PkgFile.Unit_Name;
 | 
			
		||||
  end;
 | 
			
		||||
end;
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
@ -12,8 +12,7 @@ object FrmComponentMan: TFrmComponentMan
 | 
			
		||||
  OnCreate = FrmMainCREATE
 | 
			
		||||
  OnDestroy = FrmMainDESTROY
 | 
			
		||||
  OnShow = FrmMainSHOW
 | 
			
		||||
  ParentFont = False
 | 
			
		||||
  LCLVersion = '0.9.25'
 | 
			
		||||
  LCLVersion = '0.9.29'
 | 
			
		||||
  object Label1: TLabel
 | 
			
		||||
    Left = 12
 | 
			
		||||
    Height = 14
 | 
			
		||||
@ -80,6 +79,7 @@ object FrmComponentMan: TFrmComponentMan
 | 
			
		||||
    Width = 240
 | 
			
		||||
    HelpType = htKeyword
 | 
			
		||||
    Anchors = [akTop, akLeft, akRight, akBottom]
 | 
			
		||||
    ItemHeight = 0
 | 
			
		||||
    OnClick = ListCompsCLICK
 | 
			
		||||
    Sorted = True
 | 
			
		||||
    TabOrder = 0
 | 
			
		||||
@ -115,7 +115,7 @@ object FrmComponentMan: TFrmComponentMan
 | 
			
		||||
  end
 | 
			
		||||
  object TxtPage: TEdit
 | 
			
		||||
    Left = 264
 | 
			
		||||
    Height = 23
 | 
			
		||||
    Height = 21
 | 
			
		||||
    Top = 128
 | 
			
		||||
    Width = 232
 | 
			
		||||
    HelpType = htKeyword
 | 
			
		||||
 | 
			
		||||
@ -6,139 +6,139 @@ LazarusResources.Add('TFrmComponentMan','FORMDATA',[
 | 
			
		||||
  +'omponent Manager for Lazarus'#12'ClientHeight'#3'6'#1#11'ClientWidth'#3#3#2
 | 
			
		||||
  +#21'Constraints.MinHeight'#3'6'#1#20'Constraints.MinWidth'#3#2#2#8'OnCreate'
 | 
			
		||||
  +#7#13'FrmMainCREATE'#9'OnDestroy'#7#14'FrmMainDESTROY'#6'OnShow'#7#11'FrmMai'
 | 
			
		||||
  +'nSHOW'#10'ParentFont'#8#10'LCLVersion'#6#6'0.9.25'#0#6'TLabel'#6'Label1'#4
 | 
			
		||||
  +'Left'#2#12#6'Height'#2#14#3'Top'#2#8#5'Width'#2'm'#8'HelpType'#7#9'htKeywor'
 | 
			
		||||
  +'d'#7'Caption'#6#21'Installed Components:'#11'ParentColor'#8#0#0#6'TLabel'#6
 | 
			
		||||
  +'Label2'#4'Left'#3#143#1#6'Height'#2#14#3'Top'#2#20#5'Width'#2'Z'#8'HelpType'
 | 
			
		||||
  +#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#15'Componen'
 | 
			
		||||
  +'t Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#3'2'#1#6'Height'
 | 
			
		||||
  +#2#14#3'Top'#3#165#0#5'Width'#2'9'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5
 | 
			
		||||
  +'akTop'#7'akRight'#0#7'Caption'#6#12'Pascal Unit:'#11'ParentColor'#8#0#0#6'T'
 | 
			
		||||
  +'Label'#6'Label4'#4'Left'#3'>'#1#6'Height'#2#14#3'Top'#2'`'#5'Width'#2#29#8
 | 
			
		||||
  +'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#5
 | 
			
		||||
  +'Page:'#11'ParentColor'#8#0#0#6'TLabel'#12'LblComponent'#4'Left'#3#171#1#6'H'
 | 
			
		||||
  +'eight'#2#14#3'Top'#2'8'#5'Width'#2'E'#8'HelpType'#7#9'htKeyword'#7'Anchors'
 | 
			
		||||
  +#11#5'akTop'#7'akRight'#0#7'Caption'#6#12'LblComponent'#11'ParentColor'#8#0#0
 | 
			
		||||
  +#6'TLabel'#7'LblUnit'#4'Left'#3#176#1#6'Height'#2#14#3'Top'#3#208#0#5'Width'
 | 
			
		||||
  +#2'!'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Capti'
 | 
			
		||||
  +'on'#6#7'LblUnit'#11'ParentColor'#8#0#0#8'TListBox'#9'ListComps'#4'Left'#2#12
 | 
			
		||||
  +#6'Height'#3#215#0#3'Top'#2'('#5'Width'#3#240#0#8'HelpType'#7#9'htKeyword'#7
 | 
			
		||||
  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'OnClick'#7#14'Lis'
 | 
			
		||||
  +'tCompsCLICK'#6'Sorted'#9#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'BtnCancel'#4'Left'
 | 
			
		||||
  +#3#136#1#6'Height'#2#31#3'Top'#3#11#1#5'Width'#2'a'#8'HelpType'#7#9'htKeywor'
 | 
			
		||||
  +'d'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#6'Cancel'#4'Kind'#7#8
 | 
			
		||||
  +'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#14'BtnCancelCLI'
 | 
			
		||||
  +'CK'#8'TabOrder'#2#1#0#0#7'TBitBtn'#7'Bitbtn2'#4'Left'#3'%'#1#6'Height'#2#31
 | 
			
		||||
  +#3'Top'#3#11#1#5'Width'#2'Q'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#7'akRi'
 | 
			
		||||
  +'ght'#8'akBottom'#0#7'Caption'#6#4'Save'#7'Default'#9#4'Kind'#7#4'bkOK'#11'M'
 | 
			
		||||
  +'odalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#12'Bitbtn2CLICK'#8'TabOrder'#2
 | 
			
		||||
  +#2#0#0#5'TEdit'#7'TxtPage'#4'Left'#3#8#1#6'Height'#2#23#3'Top'#3#128#0#5'Wid'
 | 
			
		||||
  +'th'#3#232#0#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRight'#0#8
 | 
			
		||||
  +'OnChange'#7#13'TxtPageCHANGE'#8'TabOrder'#2#3#0#0#7'TBitBtn'#7'Button1'#4'L'
 | 
			
		||||
  +'eft'#2#24#6'Height'#2#31#3'Top'#3#11#1#5'Width'#2'K'#8'HelpType'#7#9'htKeyw'
 | 
			
		||||
  +'ord'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#7'Add New'#10'Glyph'
 | 
			
		||||
  +'.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16
 | 
			
		||||
  +#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255
 | 
			
		||||
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +'nSHOW'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6'Label1'#4'Left'#2#12#6'Heig'
 | 
			
		||||
  +'ht'#2#14#3'Top'#2#8#5'Width'#2'm'#8'HelpType'#7#9'htKeyword'#7'Caption'#6#21
 | 
			
		||||
  +'Installed Components:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3
 | 
			
		||||
  +#143#1#6'Height'#2#14#3'Top'#2#20#5'Width'#2'Z'#8'HelpType'#7#9'htKeyword'#7
 | 
			
		||||
  +'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#15'Component Name:'#11'Paren'
 | 
			
		||||
  +'tColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#3'2'#1#6'Height'#2#14#3'Top'#3#165
 | 
			
		||||
  +#0#5'Width'#2'9'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRight'
 | 
			
		||||
  +#0#7'Caption'#6#12'Pascal Unit:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4
 | 
			
		||||
  +'Left'#3'>'#1#6'Height'#2#14#3'Top'#2'`'#5'Width'#2#29#8'HelpType'#7#9'htKey'
 | 
			
		||||
  +'word'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#5'Page:'#11'ParentCo'
 | 
			
		||||
  +'lor'#8#0#0#6'TLabel'#12'LblComponent'#4'Left'#3#171#1#6'Height'#2#14#3'Top'
 | 
			
		||||
  +#2'8'#5'Width'#2'E'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRi'
 | 
			
		||||
  +'ght'#0#7'Caption'#6#12'LblComponent'#11'ParentColor'#8#0#0#6'TLabel'#7'LblU'
 | 
			
		||||
  +'nit'#4'Left'#3#176#1#6'Height'#2#14#3'Top'#3#208#0#5'Width'#2'!'#8'HelpType'
 | 
			
		||||
  +#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#7'LblUnit'
 | 
			
		||||
  +#11'ParentColor'#8#0#0#8'TListBox'#9'ListComps'#4'Left'#2#12#6'Height'#3#215
 | 
			
		||||
  +#0#3'Top'#2'('#5'Width'#3#240#0#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'a'
 | 
			
		||||
  +'kTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ItemHeight'#2#0#7'OnClick'#7#14
 | 
			
		||||
  +'ListCompsCLICK'#6'Sorted'#9#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'BtnCancel'#4'L'
 | 
			
		||||
  +'eft'#3#136#1#6'Height'#2#31#3'Top'#3#11#1#5'Width'#2'a'#8'HelpType'#7#9'htK'
 | 
			
		||||
  +'eyword'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#6'Cancel'#4'Kin'
 | 
			
		||||
  +'d'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#14'BtnCa'
 | 
			
		||||
  +'ncelCLICK'#8'TabOrder'#2#1#0#0#7'TBitBtn'#7'Bitbtn2'#4'Left'#3'%'#1#6'Heigh'
 | 
			
		||||
  +'t'#2#31#3'Top'#3#11#1#5'Width'#2'Q'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11
 | 
			
		||||
  +#7'akRight'#8'akBottom'#0#7'Caption'#6#4'Save'#7'Default'#9#4'Kind'#7#4'bkOK'
 | 
			
		||||
  +#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#12'Bitbtn2CLICK'#8'TabOrd'
 | 
			
		||||
  +'er'#2#2#0#0#5'TEdit'#7'TxtPage'#4'Left'#3#8#1#6'Height'#2#21#3'Top'#3#128#0
 | 
			
		||||
  +#5'Width'#3#232#0#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#5'akTop'#7'akRigh'
 | 
			
		||||
  +'t'#0#8'OnChange'#7#13'TxtPageCHANGE'#8'TabOrder'#2#3#0#0#7'TBitBtn'#7'Butto'
 | 
			
		||||
  +'n1'#4'Left'#2#24#6'Height'#2#31#3'Top'#3#11#1#5'Width'#2'K'#8'HelpType'#7#9
 | 
			
		||||
  +'htKeyword'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#7'Add New'#10
 | 
			
		||||
  +'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0
 | 
			
		||||
  +#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0'A'#146'N#='#143'I}:'#140'D'#219'6'
 | 
			
		||||
  +#137'@'#243'2'#135'<'#243'/'#132'7'#219','#129'3}(0#'#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +'I'#153'XSE'#150'S'#230'A'#153'P'#255'}'#194#143#255#150#208#166#255#150#207
 | 
			
		||||
  +#166#255'x'#190#137#255'6'#141'B'#255','#129'4'#230')0S'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'Q'#159'aSM'#156']'#244
 | 
			
		||||
  +'d'#180'x'#255#168#219#181#255#135#204#152#255'f'#188'}'#255'd'#186'|'#255
 | 
			
		||||
  +#134#203#152#255#165#217#180#255'X'#170'k'#255','#129'4'#244')0S'#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0'Y'#166'k"V'#163'f'#229'j'#185'}'#255#168
 | 
			
		||||
  +#219#178#255'`'#188'w'#255'\'#186's'#255'Y'#184'p'#255'Y'#181'o'#255'X'#181
 | 
			
		||||
  +'o'#255'['#183't'#255#165#217#179#255'Z'#170'l'#255','#130'4'#229')0"'#255
 | 
			
		||||
  +#255#255#0#255#255#255#0']'#169'p~S'#171'h'#255#170#221#180#255'd'#193'y'#255
 | 
			
		||||
  +'_'#190'q'#255'`'#188'w'#255#255#255#255#255#255#255#255#255'Y'#184'p'#255'X'
 | 
			
		||||
  +#181'n'#255'\'#183't'#255#166#218#180#255'8'#143'C'#255','#130'4~'#255#255
 | 
			
		||||
  +#255#0#255#255#255#0'a'#172'u'#219#138#204#152#255#137#211#150#255'k'#198'z'
 | 
			
		||||
  +#255'c'#193'p'#255'U'#171'e'#255#255#255#255#255#255#255#255#255'Y'#184'p'
 | 
			
		||||
  +#255'Y'#184'p'#255'['#185'r'#255#133#204#151#255'{'#190#141#255'0'#133'9'#219
 | 
			
		||||
  +#255#255#255#0#255#255#255#0'e'#175'z'#246#169#221#179#255'}'#207#138#255'u'
 | 
			
		||||
  +#204#129#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'Y'#184'p'#255'g'#190'}'#255#156#212#171#255
 | 
			
		||||
  +'4'#136'='#246#255#255#255#0#255#255#255#0'i'#178'~'#246#182#226#190#255#139
 | 
			
		||||
  +#213#151#255'z'#201#134#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'Y'#184'p'#255'i'#193'~'#255
 | 
			
		||||
  ,#157#212#170#255'8'#139'B'#246#255#255#255#0#255#255#255#0'm'#181#131#219#172
 | 
			
		||||
  +#221#182#255#166#223#175#255#129#203#140#255'|'#201#134#255'n'#189'y'#255#255
 | 
			
		||||
  +#255#255#255#255#255#255#255'['#172'j'#255'`'#188'w'#255'\'#186's'#255#139
 | 
			
		||||
  +#209#153#255#128#197#146#255'<'#142'G'#219#255#255#255#0#255#255#255#0'p'#184
 | 
			
		||||
  +#135'~'#133#199#151#255#210#238#215#255#149#217#160#255#138#211#148#255''
 | 
			
		||||
  +#200#137#255#255#255#255#255#255#255#255#255'y'#205#133#255'k'#195'|'#255'o'
 | 
			
		||||
  +#199'~'#255#172#223#181#255'E'#158'W'#255'@'#145'L~'#255#255#255#0#255#255
 | 
			
		||||
  +#255#0's'#186#138'"p'#184#135#229#170#218#183#255#216#241#220#255#146#216#157
 | 
			
		||||
  +#255#136#205#147#255#132#204#142#255#139#212#150#255#138#212#149#255#131#210
 | 
			
		||||
  +#142#255#175#224#183#255'k'#185'}'#255'H'#152'V'#229'D'#148'Q"'#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0's'#187#139'Sp'#184#135#244#175#220#187#255#220
 | 
			
		||||
  +#242#224#255#182#228#189#255#155#219#165#255#150#217#160#255#165#223#175#255
 | 
			
		||||
  +#192#232#197#255'y'#194#138#255'P'#158'_'#244'L'#155'[S'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0's'#187#139'Sq'#184#135
 | 
			
		||||
  +#230#148#206#164#255#195#230#203#255#207#235#212#255#201#233#206#255#175#221
 | 
			
		||||
  +#184#255'm'#185''#255'X'#165'i'#230'T'#161'eS'#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0't'#187
 | 
			
		||||
  +#139'#q'#185#136'}n'#182#132#219'j'#179#128#243'g'#177'|'#243'c'#174'w'#219
 | 
			
		||||
  +'`'#171's}\'#168'n#'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'A'#146'N#='#143'I}:'#140
 | 
			
		||||
  +'D'#219'6'#137'@'#243'2'#135'<'#243'/'#132'7'#219','#129'3}('#127'0#'#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0'I'#153'XSE'#150'S'#230'A'#153'P'#255'}'#194#143#255#150#208
 | 
			
		||||
  +#166#255#150#207#166#255'x'#190#137#255'6'#141'B'#255','#129'4'#230')'#127'0'
 | 
			
		||||
  +'S'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'Q'
 | 
			
		||||
  +#159'aSM'#156']'#244'd'#180'x'#255#168#219#181#255#135#204#152#255'f'#188'}'
 | 
			
		||||
  +#255'd'#186'|'#255#134#203#152#255#165#217#180#255'X'#170'k'#255','#129'4'
 | 
			
		||||
  +#244')'#127'0S'#255#255#255#0#255#255#255#0#255#255#255#0'Y'#166'k"V'#163'f'
 | 
			
		||||
  +#229'j'#185'}'#255#168#219#178#255'`'#188'w'#255'\'#186's'#255'Y'#184'p'#255
 | 
			
		||||
  +'Y'#181'o'#255'X'#181'o'#255'['#183't'#255#165#217#179#255'Z'#170'l'#255','
 | 
			
		||||
  +#130'4'#229')'#127'0"'#255#255#255#0#255#255#255#0']'#169'p~S'#171'h'#255#170
 | 
			
		||||
  +#221#180#255'd'#193'y'#255'_'#190'q'#255'`'#188'w'#255#255#255#255#255#255
 | 
			
		||||
  +#255#255#255'Y'#184'p'#255'X'#181'n'#255'\'#183't'#255#166#218#180#255'8'#143
 | 
			
		||||
  +'C'#255','#130'4~'#255#255#255#0#255#255#255#0'a'#172'u'#219#138#204#152#255
 | 
			
		||||
  +#137#211#150#255'k'#198'z'#255'c'#193'p'#255'U'#171'e'#255#255#255#255#255
 | 
			
		||||
  +#255#255#255#255'Y'#184'p'#255'Y'#184'p'#255'['#185'r'#255#133#204#151#255'{'
 | 
			
		||||
  +#190#141#255'0'#133'9'#219#255#255#255#0#255#255#255#0'e'#175'z'#246#169#221
 | 
			
		||||
  +#179#255'}'#207#138#255'u'#204#129#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'Y'#184'p'#255'g'
 | 
			
		||||
  +#190'}'#255#156#212#171#255'4'#136'='#246#255#255#255#0#255#255#255#0'i'#178
 | 
			
		||||
  +'~'#246#182#226#190#255#139#213#151#255'z'#201#134#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
 | 
			
		||||
  ,'Y'#184'p'#255'i'#193'~'#255#157#212#170#255'8'#139'B'#246#255#255#255#0#255
 | 
			
		||||
  +#255#255#0'm'#181#131#219#172#221#182#255#166#223#175#255#129#203#140#255'|'
 | 
			
		||||
  +#201#134#255'n'#189'y'#255#255#255#255#255#255#255#255#255'['#172'j'#255'`'
 | 
			
		||||
  +#188'w'#255'\'#186's'#255#139#209#153#255#128#197#146#255'<'#142'G'#219#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'p'#184#135'~'#133#199#151#255#210#238#215#255#149
 | 
			
		||||
  +#217#160#255#138#211#148#255#127#200#137#255#255#255#255#255#255#255#255#255
 | 
			
		||||
  +'y'#205#133#255'k'#195'|'#255'o'#199'~'#255#172#223#181#255'E'#158'W'#255'@'
 | 
			
		||||
  +#145'L~'#255#255#255#0#255#255#255#0's'#186#138'"p'#184#135#229#170#218#183
 | 
			
		||||
  +#255#216#241#220#255#146#216#157#255#136#205#147#255#132#204#142#255#139#212
 | 
			
		||||
  +#150#255#138#212#149#255#131#210#142#255#175#224#183#255'k'#185'}'#255'H'#152
 | 
			
		||||
  +'V'#229'D'#148'Q"'#255#255#255#0#255#255#255#0#255#255#255#0's'#187#139'Sp'
 | 
			
		||||
  +#184#135#244#175#220#187#255#220#242#224#255#182#228#189#255#155#219#165#255
 | 
			
		||||
  +#150#217#160#255#165#223#175#255#192#232#197#255'y'#194#138#255'P'#158'_'#244
 | 
			
		||||
  +'L'#155'[S'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0's'#187#139'Sq'#184#135#230#148#206#164#255#195#230#203#255#207#235#212
 | 
			
		||||
  +#255#201#233#206#255#175#221#184#255'm'#185#127#255'X'#165'i'#230'T'#161'eS'
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0't'#187#139'#q'#185#136'}n'#182#132#219'j'#179#128
 | 
			
		||||
  +#243'g'#177'|'#243'c'#174'w'#219'`'#171's}\'#168'n#'#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#12'Button1C'
 | 
			
		||||
  +'LICK'#8'TabOrder'#2#4#0#0#7'TBitBtn'#9'BtnRemove'#4'Left'#3#128#0#6'Height'
 | 
			
		||||
  +#2#31#3'Top'#3#11#1#5'Width'#2'K'#8'HelpType'#7#9'htKeyword'#7'Anchors'#11#6
 | 
			
		||||
  +'akLeft'#8'akBottom'#0#7'Caption'#6#6'Remove'#10'Glyph.Data'#10':'#4#0#0'6'#4
 | 
			
		||||
  +#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0
 | 
			
		||||
  +#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#9'NumGlyphs'#2#0#7'OnClick'#7#12'Button1CLICK'#8'TabOrder'#2#4#0#0#7'TBitBt'
 | 
			
		||||
  +'n'#9'BtnRemove'#4'Left'#3#128#0#6'Height'#2#31#3'Top'#3#11#1#5'Width'#2'K'#8
 | 
			
		||||
  +'HelpType'#7#9'htKeyword'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6
 | 
			
		||||
  +#6'Remove'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('
 | 
			
		||||
  +#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0
 | 
			
		||||
  +#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'?T'#195'#:P'#194'}8S'#190#219'5Q'#189#243'0K'#188
 | 
			
		||||
  +#243'.N'#184#219'+L'#183'}''H'#181'#'#255#255#255#0#255#255#255#0#255#255#255
 | 
			
		||||
  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'FX'#200'SBU'#198
 | 
			
		||||
  +#230'<R'#204#255'uz'#232#255#143#146#238#255#143#146#238#255'qx'#228#255'3M'
 | 
			
		||||
  +#193#255'+J'#183#230')K'#181'S'#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'MZ'#205'SIY'#203#244'\e'#224#255#161#166#245#255'~'
 | 
			
		||||
  +#134#239#255'[c'#233#255'Y]'#231#255'}'#132#238#255#158#160#244#255'Q]'#215
 | 
			
		||||
  +#255'+J'#183#244')K'#181'S'#255#255#255#0#255#255#255#0#255#255#255#0'T_'#210
 | 
			
		||||
  +'"Sa'#207#229'ak'#227#255#161#172#245#255'T_'#236#255'P\'#234#255'MY'#233#255
 | 
			
		||||
  +'NY'#230#255'LV'#230#255'PV'#230#255#158#162#244#255'T`'#214#255'*J'#184#229
 | 
			
		||||
  +')K'#181'"'#255#255#255#0#255#255#255#0'X`'#212'~KV'#219#255#162#171#246#255
 | 
			
		||||
  +'Vd'#240#255'Rf'#238#255'MY'#233#255'MY'#233#255'MY'#233#255'MY'#233#255'LX'
 | 
			
		||||
  +#230#255'RZ'#230#255#159#163#245#255'4P'#196#255'*J'#184'~'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0'\b'#215#219#129#140#238#255'~'#145#247#255']s'#243#255'MY'#233#255
 | 
			
		||||
  +'MY'#233#255'MY'#233#255'MY'#233#255'MY'#233#255'MY'#233#255'O['#233#255'{'
 | 
			
		||||
  +#131#240#255'u{'#226#255'.K'#186#219#255#255#255#0#255#255#255#0'_c'#218#246
 | 
			
		||||
  +#161#171#247#255'p'#134#248#255'h'#130#246#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'MY'#233
 | 
			
		||||
  +#255'\f'#234#255#150#156#241#255'2P'#188#246#255#255#255#0#255#255#255#0'di'
 | 
			
		||||
  +#219#246#175#185#249#255#127#147#250#255'p'#133#240#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
 | 
			
		||||
  +'MY'#233#255'^j'#238#255#150#157#241#255'6O'#190#246#255#255#255#0#255#255
 | 
			
		||||
  +#255#0'gj'#222#219#165#175#245#255#157#171#250#255'w'#140#240#255'T_'#236#255
 | 
			
		||||
  +'T_'#236#255'T_'#236#255'T_'#236#255'T_'#236#255'T_'#236#255'cw'#242#255#129
 | 
			
		||||
  +#142#244#255'x'#127#233#255':S'#192#219#255#255#255#0#255#255#255#0'ji'#224
 | 
			
		||||
  +'~}'#131#234#255#205#212#252#255#139#157#250#255'~'#147#247#255'u'#138#238
 | 
			
		||||
  +#255'l'#132#246#255'l'#132#246#255'l'#132#246#255'l'#132#246#255'cy'#243#255
 | 
			
		||||
  +#164#175#248#255'>O'#208#255'>T'#194'~'#255#255#255#0#255#255#255#0'll'#225
 | 
			
		||||
  +'"ji'#224#229#163#167#243#255#212#219#253#255#135#154#250#255#127#145#240#255
 | 
			
		||||
  +'z'#142#241#255#127#148#248#255'~'#146#249#255'v'#140#248#255#168#182#248#255
 | 
			
		||||
  +'cn'#227#255'EW'#199#229'AV'#197'"'#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +'ml'#227'Sji'#224#244#170#173#242#255#216#220#253#255#174#186#250#255#145#163
 | 
			
		||||
  +#250#255#139#157#250#255#156#169#251#255#186#199#252#255'p{'#233#255'L['#204
 | 
			
		||||
  ,#244'HX'#202'S'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0'ml'#227'Sjj'#223#230#142#147#237#255#190#195#248#255#204#211#249
 | 
			
		||||
  +#255#196#203#249#255#170#180#244#255'fp'#226#255'S^'#209#230'P]'#206'S'#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'?T'#195'#:P'
 | 
			
		||||
  +#194'}8S'#190#219'5Q'#189#243'0K'#188#243'.N'#184#219'+L'#183'}''H'#181'#'
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0'FX'#200'SBU'#198#230'<R'#204#255'uz'#232#255#143#146
 | 
			
		||||
  +#238#255#143#146#238#255'qx'#228#255'3M'#193#255'+J'#183#230')K'#181'S'#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'MZ'#205'S'
 | 
			
		||||
  +'IY'#203#244'\e'#224#255#161#166#245#255'~'#134#239#255'[c'#233#255'Y]'#231
 | 
			
		||||
  +#255'}'#132#238#255#158#160#244#255'Q]'#215#255'+J'#183#244')K'#181'S'#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0'T_'#210'"Sa'#207#229'ak'#227#255#161
 | 
			
		||||
  +#172#245#255'T_'#236#255'P\'#234#255'MY'#233#255'NY'#230#255'LV'#230#255'PV'
 | 
			
		||||
  +#230#255#158#162#244#255'T`'#214#255'*J'#184#229')K'#181'"'#255#255#255#0#255
 | 
			
		||||
  +#255#255#0'X`'#212'~KV'#219#255#162#171#246#255'Vd'#240#255'Rf'#238#255'MY'
 | 
			
		||||
  +#233#255'MY'#233#255'MY'#233#255'MY'#233#255'LX'#230#255'RZ'#230#255#159#163
 | 
			
		||||
  +#245#255'4P'#196#255'*J'#184'~'#255#255#255#0#255#255#255#0'\b'#215#219#129
 | 
			
		||||
  +#140#238#255'~'#145#247#255']s'#243#255'MY'#233#255'MY'#233#255'MY'#233#255
 | 
			
		||||
  +'MY'#233#255'MY'#233#255'MY'#233#255'O['#233#255'{'#131#240#255'u{'#226#255
 | 
			
		||||
  +'.K'#186#219#255#255#255#0#255#255#255#0'_c'#218#246#161#171#247#255'p'#134
 | 
			
		||||
  +#248#255'h'#130#246#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'MY'#233#255'\f'#234#255#150#156
 | 
			
		||||
  +#241#255'2P'#188#246#255#255#255#0#255#255#255#0'di'#219#246#175#185#249#255
 | 
			
		||||
  +''#147#250#255'p'#133#240#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'MY'#233#255'^j'#238#255
 | 
			
		||||
  +#150#157#241#255'6O'#190#246#255#255#255#0#255#255#255#0'gj'#222#219#165#175
 | 
			
		||||
  +#245#255#157#171#250#255'w'#140#240#255'T_'#236#255'T_'#236#255'T_'#236#255
 | 
			
		||||
  +'T_'#236#255'T_'#236#255'T_'#236#255'cw'#242#255#129#142#244#255'x'#233#255
 | 
			
		||||
  +':S'#192#219#255#255#255#0#255#255#255#0'ji'#224'~}'#131#234#255#205#212#252
 | 
			
		||||
  +#255#139#157#250#255'~'#147#247#255'u'#138#238#255'l'#132#246#255'l'#132#246
 | 
			
		||||
  +#255'l'#132#246#255'l'#132#246#255'cy'#243#255#164#175#248#255'>O'#208#255'>'
 | 
			
		||||
  +'T'#194'~'#255#255#255#0#255#255#255#0'll'#225'"ji'#224#229#163#167#243#255
 | 
			
		||||
  +#212#219#253#255#135#154#250#255''#145#240#255'z'#142#241#255''#148#248#255
 | 
			
		||||
  +'~'#146#249#255'v'#140#248#255#168#182#248#255'cn'#227#255'EW'#199#229'AV'
 | 
			
		||||
  +#197'"'#255#255#255#0#255#255#255#0#255#255#255#0'ml'#227'Sji'#224#244#170
 | 
			
		||||
  +#173#242#255#216#220#253#255#174#186#250#255#145#163#250#255#139#157#250#255
 | 
			
		||||
  +#156#169#251#255#186#199#252#255'p{'#233#255'L['#204#244'HX'#202'S'#255#255
 | 
			
		||||
  ,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ml'#227'Sjj'
 | 
			
		||||
  +#223#230#142#147#237#255#190#195#248#255#204#211#249#255#196#203#249#255#170
 | 
			
		||||
  +#180#244#255'fp'#226#255'S^'#209#230'P]'#206'S'#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'mm'
 | 
			
		||||
  +#226'#kj'#225'}hj'#221#219'cd'#220#243'ad'#218#243']c'#217#219'[c'#214'}Xb'
 | 
			
		||||
  +#212'#'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#0#255#255#255#0'mm'#226'#kj'#225'}hj'#221#219'cd'#220#243'ad'#218#243']'
 | 
			
		||||
  +'c'#217#219'[c'#214'}Xb'#212'#'#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2
 | 
			
		||||
  +#0#7'OnClick'#7#14'BtnRemoveCLICK'#8'TabOrder'#2#5#0#0#11'TOpenDialog'#7'Dlg'
 | 
			
		||||
  +'Load'#6'Filter'#6#10'*.pp|*.pas'#11'FilterIndex'#2#0#4'left'#3#208#0#3'top'
 | 
			
		||||
  +#3#16#1#0#0#0
 | 
			
		||||
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
 | 
			
		||||
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
 | 
			
		||||
  +#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'BtnRemoveCLICK'#8'TabOrder'#2#5#0
 | 
			
		||||
  +#0#11'TOpenDialog'#7'DlgLoad'#6'Filter'#6#10'*.pp|*.pas'#11'FilterIndex'#2#0
 | 
			
		||||
  +#4'left'#3#208#0#3'top'#3#16#1#0#0#0
 | 
			
		||||
]);
 | 
			
		||||
 | 
			
		||||
@ -36,7 +36,7 @@ Type
 | 
			
		||||
  public
 | 
			
		||||
    Name: String;
 | 
			
		||||
    Page: String;
 | 
			
		||||
    Aunitname: String;
 | 
			
		||||
    unit_name: String;
 | 
			
		||||
  end;
 | 
			
		||||
 | 
			
		||||
type
 | 
			
		||||
@ -179,7 +179,7 @@ begin
 | 
			
		||||
            MyObj := TRComponent.Create;
 | 
			
		||||
            MyObj.Name := FrmAddComponent.ListCompAdd.Items[i];
 | 
			
		||||
            MyObj.Page := 'Custom';
 | 
			
		||||
            MyObj.Aunitname := FindUnitName;
 | 
			
		||||
            MyObj.unit_name := FindUnitName;
 | 
			
		||||
            ListComps.Items.AddObject(MyObj.Name, MyObj);
 | 
			
		||||
          end; // if not found
 | 
			
		||||
        end; // if listcompadd selected
 | 
			
		||||
@ -277,7 +277,7 @@ begin
 | 
			
		||||
  if assigned(MyObj) then begin
 | 
			
		||||
    LblComponent.Caption := Myobj.Name;
 | 
			
		||||
    TxtPage.Text := MyObj.Page;
 | 
			
		||||
    LblUnit.Caption := MyObj.Aunitname;
 | 
			
		||||
    LblUnit.Caption := MyObj.unit_name;
 | 
			
		||||
  end;
 | 
			
		||||
 | 
			
		||||
end;
 | 
			
		||||
@ -316,7 +316,7 @@ begin
 | 
			
		||||
    MyObj := TRComponent.Create;
 | 
			
		||||
    MyObj.Name := CompName;
 | 
			
		||||
    MyObj.Page := CompPage;
 | 
			
		||||
    MyObj.AUnitName := CompUnit;
 | 
			
		||||
    MyObj.Unit_Name := CompUnit;
 | 
			
		||||
    ListComps.Items.AddObject(CompName, MyObj);
 | 
			
		||||
  end;
 | 
			
		||||
  
 | 
			
		||||
@ -378,11 +378,11 @@ begin
 | 
			
		||||
              MyObj2 := ListComps.Items.Objects[J] as TRComponent;
 | 
			
		||||
              //messagedlg('Comparing object '+MyObj.Name+' at '+inttostr(I)+' with '+MyObj2.Name, mtInformation,[mbOk],0);
 | 
			
		||||
              if assigned(MyOBj2) then begin
 | 
			
		||||
                Found := AnsiCompareText(MyObj2.AUnitName,Myobj.AUnitName)=0;
 | 
			
		||||
                Found := AnsiCompareText(MyObj2.Unit_Name,Myobj.Unit_Name)=0;
 | 
			
		||||
              end; // if assigned
 | 
			
		||||
            end; // for J
 | 
			
		||||
          end; // For I
 | 
			
		||||
          if not(Found) then add('  '+MyObj.AUnitName+',');
 | 
			
		||||
          if not(Found) then add('  '+MyObj.Unit_Name+',');
 | 
			
		||||
        end;
 | 
			
		||||
      end; // for I
 | 
			
		||||
      // remove last comma
 | 
			
		||||
@ -415,7 +415,7 @@ begin
 | 
			
		||||
    for I := 0 to ListComps.Items.Count - 1 do begin
 | 
			
		||||
      MyObj := ListComps.Items.Objects[I] as TRComponent;
 | 
			
		||||
      if assigned(MyObj) then begin
 | 
			
		||||
        MyFile.Add('  RegisterComponent('''+MyObj.Page+''','''+MyObj.Aunitname+''','+MyObj.Name+');');
 | 
			
		||||
        MyFile.Add('  RegisterComponent('''+MyObj.Page+''','''+MyObj.unit_name+''','+MyObj.Name+');');
 | 
			
		||||
      end;
 | 
			
		||||
    end;
 | 
			
		||||
  end;
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user