Wohin mit den Dialogen?


Auszug aus

faceVALUE-Utils
Version 1.5
17. Juni 1999


2.1.2 Wohin mit den Dialogen?

Autor: Holger Herzog

Hier sind zwei Routinen zum Abfragen und Setzen der Dialogposition. Wichtig ist, dass das Setzen nur bei geschlossenem Dialogfenster geschehen darf! 



'
REM FVAL_TITLE: Dialogposition
PROCEDURE rsc_get_pos(tree&,VAR x&,y&)                    !call
  LOCAL tree%
  '
  ' 19.05.1996 Holger Herzog V1.0
  '
  tree%=@xrsrc_gaddr(0,tree&)
  IF tree%<>0
    ~OBJC_OFFSET(tree%,0,x&,y&)
  ENDIF
RETURN
PROCEDURE rsc_set_pos(tree&,x&,y&)                        !call
  LOCAL tree%,old_x&,old_y&
  '
  ' 19.05.1996 Holger Herzog V1.0
  '
  tree%=@xrsrc_gaddr(0,tree&)
  IF tree%<>0
    @rsc_get_pos(tree&,old_x&,old_y&)
    OB_X(tree%,0)=ADD(OB_X(tree%,0),SUB(x&,old_x&))
    OB_Y(tree%,0)=ADD(OB_Y(tree%,0),SUB(y&,old_y&))
  ENDIF
RETURN

Legen Sie die Routine einfach in Ihrem DATA\USER-Ordner ab, damit sie Ihnen jederzeit als EXTRA-Routine zur Verfügung steht.