draw a blink line on eye of olga

[Silvio.Falconi]

I wish draw a line when the mouse is on get control

a Vert line from top of image to sx eye
a Horiz line from sx of image to sx eye

perhaps when I converte cm to pixel make error

the test

Code: Select all  Expand view  RUN

#include "Fivewin.ch"
#include "Constant.ch"

STATIC oTmr, lMove, nLastGet

Function test()
   local oDlg, oFont, oBold, oCoupon
   local nBottom   := 34
   local nRight    := 111
   local nWidth    := Max( nRight * DLG_CHARPIX_W, 180 )
   local nHeight   := nBottom * DLG_CHARPIX_H
   local cTicket := "c:\work\fwh\bitmaps\olga1.jpg"

   local nDistanzaX := 4.2, nDistanzaY := 2.9
   local aGet := array(22)
   local nRow:=10,nCol:= 10
   local nInterlinea:= 20

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-14  BOLD
   oTmr := NIL
   lMove := .F.
   nLastGet := 0

   DEFINE DIALOG oDlg SIZE nWidth, nHeight ;
   PIXEL TRUEPIXEL FONT oFont ;
   TITLE "Draw a line"


@ 0, 0 XIMAGE oCoupon SIZE 250, 300 OF oDlg SOURCE cTicket NOBORDER
   oCoupon:bRClicked := { || NIL }
   oCoupon:nUserControl := 0

   @ 10, 260 FOLDER oFld SIZE oDlg:nWidth-270, oDlg:nBottom-50 OF oDlg PIXEL  ;
      PROMPT "Distance"


        @ nRow,ncol SAY "Distanza X" of oFld:adialogs[1] SIZE 55, 12 PIXEL FONT oFont
       nRow-=2
       @ nRow,ncol+75  GET aGet[1] VAR nDistanzaX of oFld:adialogs[1] PIXEL FONT oFont SIZE 40,12  RIGHT
       nRow+=nInterlinea
       @ nRow,ncol SAY "Distanza Y" of oFld:adialogs[1] SIZE 55, 12 PIXEL FONT oFont
       nRow-=2
       @ nRow,ncol+75  GET aGet[2] VAR nDistanzaY of oFld:adialogs[1] PIXEL FONT oFont SIZE 40,12 RIGHT

        aGet[1]:bMMoved := { |nRow, nCol, nKeyFlags| MyOverGet(nDistanzaX,nDistanzaY, oDlg, oCoupon, 1) }
        aGet[2]:bMMoved := { |nRow, nCol, nKeyFlags| MyOverGet(nDistanzaX,nDistanzaY, oDlg, oCoupon, 2) }















ACTIVATE DIALOG oDlg CENTER
RETURN NIL







 STATIC FUNCTION MyOverDlg(lPass)
   IF .NOT. lMove
      lMove := .T.
      IF oTmr <> NIL
         oTmr:End()
         oTmr := NIL
      ENDIF
      lMove := .F.
   ENDIF
RETURN NIL

STATIC FUNCTION MyOverGet(nDistanzaX, nDistanzaY, oDlg, oImage, nGet)
   IF .NOT. lMove
      lMove := .T.

      IF nLastGet <> nGet
         nLastGet := nGet
         IF oTmr <> NIL
            oTmr:End()
         ENDIF
         BuildTimer_Get(oImage, oDlg, nDistanzaX, nDistanzaY, nGet)
      ENDIF

      lMove := .F.
   ENDIF
RETURN NIL

//--------------------------------------------------------------//
// Disegna una linea lampeggiante per la distanza X e distanza Y

FUNCTION BuildTimer_Get(oImage, oDlg, nDistanzaX, nDistanzaY, nGet)
   local nTime := 0
   local nInterval := 10

   DEFINE TIMER oTmr OF oDlg ;
      ACTION ( nTime++, oImage:refresh(), If(nTime > 10, ShowLine(oDlg, oImage, nDistanzaX, nDistanzaY, nGet),) ) ;
      INTERVAL nInterval
   ACTIVATE TIMER oTmr
RETURN NIL



 FUNCTION ShowLine(oDlg, oImage, nDistanzaX, nDistanzaY, nGet)
   LOCAL hDC, hBrush, hPen
   LOCAL nImgX, nImgY
   LOCAL nStartX, nStartY, nEndX, nEndY
   LOCAL nSquareSize := 10  // Impostiamo la dimensione del quadrato (in pixel)
   LOCAL nDistanzaX_px, nDistanzaY_px  // Variabili per la conversione in pixel




   // Calcola la posizione effettiva dell'immagine nel dialogo
   nImgY := oImage:nLeft  // Posizione X dell'immagine nel dialogo
   nImgX := oImage:nTop   // Posizione Y dell'immagine nel dialogo

   // Converti le misure da mm a pixel (96 DPI)
   nDistanzaX_px := nDistanzaX * 96 / 25.4  // Conversione della distanza X in pixel
   nDistanzaY_px := nDistanzaY * 96 / 25.4  // Conversione della distanza Y in pixel

 
   IF nGet == 1  // Linea Orizzontale
      nStartX := nImgX + nDistanzaX_px
      nStartY := nImgY + nDistanzaY_px
      nEndX := nStartX + 20  // Lunghezza della linea orizzontale (in pixel)
      nEndY := nStartY
   ELSE  // Linea Verticale
      nStartX := nImgX + nDistanzaX_px
      nStartY := nImgY + nDistanzaY_px
      nEndX := nStartX
      nEndY := nStartY + 60
   ENDIF

   hDC := oImage:GetDC()

 
   hBrush := CreateSolidBrush(RGB(255, 255, 255)) // Bianco
   SelectObject(hDC, hBrush)

   
   hPen := CreatePen(PS_SOLID, 3, RGB(243, 101, 108))  // 3 è lo spessore della linea
   SelectObject(hDC, hPen)

   
   IF MOD(GetTickCount(), 1000) < 500
   
      MoveToEx(hDC, nStartX, nStartY, )  // NULL
      LineTo(hDC, nEndX, nEndY)

     
   ENDIF

   // Rilascia il contesto e pulisci
   oImage:ReleaseDC(hDC)
   DeleteObject(hBrush)
   DeleteObject(hPen)  //
RETURN NIL