ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/IBDBReg.pas
(Generate patch)

Comparing ibx/trunk/design/IBDBReg.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 63 | Line 63 | type
63    Property editor the DataBase Name property.  Brings up the Open dialog }
64  
65    TIBFileNameProperty = class(TStringProperty)
66 +  protected
67 +    function GetFilter: string; virtual;
68    public
69      procedure Edit; override;
70      function GetAttributes: TPropertyAttributes; override;
71    end;
72  
73 +  { TIBLibraryNameProperty }
74 +
75 +  TIBLibraryNameProperty = class(TIBFileNameProperty)
76 +  protected
77 +    function GetFilter: string; override;
78 +  end;
79 +
80    { TIBNameProperty
81    }
82    TIBNameProperty = class(TStringProperty)
# Line 438 | Line 447 | const
447  
448   procedure Register;
449   begin
450 +  AllowUseOfFBLIB := true;
451    if not TryIBLoad then
452    begin
453      MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0);
# Line 472 | Line 482 | begin
482    RegisterComponents(IBPalette3,[TIBLookupComboEditBox,TIBDynamicGrid,TIBTreeView,TDBControlGrid, TIBArrayGrid]);
483  
484    RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'DatabaseName', TIBFileNameProperty); {do not localize}
485 +  RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'FirebirdLibraryPathName', TIBLibraryNameProperty); {do not localize}
486 +  RegisterPropertyEditor(TypeInfo(TIBFileName), TIBXServicesConnection, 'FirebirdLibraryPathName', TIBLibraryNameProperty); {do not localize}
487    RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'StoredProcName', TIBStoredProcNameProperty); {do not localize}
488    RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'PackageName', TIBPackageNameProperty); {do not localize}
489    RegisterPropertyEditor(TypeInfo(TParams), TIBStoredProc, 'Params', TIBStoredProcParamsProperty);
# Line 547 | Line 559 | begin
559    end;
560   end;
561  
562 + { TIBLibraryNameProperty }
563 +
564 + function TIBLibraryNameProperty.GetFilter: string;
565 + begin
566 +  Result := SLibraryNameFilter; {do not localise}
567 + end;
568 +
569   { TIBXServiceEditor }
570  
571   procedure TIBXServiceEditor.ExecuteVerb(Index: Integer);
# Line 763 | Line 782 | begin
782    Result := inherited GetVerbCount + 2;
783   end;
784  
785 + function TIBFileNameProperty.GetFilter: string;
786 + begin
787 +  Result := SDatabaseFilter; {do not localize}
788 + end;
789 +
790   { TIBFileNameProperty }
791   procedure TIBFileNameProperty.Edit;
792   begin
793    with TOpenDialog.Create(Application) do
794      try
795        InitialDir := ExtractFilePath(GetStrValue);
796 <      Filter := SDatabaseFilter; {do not localize}
796 >      Filter := GetFilter;
797        if Execute then
798          SetStrValue(FileName);
799      finally

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines