En source\classes\control.prg método Colors() tienes un ejemplo de como hay que llamar a SetBrushOrgEx() y a FillRect() para rellenar el fondo correctamente.
... 0 Can I to have the variable color to create a brush ? nColor := ????? hBru := CreateSolidBrush( nColor ) hOld := SelectObject( ::hDC, hBru ) FillRect( ::hDC, { nTop, nLeft, nBottom+nx, nRight+nx }, hBru ) SelectObject( ::hDC, hOld ) DeleteObject( hBru )
... mareos o dolores de cabeza :shock: ). Tambien he cambiado la funcion para imprimir codigos normales de forma que ahora se hace usando la funcion 'fillrect' en lugar de usar 'rectangle'. Y es que la funcion rectangle al imprimir codigos de gran tamaño no rellena correctamente los rectangulos dejando ...
... PintNeoFond(oDlS) ACTIVATE DIALOG oDlS RETURN NIL FUNCTION PintNeoFond(oWin) LOCAL hDc := oWin:GetDc() LOCAL hDC1 := CreateCDC(hDc) LOCAL hBmp * FillRect( hDc, {20,20,60,60}, hBrs ) // Para modificar el fondo antes de, supuestamente, reponerlo con StretchBmp. hBmp := CreateCoBi(hDc,100,100) SelectObject(hDC1,hBmp) ...
... ) come vedi ho messo un controllo cioè se ci clicco sopra si attiva la funzione drawsections che non è altro che dei fillrect che disegnano una cornice gialla Il problema è questo : se io ho due linee io clicco su una e mi disegna la cornice se ci clicco sull'altra ...
... simbolini Poi con questa funzione dovrei costruire il perimetro che ti ho detto pocanzi ma davvero non capisco a quali coordinate si riferisce il fillrect ... mi dai una dritta per favore? function DrawSections( hDC ) local oBrWhite, oBrCyan DEFINE BRUSH oBrWhite COLOR CLR_WHITE DEFINE ...
Hola a todos, me está ocurriendo algo rarisimo: En un documento que genero con la clase TPrinter, que contiene lines, fillrect, says, etc., me ocurre que al hacer el Preview se ve perfecto, sin embargo, la impresión sale mal, es como si las coordenadas de las lines, box, fillrect ...
... me genera un error de ejecúción: Error de argumento % en TCONTROL:PAINT(0) Mirando el código he visto que se produce aquí: if ! ::lTransparent FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 ) FillRect( ::hDC, GetClientRect( ...
Dear James, I have a class it is similar to gant class but it now not run ok because there is a wrong method the name of this method is FillRect this func must create a rectangule and must refill this rectangule of the color I selected example : ..... Define Brush oPenR ...
Ahi Va FIVEWIN provocó un error de protección general en el módulo QUIQUE.DXE de 000f:00001d34. Registros: EAX=59dfae12 CS=1a97 EIP=00001d34 EFLGS=00000202 EBX=00010004 SS=59bf ESP=0000935e EBP=00009376 ECX=00000001 DS=59bf ESI=0000ae1e FS=0000 EDX=0000578f ES=578f EDI=00002400 GS=0000 Bytes en CS:E...
Hola Tengo una aplicacion con Fw 2.3, Clipper 5.3 y bLinker 5.0 Esta aplicacion esta compuesta por 6 modulos, al intentar abrir los modulos 1, 2, 3, 4, 5, en el 6 me genera el GPF. Esta en entorno MDI, las bases no poseen campos memos, busque el GPF, poniendo MgInfo, pero depiendo el orden en que se...