TMS-Google Kalender, APPIDS.INC

[greenmile]

Ich würde an dieser Stelle einen Tipp geben, TMS hat den bisher leider noch nicht umgesetzt.
Editiert die

Code:

CloudBase.pas

. Ansonsten könnten User das Fenster kleiner ziehen und es hagelt Fehler.

Code:

function TCloudBase.CreateOAuthForm(url: string; CallBack: TWebBrowserBeforeNavigate2; CallBackComplete: TWebBrowserNavigateComplete2): TForm;
begin
  FOAuthForm := TForm.CreateNew(nil);
  //
  FOAuthForm.BorderIcons := [biSystemMenu, biMaximize]; // Change
  FOAuthForm.Constraints.MinWidth  := 640;  // Change: Sonst meldet Dropbox Script-Fehler
  FOAuthForm.Constraints.MinHeight := 480; // Change: Sonst meldet Dropbox Script-Fehler
  //
  FBrowser := TWebBrowser.Create(FOAuthForm);
  FBrowser.Align := alClient;
  FBrowser.SetParentComponent(FOAuthForm);
  FBrowser.OnBeforeNavigate2 := CallBack;
  FBrowser.OnNavigateComplete2 := CallBackComplete;
  FBrowser.Navigate(url);
  FOAuthForm.Width := AuthFormSettings.Width;
  FOAuthForm.Height := AuthFormSettings.Height;
  FOAuthForm.Caption := AuthFormSettings.Caption;
  FOAuthForm.Position := poScreenCenter;
  FOAuthForm.OnClose := DoFormClose;
  FOAuthForm.ShowModal;
  Result := FOAuthForm;
end;