[Overview][Constants][Classes][Procedures and functions][Index] Reference for unit 'TagsParamsHelper' (#MUIClass)

TATagList

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

A Tagelist for easier Taglist handling

Declaration

Source position: tagsparamshelper.pas line 27

type TATagList = object end;

public

  procedure Clear;

  

Clear the TagList

  function GetTagPointer;

  

Get the Pointer to the TagList as it should be supplied to Amiga Calls

  procedure AddTag();

  

Add a Single Tag to the TagList

  procedure AddTags();

  

Add a bunch of Tags

  procedure DebugPrint;

  

Prints the whole list to the Debug Output

Inheritance

TATagList

  

A Tagelist for easier Taglist handling

Description

Use the TagList as normal variable, in the usual cases you do not need to keep it, so a local variable in most cases enough.

To call the function needing the TagList supply this variable directly at the position of the taglist, it will automatically transfer the needed Pointer. Alternatively you can also use the GetTagPointer() function to get the Pointer you need as parameter.

Note: if you add Tags you have to get the TagPointer again. You do not need to add TAG_DONE/TAG_END to the list, it will be added automatically as last Tag.

Example:

procedure OpenMyWindow(ATitle: string = ''): PWindow;
var
  Tags: TATagList;
begin
  // Add a bunch of Tags
  Tags.AddTags([
    WA_Left,   10,
    WA_Top,    20,
    WA_Width,  500,
    WA_Height, 300,
    WA_Flags,  WFLG_DEPTHGADGET or WFLG_DRAGBAR or WFLG_CLOSEGADGET or
      WFLG_ACTIVATE or WFLG_OTHER_REFRESH or WFLG_GIMMEZEROZERO,
    WA_IDCMP,  IDCMP_CLOSEWINDOW or IDCMP_REFRESHWINDOW or IDCMP_IDCMPUPDATE,
  ]);
  // Add a single Tag
  if ATitle <> '' then
  begin
    FTitle := ATitle;
    Tags.AddTag(WA_Title, AsTag(PChar(FTitle)));
  end;
  // ready top open the Window
  Result := OpenWindowTagList(nil, Tags);
end;

Documentation generated on: 2019-06-19