dcsay on desktop the bottom right of the screen

[digitsoft]

hello Roger
How to present a message in the bottom right of the screen

always this visible posision if it has different resolution in the monitors.

[rdonnay]

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0], GetOptions


@ 0,0 DCSAY 'This is my message' FONT '18.Arial Bold' ;
      COLOR GRA_CLR_DARKRED SAYSIZE 0

DCGETOPTIONS HIDE ALWAYSONTOP NOTASKBAR

DCREAD GUI FIT BUTTONS DCGUI_BUTTON_OK OPTIONS GetOptions ;
  EVAL {|o|o:setPos({AppDeskTop():currentSize()[1]-o:currentSize()[1],0}), ;
           DC_ZoomTransparent(o)} ;
  TITLE 'Alert'

RETURN nil

PROC appsys ; RETURN