ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.pas

Comparing ibx/trunk/examples/DBAdmin/MainFormUnit.pas (file contents):
Revision 228 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 229 by tony, Tue Apr 10 13:32:36 2018 UTC

#	Line 41 | Line 41 | type
41		IncludeUserGrants: TCheckBox;
42		Label41: TLabel;
43		Label42: TLabel;
44	+	Label43: TLabel;
45	+	DBComments: TMemo;
46		MenuItem19: TMenuItem;
47		RevokeAll: TAction;
48		AuthMapSource: TDataSource;
#	Line 284 | Line 286 | type
286		procedure CommitAllUpdate(Sender: TObject);
287		procedure DatabaseOnlineChange(Sender: TObject);
288		procedure DBCharacterSetEditingDone(Sender: TObject);
289	+	procedure DBCommentsEditingDone(Sender: TObject);
290		procedure DBIsReadOnlyChange(Sender: TObject);
291		procedure DBSQLDialectEditingDone(Sender: TObject);
292		procedure DeleteTagExecute(Sender: TObject);
#	Line 427 | Line 430 | begin
430		Post;
431		end;
432
433	+	procedure TMainForm.DBCommentsEditingDone(Sender: TObject);
434	+	begin
435	+	DatabaseData.Description := DBComments.Lines.Text;
436	+	end;
437	+
438		procedure TMainForm.AutoAdminChange(Sender: TObject);
439		begin
440		if FLoading then Exit;
#	Line 1055 | Line 1063 | begin
1063		PagesAvail.Text := 'n/a';
1064		AutoAdmin.Checked :=  false;
1065		end;
1066	+	DBComments.Lines.Text := DatabaseData.Description;
1067		finally
1068		FLoading := false;
1069		end;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines