Specifications

COM+ reference
Gallagher & Robertson Glink: API reference manual 17
Field := Fields.item(I + 1);
if Field = nil then Exit;
Field.setString ('Phil');
Field := Fields.findByString('Enter password', cursor,
24*80, GlinkApi_SEARCH_FORWARD, false);
if Field = nil then Exit;
I := Fields.getFieldIndex (Field);
Field := Fields.item(I + 1);
if Field = nil then Exit;
Field.setString ('Password');
Fields.refresh;
DumpFields(Fields);
end;
procedure TForm1.Button8Click(Sender: TObject);
var
I, Count : integer;
Fields : IGlinkFields;
Field : IGlinkField;
cursor : IGlinkPoint;
S : string;
begin
Fields := GlinkApi1.getVariableFields;
if Fields = nil then Exit;
Field := Fields.item(1);
if Field = nil then Exit;
Field.setString ('Phil');
Field := Fields.item(2);
Field.setString ('Password');
Fields.refresh;
DumpFields(Fields);
end;
procedure TForm1.Button9Click(Sender: TObject);
var
startPt : IGlinkPoint;
endPt : IGlinkPoint;
sArea : IGlinkScreenArea;
begin
sArea := GlinkApi1.getMarkedScreenArea;
DumpScreenArea(sArea);
if sArea <> nil then
begin
glinkapi1.notifyScreenArea(sArea,
sAindex, false);
inc(sAindex);
sArea := GlinkApi1.getScreenArea (sArea.getStart,
sArea.getEnd, sArea.isRectangle);
DumpScreenArea(sArea);
end
else