Changeset 3 for trunk/UFormSettings.pas

Timestamp:

Aug 24, 2019, 10:44:11 AM (5 years ago)

Author:

chronos

Message:

• Modified: Odorik API moved to separate unit UOdorikApi.pas.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormSettings.pas (modified) (3 diffs)

trunk/UFormSettings.pas

@@ -57 +57 @@
 begin
   if AResult = mrOk then
-    FormMain.Password := AValues[0];
+    FormMain.OdorikApi.Password := AValues[0];
 end;
 
 procedure TFormSettings.RectanglePasswordClick(Sender: TObject);
 begin
-  TDialogService.InputQuery('Password', ['Password'], [FormMain.Password], PasswordQuery);
+  TDialogService.InputQuery('Password', ['Password'], [FormMain.OdorikApi.Password], PasswordQuery);
 end;
 
 procedure TFormSettings.RectangleServerUrlClick(Sender: TObject);
 begin
-  TDialogService.InputQuery('Server URL', ['Server URL'], [FormMain.ServerUrl], ServerUrlQuery);
+  TDialogService.InputQuery('Server URL', ['Server URL'], [FormMain.OdorikApi.ServerUrl], ServerUrlQuery);
 end;
 
 procedure TFormSettings.RectangleUserNameClick(Sender: TObject);
 begin
-  TDialogService.InputQuery('User name', ['User name'], [FormMain.UserName], UserNameQuery);
+  TDialogService.InputQuery('User name', ['User name'], [FormMain.OdorikApi.UserName], UserNameQuery);
 end;
 
@@ -79 +79 @@
 begin
   if AResult = mrOk then
-    FormMain.ServerUrl := AValues[0];
+    FormMain.OdorikApi.ServerUrl := AValues[0];
 end;
 
@@ -91 +91 @@
 begin
   if AResult = mrOk then
-    FormMain.UserName := AValues[0];
+    FormMain.OdorikApi.UserName := AValues[0];
 end;