FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour aRect... lo entendi ahora lo explico.
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
aRect... lo entendi ahora lo explico.
Posted: Sun Dec 12, 2010 03:19 PM
Se usa mucho el aRect me costo mucho entenderlo como esta definido.

aRect[1]:=1 // posicion INICIAL que parte en el eje de las "y" (filas, row, etc.)
aRect[2]:=1 // posicion INICIAL que parte en el eje de las "x" (columnas, col, etc.)
aRect[3]:=100 // posicion FINAL en el eje de las "y" (filas, row, etc.) lo llamo y1
aRect[4]:=200 // posicion FINAL en el eje de las "x" (columnas, col, etc.) lo llamo x1


Me tope, entre otras, con esta definicion y me llevo tiempo entender que hacia cuando usaba aRect

Code (fw): Select all Collapse
FillRect( ::oReporte:hdcout, aRect, oBCGris:hBrush )


Ejemplo:
Quiero hacer un rectangulo:
    que empiece en la posicion 1 (sobre el eje de las y)
    y que empiece tambien en la posicion 10 (sobre el eje de las x)
    que tenga de ALTO un tamanio de 20
    que tenga de ANCHO de 50
    [/list:u]

    aRect[1]:=1
    aRect[2]:=10
    aRect[3]:=20
    aRect[4]:=50

    Espero que sirva.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: aRect... lo entendi ahora lo explico.
Posted: Mon Dec 13, 2010 08:30 PM
es una funcion muy util.

Code (fw): Select all Collapse
local aClient := GetClientRect ( ::oMain:oWnd:hWnd )
DEFINE DIALOG ::oBox 
::oBox:nTop    = aClient[1]+52 //
   ::oBox:nLeft   = aClient[2]+100
   ::oBox:nBottom = aClient[3] - 100
   ::oBox:nRight  = aClient[4]-100
ACTIVATE dialog ::oBox
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "

Continue the discussion

Static archive · New replies & topics via GitHub Discussions