FiveTech Software tech support forums

... COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE ...

... COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE ...

... COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE ...

... is my code. FUNCTION HPCall( cTransactionSetupID, oDlg ) local oWndHP, oActiveX local cEvents := "" LOCAL cHtml := "" LOCAL oIcon DEFINE ICON oIcon RESOURCE "MYICON" DEFINE WINDOW oWndHP ; FROM 1, 5 TO 40, 75 ; TITLE "Hosted Payments" ; STYLE nOr(WS_CAPTION, ...

Antonio Linares wrote:Dear Silvio,

Do you use static oPaziente ?

CLASS TPaziente
DATA oWinClients
DATA oBar
DATA oPaziente
DATA oLbx
DATA cTitulo
DATA oTabs
DATA oIcon
DATA oCbx

... == nil ::oPaziente := TClienti():New() ::oPaziente:SetOrder( "FIRST" ) ::oPaziente:GoTop() ::cTitulo := "" DEFINE ICON ::oIcon RESOURCE " DEFINE WINDOW ::oWin MDICHILD .... else ::oWin:SetFocus() endif RETURN Self this is to avoid opening the same window but unfortunately ...

... * 0.5 ) DEFINE DIALOG oDlgAgenti SIZE nWd, nHt PIXEL FONT oFont TRUEPIXEL ; TITLE cTitle TRANSPARENT COLOR CLR_BLACK,RGB( 245,244,234 ) ICON oIcon But How I can calc the exact position of each say and get control with respect to the height of the dialog created? for a sample I made local ...

... oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO' Elimine BITMAPS de MSGITEM y lo cambie por: DEFINE ICON oIcon RESOURCE 'AA_ICO' oWnd:SetIcon(oIcon) todo trabaja bien, gracias Karinha y Master Antonio Regards, Saludos.

... Build 9200 Time from start: 0 hours 6 mins 31 secs Error ocurrido: 04/05/20, 15:55:56 Description del error: Error BASE/1005 No exported variable: OICON Args: [ 1] = U [ 2] = U Stack Calls =========== Llamado desde: => _OICON( 0 ) Llamado desde: .\rpreview.prg => (b)TPREVIEW_ACTIVATE( 155 ...

... FUNCTION MsgStop( cTexto, cTitulo ) LOCAL oDlg, aBoton[ 2 ], oIcon, oSay DEFINE DIALOG oDlg ; RESOURCE "MSGSTOP" ; OF oPublic:oWnd ; TITLE cTitulo ; FONT oPublic:aFont[ 2 ] REDEFINE XIMAGE oIcon ; ID ...

... ) ; ON RIGHT ::HScroll( GO_RIGHT ) ; ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ; ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oCursor:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; If( Empty( ::oImageList ...

include in your rc file ( resource with name AppIcon )

AppIcon ICON DISCARDABLE ".\MyIcono.ico"

in your application

DEFINE ICON oIcon RESOURCE "AppIcon"

Set icon to windows object

Code: Select all  Expand view

      oWnd:SetIcon( oIcon )
 

... -4130 REQUEST DBFCDX REQUEST DBFFPT function Main() local oSay , ; oSay2 , ; cSay := "" , ; cSay2 := '' , ; oFont , ; oMenu , ; oIcon IF PCOUNT()<1 cDebug := "" ENDIF // Init... lAds := .F. Pbuild := "20190205-1634" cRdd1 := "DBFCDX" cString := ...

Saludos amigos foristas. ¿Podría alguien darme una mano de como hacer un grupo de botones? me explico. Estoy haciendo un menu a puro fw con instrucciones simples y sin ninguna clase de terceros. Necesito mostar/ocultar y mover los botones correspondientes a cada opcion del menu y hacerlos uno a uno ...

... , ; nSysW := GetSysMetrics(0) , ; nSysH := GetSysMetrics(1) , ; nLbxW := 600 , ; nLbxH := 430 , ; cSay := "Search for Booking by" , ; oIcon , ; cSearch := "" , ; cSearchK := SPACE(40) , ; aSearch := {} , ; aGet[03] , ; cLb1 := 'File' // Client... _Client( cComp ) // Application ...