Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.337 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: FireMonkey ohne LiveBinding?

  Alt 18. Nov 2012, 16:21
Jetzt wollte ich mal einen Navigator von Hand nutzen...
So verweigert er aber direkt seine Arbeit.

Delphi-Quellcode:
procedure TBindNavigatorController.EnableButtons(AButtons: TNavigateButtons; ADataSourceEnabled: Boolean;
  ASetEnabled: TProc<TNavigateButton, Boolean>);
var
  FUpState: TState;
  FDnState: TState;
  FCanModifyState: TState;
  FStateSelected: TState;

...

  function UpEnable: Boolean;
  begin
    if FUpState = stUnknown then
      if ADataSourceEnabled and Selected and not Self.BOF then
        FUpState := stEnable
      else
        FUpState := stDisable;
    Result := FUpState = stEnable;
  end;

...

function TBindNavigatorController.GetBOF: Boolean;
begin
  if Assigned(FScopeNavigator) then // NIX OHNE Scope
    Result := FScopeNavigator.BOF
  else
    Result := True;

end;
Die Hilfe bezieht sich z.T. auf den VCL-Navigator. Das hilft auch nicht wirklich weiter.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat