Specifications

COM+ reference
Gallagher & Robertson Glink: API reference manual 15
procedure TForm1.DumpCursor (const cursor : IGlinkPoint);
begin
if Cursor = nil then Exit;
Listbox1.Items.Add('X: '+IntToStr(Cursor.X));
Listbox1.Items.Add('Y: '+IntToStr(Cursor.Y));
end;
procedure TForm1.DumpField (const Field : IGlinkField);
var
S : string;
cursor : IGlinkPoint;
begin
if Field = nil then Exit;
cursor := Field.getStart;
DumpCursor(cursor);
S := Field.getString;
Listbox1.Items.Add('S: ' + S);
end;
procedure TForm1.DumpScreenArea (const sArea :
IGlinkScreenArea);
var
startPt : IGlinkPoint;
endPt : IGlinkPoint;
begin
If sArea = nil Then
Listbox1.Items.Add ('No ScreenArea')
Else
Begin
If sArea.isRectangle Then
Listbox1.Items.Add
('Rectangle ScreenArea mode')
Else
Listbox1.Items.Add ('Line ScreenArea mode');
startPt := sArea.getStart;
endPt := sArea.getEnd;
Listbox1.Items.Add ('Start: ' +
IntToStr(startPt.X)+','+
IntToStr(startPt.Y));
Listbox1.Items.Add ('End: ' +
IntToStr(endPt.X)+','+
IntToStr(endPt.Y));
Listbox1.Items.Add ('Text: ['+
sArea.getString+']');
end;
end;
procedure TForm1.DumpFields (const Fields :
IGlinkFields);
var
I, Count : integer;
S : string;