Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/03/20 in all areas

  1. I attached the corrected file. It is related to EL version not Delphi or uniGUI version. They have changed some of the types, so it breaks backward compatibility. See file for correct usage: {$define EurekaLog7_8UP} // enable this line if your EurekaLog version is 7.8.0 or newer {$undef EurekaLog7_3UP} // enable this line if your EurekaLog version is 7.3.0 or newer {$ifdef EurekaLog7_8UP} procedure Init(const ALowLevelHooks: Integer); {$else} {$ifdef EurekaLog7_3UP} procedure Init(const ALowLevelHooksAllowed: Boolean); {$else} procedure Init; {$endif} {$endif} EAppUniGUI.pas
    1 point
  2. Maybe you can adapt my approach to your needs (simplified procedure): procedure TUniMainModule.UniGUIMainModuleBeforeLogin(Sender: TObject; var Handled: Boolean); var aApp : TUniGUIApplication; aBLIEwin : string; begin Handled := false; try aApp := (Sender as TUniGUISession).UniApplication; aBLIEwin := aApp.Parameters.Values['BLIEWIN']; if not aBLIEwin.IsEmpty then begin if not Assigned(FdmUser) then FdmUser := TdmUser.Create(self); Handled := FdmUser.CheckLogin(aBLIEwin, FAutoStartAction); end; finally FIsLogin := Handled; end; end; This link http://localhost:8077/m?BLIEWI=param will bypass login form and in App.MainForm: procedure TMainForm.UniFormShow(Sender: TObject); var aAction : TAction; begin aAction := UniMainModule.AutoStartAction; if Assigned(aAction) then begin UniMainModule.AutoStartAction := nil; ModuleExecute(aAction); end; end; HTH.
    1 point
  3. UniDBGrid -> Columns -> Column[xx] -> Menu -> MenuEnabled = False ?
    1 point
×
×
  • Create New...