tTR_Dimensions

type tTR_Dimensions = record

  trd_Left: Word;

  trd_Top: Word;

  trd_Width: Word;

  trd_Height: Word;

  trd_Left2: Word;

  trd_Top2: Word;

  trd_Width2: Word;

  trd_Height2: Word;

  trd_Zoomed: SmallInt;

  reserved: array [0..2] of Word;

end;