Search found 19 matches: obrush2

Return to advanced search

Re: How to change SAY background color on transparent DIALOG

... A little test #include "Fivewin.ch" FUNCTION MAIN() local oWnd, oDlg, oSay1, oSay2, oFont, oBrush1, oBrush2 DEFINE FONT oFont NAME "Arial" SIZE 0,-18 BOLD DEFINE BRUSH oBrush1 FILE "MARBLE.bmp" DEFINE BRUSH oBrush2 FILE "MARBLE6.bmp" ...
by ukoenig
Sun Apr 04, 2021 11:19 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: How to change SAY background color on transparent DIALOG
Replies: 2
Views: 537

Re: Any tests drawing text with GDIPLUS ?

... oWnd:getdc(), aImage LOCAL oPen := Pen():New( 255, 0, 0, 255 , 10, .T.) LOCAL oBrush1 := Brush():NewSolidBrush( 255, 255, 128, 0 ) // Orange LOCAL oBrush2 := Brush():NewGradientBrush( 300, 200, 200, 200, 1,; 255, 255, 128, 0,; 255, 255, 255, 255 ) LOCAL oPath := Path():new() LOCAL oGraphics := ...
by ukoenig
Thu Sep 26, 2019 10:48 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Any tests drawing text with GDIPLUS ?
Replies: 7
Views: 1538

Re: Ayuda Brush Ventana y Parpadeo

Joaquin,

Prueba a usar el pintado a doble buffer:

local aInfo := ::oWnd:DispBegin()

::oWnd:SetBrush( oBrush2 )

::oWnd:DispEnd( aInfo )
by Antonio Linares
Wed Jan 14, 2015 5:38 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda Brush Ventana y Parpadeo
Replies: 5
Views: 1011

Re: Ayuda Brush Ventana y Parpadeo

... .T. ) ) ::oBmpFondo:End() ::oWnd:setBrush( oBrush ) oBrush:end() Luego para cambiar, otra brush definida antes: ::oWnd:setBrush( oBrush2 ) Al cambiar a éste segundo, se nota el parpadeo.
by jmartial
Wed Jan 14, 2015 5:22 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda Brush Ventana y Parpadeo
Replies: 5
Views: 1011

Re: Any infos about function < C5RoundRect > ?

... YOU VERY MUCH ! it works fine that way. Now I understand the logic. it can be a brush-combination : DEFINE BRUSH oBrush1 STYLE NULL DEFINE BRUSH oBrush2 COLOR 255 with some calculations, it will be possible, to get some nice effects. I will add four possible forms : 1. round filled ( mouseclick ...
by ukoenig
Mon Apr 14, 2014 5:50 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Any infos about function < C5RoundRect > ? ( solved )
Replies: 3
Views: 865

Re: Brush issue

Tim, I don't know, why the brush gets lost. Another solution could be to define the brush LOCAL : FUNCTION Main() LOCAL oBrush2 c_path := GETCURDIR() DEFINE BRUSH oBrush2 FILENAME c_path + "\Images\Stone.bmp" DEFINE WINDOW oWnd TITLE "Testing Brush ... ... DEFINE BUTTON ...
by ukoenig
Wed Jul 11, 2012 9:06 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Brush issue
Replies: 15
Views: 4090

Re: Brush issue

Tim, maybe test it like : DEFINE BRUSH oBrush1 COLOR 14853684 DEFINE BRUSH oBrush2 FILENAME c_path + "\Images\Stone.bmp" // You can test, if the Brush still exists. // with < oBrush2:End() > You will get a Errormessage from the Dialog !!! DEFINE ...
by ukoenig
Tue Jul 10, 2012 11:37 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Brush issue
Replies: 15
Views: 4090

Re: Como cerrar recursos no usados

ACTIVATE DIALOG oDlg...

oFonte:End()
oBrush2:End()

RELEASE ALL

RETURN NIL
by karinha
Fri Apr 13, 2012 12:03 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Como cerrar recursos no usados
Replies: 12
Views: 3851

Tengo un problemita con xbrowse RESUELTO

... :?: a si esta mi codiguito :oops: DEFINE BRUSH oBrush RESOURCE "BLANCOS" DEFINE BRUSH oBrush1 FILENAME "sea2.bmp" DEFINE BRUSH oBrush2 RESOURCE "ECHO1" DEFINE BRUSH oBrush3 RESOURCE "GRAD" dbselectarea( "autos" ) dbgotop() autospoliza:=lastrec() ...
by AIDA
Fri Feb 26, 2010 7:12 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Tengo un problemita con xbrowse RESUELTO
Replies: 2
Views: 952

Re: New! Kinetic Scrolling support in FWH 9.08 !!! :-)

... "ribbon.ch" #include "COLORS.ch" Function main() local oWnd local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5 local oBrush1, oBrush2, oBrush3, oBrush4 LOCAL oFont1, oFont2, oFont3 local oBtn DEFINE WINDOW oWnd TITLE "TTitle Class Test" @ 015,150 TITLE oTitle1 size ...
by Marco Turco
Mon Aug 24, 2009 2:11 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: New! Kinetic Scrolling support in FWH 9.08 !!! :-)
Replies: 13
Views: 3018

Re: New! Kinetic Scrolling support in FWH 9.08 !!! :-)

... "ttitle.ch" #include "ribbon.ch" Function main() local oWnd local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5 local oBrush1, oBrush2, oBrush3, oBrush4 LOCAL oFont1, oFont2, oFont3 local oBtn DEFINE WINDOW oWnd TITLE "TTitle Class Test" @ 015,150 TITLE oTitle1 size ...
by Marco Turco
Mon Aug 24, 2009 7:32 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: New! Kinetic Scrolling support in FWH 9.08 !!! :-)
Replies: 13
Views: 3018

tTitle class: some bugs

... "ttitle.ch" #include "ribbon.ch" Function main() local oWnd local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5 local oBrush1, oBrush2, oBrush3, oBrush4 LOCAL oFont1, oFont2, oFont3 local oBtn DEFINE WINDOW oWnd TITLE "TTitle Class Test" @ 015,150 TITLE oTitle1 size ...
by Marco Turco
Wed Aug 12, 2009 9:01 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: tTitle class: some bugs
Replies: 1
Views: 432

Re: TO GURUS : TRANSPARENT ERROR WITH XBROWSE

... #include "xbrowse.ch" function main() local oWnd1 local aBrw := array( 4 ) local aArray1 := {} local nI local oBrush local oBrush2 define brush oBrush color GetSysColor( 13 ) define brush oBrush2 color GetSysColor( 5 ) for nI = 1 to 20 aadd( aArray1, { .f.,SPACE(20),; "Row:"+StrZero(nI,2)+" ...
by Daniel Garcia-Gil
Mon Jan 26, 2009 6:14 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: TO GURUS : TRANSPARENT ERROR WITH XBROWSE
Replies: 32
Views: 5671

... IF ResH=800 .AND. ResV=600 SET BRUSH OF oWnd TO oBrush1 ELSE IF ResH=1024 .AND. ResV=768 SET BRUSH OF oWnd TO oBrush2 ENDIF ENDIF oBrush1 y oBrush2 son dos imágenes distintas con los tamaños ya preestablecidos. En el IF Solo está para dos resoluciones pero puedes ...
by jrestojeda
Mon Nov 24, 2008 5:48 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Poner imagen en MDI
Replies: 5
Views: 1039

... can be assigned to oBrush so that different rows can be painted with different brushes. Example oBrush := { || If( ordkeyno() % 2 == 0, oBrush1, oBrush2 }. But due to a small bug this is now giving an error. Mr Antonio. This small correction given below will rectify the error and codeblocks will ...
by nageswaragunupudi
Sat Apr 19, 2008 1:29 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: A Switch for the new oLbx:aCols[2]:oBrush := oBrush ?
Replies: 2
Views: 484
Next

Return to advanced search