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 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 203 | Line 203 | type
203     function GetVerbCount: Integer; override;
204    end;
205  
206 +  { TIBXServiceEditor }
207 +
208 +  TIBXServiceEditor = class(TComponentEditor)
209 +  public
210 +    procedure ExecuteVerb(Index: Integer); override;
211 +    function GetVerb(Index: Integer): string; override;
212 +    function GetVerbCount: Integer; override;
213 +  end;
214 +
215    TIBStoredProcParamsProperty = class(TCollectionPropertyEditor)
216    end;
217  
# Line 401 | Line 410 | implementation
410  
411   uses IB, IBQuery, IBStoredProc, IBCustomDataSet, FBMessages,
412       IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents, IBTypes,
413 <     IBServices, IBDatabaseEdit, IBTransactionEdit,
413 >     IBServices, IBXServices, IBDatabaseEdit, IBTransactionEdit,
414       IBBatchMove, IBExtract,LResources, IBSelectSQLEditor,
415       IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor,
416       IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor,
417       IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox,
418       IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs,
419 <     IBArrayGrid, IBVersion, IBDataOutput;
419 >     IBArrayGrid, IBVersion, IBDataOutput, IBXServiceEditor;
420  
421   const
422    IBPalette1 = 'Firebird'; {do not localize}
423 <  IBPalette2 = 'Firebird Admin'; {do not localize}
423 >  IBPalette2 = 'Firebird Legacy Admin'; {do not localize}
424    IBPalette3 = 'Firebird Data Controls';   {do not localize}
425 <  
425 >  IBPalette4 = 'Firebird Admin'; {do not localize}
426 >
427   resourcestring
428     SInterbaseExpressVersion = 'Firebird Express for Lazarus ' + IBX_VERSION;
429     SEditSQL = 'Edit SQL';
# Line 446 | Line 456 | begin
456         TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport,
457         TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]);
458    if FirebirdAPI.HasServiceAPI  then
459 +  begin
460 +    RegisterComponents(IBPalette4, [TIBXServicesConnection, TIBXConfigService,
461 +      TIBXClientSideBackupService, TIBXServerSideBackupService,
462 +      TIBXClientSideRestoreService, TIBXServerSideRestoreService,
463 +      TIBXValidationService, TIBXOnlineValidationService, TIBXStatisticalService,
464 +      TIBXLogService, TIBXSecurityService, TIBXServerProperties,
465 +      TIBXLimboTransactionResolutionService,TIBXServicesUserList, TIBXServicesLimboTransactionsList]);
466      RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService,
467 <      TIBRestoreService, TIBValidationService, TIBOnlineValidationService, TIBStatisticalService,
467 >      TIBRestoreService, TIBValidationService,
468 >      TIBOnlineValidationService, TIBStatisticalService,
469        TIBLogService, TIBSecurityService, TIBServerProperties]);
470 <
470 >  end;
471  
472    RegisterComponents(IBPalette3,[TIBLookupComboEditBox,TIBDynamicGrid,TIBTreeView,TDBControlGrid, TIBArrayGrid]);
473 +
474    RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'DatabaseName', TIBFileNameProperty); {do not localize}
475    RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'StoredProcName', TIBStoredProcNameProperty); {do not localize}
476    RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'PackageName', TIBPackageNameProperty); {do not localize}
# Line 488 | Line 507 | begin
507    RegisterComponentEditor(TIBSQL, TIBSQLEditor);
508    RegisterComponentEditor(TIBCustomService, TIBServiceEditor);
509    RegisterComponentEditor(TIBArrayGrid, TIBArrayGridEditor);
510 +  RegisterComponentEditor(TIBXServicesConnection, TIBXServiceEditor);
511  
512  
513    {Firebird Data Access Controls}
# Line 527 | Line 547 | begin
547    end;
548   end;
549  
550 + { TIBXServiceEditor }
551 +
552 + procedure TIBXServiceEditor.ExecuteVerb(Index: Integer);
553 + begin
554 +  if Index < inherited GetVerbCount then
555 +    inherited ExecuteVerb(Index) else
556 +  begin
557 +    Dec(Index, inherited GetVerbCount);
558 +    case Index of
559 +      0 : if IBXServiceEditor.EditIBXService(TIBXServicesConnection(Component)) then Designer.Modified;
560 +    end;
561 +  end;
562 + end;
563 +
564 + function TIBXServiceEditor.GetVerb(Index: Integer): string;
565 + begin
566 +  if Index < inherited GetVerbCount then
567 +    Result := inherited GetVerb(Index) else
568 +  begin
569 +    Dec(Index, inherited GetVerbCount);
570 +    case Index of
571 +      0: Result := SIBServiceEditor;
572 +      1 : Result := SInterbaseExpressVersion;
573 +    end;
574 +  end;
575 + end;
576 +
577 + function TIBXServiceEditor.GetVerbCount: Integer;
578 + begin
579 +  Result := inherited GetVerbCount + 2;
580 + end;
581 +
582   { TIBUpdateRefreshSQLProperty }
583  
584   function TIBUpdateRefreshSQLProperty.GetObjects: boolean;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines