| 27 |
|
{ IBX For Lazarus (Firebird Express) } |
| 28 |
|
{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } |
| 29 |
|
{ Portions created by MWA Software are copyright McCallum Whyman } |
| 30 |
< |
{ Associates Ltd 2011 } |
| 30 |
> |
{ Associates Ltd 2011 - 2018 } |
| 31 |
|
{************************************************************************} |
| 32 |
|
|
| 33 |
|
unit IBDBReg; |
| 322 |
|
procedure Edit; override; |
| 323 |
|
end; |
| 324 |
|
|
| 325 |
+ |
{ TIBUpdateRefreshSQLProperty } |
| 326 |
+ |
|
| 327 |
+ |
TIBUpdateRefreshSQLProperty = class(TSQLPropertyEditor) |
| 328 |
+ |
protected |
| 329 |
+ |
FIBUpdate: TIBUpdate; |
| 330 |
+ |
FDatabase: TIBDatabase; |
| 331 |
+ |
function GetObjects: boolean; |
| 332 |
+ |
public |
| 333 |
+ |
procedure Edit; override; |
| 334 |
+ |
end; |
| 335 |
+ |
|
| 336 |
+ |
|
| 337 |
|
{ TIBEventListProperty } |
| 338 |
|
|
| 339 |
|
TIBEventListProperty = class(TClassProperty) |
| 447 |
|
TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]); |
| 448 |
|
if FirebirdAPI.HasServiceAPI then |
| 449 |
|
RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService, |
| 450 |
< |
TIBRestoreService, TIBValidationService, TIBStatisticalService, |
| 450 |
> |
TIBRestoreService, TIBValidationService, TIBOnlineValidationService, TIBStatisticalService, |
| 451 |
|
TIBLogService, TIBSecurityService, TIBServerProperties]); |
| 452 |
|
|
| 453 |
|
|
| 473 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'ModifySQL', TIBUpdateSQLUpdateProperty); {do not localize} |
| 474 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'InsertSQL', TIBUpdateSQLInsertSQLProperty); {do not localize} |
| 475 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'DeleteSQL', TIBUpdateSQLDeleteProperty); {do not localize} |
| 476 |
+ |
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdate, 'RefreshSQL', TIBUpdateRefreshSQLProperty); {do not localize} |
| 477 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBEvents, 'Events', TIBEventListProperty); {do not localize} |
| 478 |
|
RegisterPropertyEditor(TypeInfo(TPersistent), TIBDataSet, 'GeneratorField', TIBGeneratorProperty); {do not localize} |
| 479 |
|
RegisterPropertyEditor(TypeInfo(TPersistent), TIBQuery, 'GeneratorField', TIBGeneratorProperty); {do not localize} |
| 499 |
|
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'TextField', TIBTreeViewFieldProperty); |
| 500 |
|
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ParentField', TIBTreeViewFieldProperty); |
| 501 |
|
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'HasChildField', TIBTreeViewFieldProperty); |
| 502 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ImageIndexField', TIBTreeViewFieldProperty); |
| 503 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'SelectedIndexField', TIBTreeViewFieldProperty); |
| 504 |
|
|
| 505 |
|
IBGUIInterface := TIBDSLCLInterface.Create; |
| 506 |
|
end; |
| 527 |
|
end; |
| 528 |
|
end; |
| 529 |
|
|
| 530 |
+ |
{ TIBUpdateRefreshSQLProperty } |
| 531 |
+ |
|
| 532 |
+ |
function TIBUpdateRefreshSQLProperty.GetObjects: boolean; |
| 533 |
+ |
begin |
| 534 |
+ |
Result := false; |
| 535 |
+ |
FIBUpdate := GetComponent(0) as TIBUpdate; |
| 536 |
+ |
if not assigned(FIBUpdate) or not assigned(FIBUpdate.DataSet) then |
| 537 |
+ |
Exit; |
| 538 |
+ |
FDatabase := nil; |
| 539 |
+ |
if FIBUpdate.DataSet is TIBQuery then |
| 540 |
+ |
begin |
| 541 |
+ |
FDatabase := (FIBUpdate.DataSet as TIBQuery).Database; |
| 542 |
+ |
Result := true |
| 543 |
+ |
end; |
| 544 |
+ |
end; |
| 545 |
+ |
|
| 546 |
+ |
procedure TIBUpdateRefreshSQLProperty.Edit; |
| 547 |
+ |
begin |
| 548 |
+ |
GetObjects; |
| 549 |
+ |
if IBRefreshSQLEditor.EditSQL(FIBUpdate.DataSet,FIBUpdate.RefreshSQL) then Modified; |
| 550 |
+ |
end; |
| 551 |
+ |
|
| 552 |
|
{ TIBPackageNameProperty } |
| 553 |
|
|
| 554 |
|
procedure TIBPackageNameProperty.GetValues(Proc: TGetStrProc); |
