ТМС:Сводник - История изменений

Lander: /* Обновление справочника при редактировании записи в Grid */

2023-08-18T06:59:15Z

‎Обновление справочника при редактировании записи в Grid

2023-08-18T06:58:15Z

‎Обновление справочника при редактировании записи в Grid

2023-08-18T06:56:49Z

2023-08-01T08:46:50Z

‎Управление элементами в панели управления

2023-08-01T08:44:19Z

‎Получение ID записи на которой стоит курсор

2023-08-01T08:43:13Z

‎Добавление своих кнопок

2023-08-01T08:41:55Z

‎Добавление своих кнопок

2023-08-01T08:40:53Z

‎Получение ID записи на которой стоит курсор

2023-08-01T08:39:05Z

‎Получение ID записи на которой стоит курсор

2023-08-01T08:38:50Z

‎Получение ID записи на которой стоит курсор

@@ Строка 74: / Строка 74: @@
 ===Обновление справочника при редактировании записи в Grid===
-uses
+ uses
    Classes,unFrameCustomDict, unMain, Graphics, Controls, Forms, Dialogs;
+ procedure ActionAfterEditField;
-procedure ActionAfterEditField;
+  var frame:TFrameCustomDict;
+ begin
-var frame:TFrameCustomDict;
+ frame:=gsender.owner;
+ frame.ImmediateSelect;
-begin
+ end;
+ begin
-frame:=gsender.owner;
+ gsender.ActionAfterEditField:='ActionAfterEditField';
+ end;
 frame.ImmediateSelect;
-−
 end;
-−
 begin
-−
 gsender.ActionAfterEditField:='ActionAfterEditField';
-−
 end;

@@ Строка 75: / Строка 75: @@
 uses
-   Classes,unFrameCustomDict, unMain, Graphics, Controls, Forms, Dialogs,
+   Classes,unFrameCustomDict, unMain, Graphics, Controls, Forms, Dialogs;
 procedure ActionAfterEditField;
 var frame:TFrameCustomDict;
 begin
 frame:=gsender.owner;
 frame.ImmediateSelect;
 end;
 begin
 gsender.ActionAfterEditField:='ActionAfterEditField';
 end;

← Предыдущая		Версия 06:56, 18 августа 2023
Строка 70:		Строка 70:
	s:=inttostr(gSender.pgbList.FocusedNode.Values[gSender.pgbList.ColumnByFieldName('ID').Index]);		s:=inttostr(gSender.pgbList.FocusedNode.Values[gSender.pgbList.ColumnByFieldName('ID').Index]);
	end		end
		+
		+
		+	===Обновление справочника при редактировании записи в Grid===
		+
		+	uses
		+	Classes,unFrameCustomDict, unMain, Graphics, Controls, Forms, Dialogs,
		+	procedure ActionAfterEditField;
		+	var frame:TFrameCustomDict;
		+	begin
		+	frame:=gsender.owner;
		+	frame.ImmediateSelect;
		+	end;
		+
		+	begin
		+	gsender.ActionAfterEditField:='ActionAfterEditField';
		+	end;

@@ Строка 27: / Строка 27: @@
 === Управление элементами в панели управления ===
   var
    pn: TAdvPanel;

@@ Строка 64: / Строка 64: @@
 ===Получение ID записи на которой стоит курсор ===
-<code>
+ uses
-uses
+ unFrameCustomDict,UnMain,dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid
+ begin
-unFrameCustomDict,UnMain,dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid
+ s:=inttostr(gSender.pgbList.FocusedNode.Values[gSender.pgbList.ColumnByFieldName('ID').Index]);
+ end
 begin
-−
 s:=inttostr(gSender.pgbList.FocusedNode.Values[gSender.pgbList.ColumnByFieldName('ID').Index]);
-−
 end
-</code>

@@ Строка 51: / Строка 51: @@
 В ТМС инициализации создаем отдельну. форму с кнопками(Form), где кнопки помещаем на панель (TPanel) -pnButtons
-var
+ var
+ frm: Tform2;
-frm: Tform2;
+ pn: TPanel;
-pn: TPanel;
+ begin
+ pn:=gsender.FindComponent('pnTop');
-begin
+ frm:=Tform2.Create(nil);
+ frm.pnButtons.Parent:=pn;
-pn:=gsender.FindComponent('pnTop');
+ frm.pnButtons.Align:=alLeft;
+ frm.pnButtons.Left:=gSender.Width;
-frm:=Tform2.Create(nil);
+  end;
-−
 frm.pnButtons.Parent:=pn;
-−
 frm.pnButtons.Align:=alLeft;
-−
 frm.pnButtons.Left:=gSender.Width;
-−
-−
 end;
 ===Получение ID записи на которой стоит курсор ===