Search found 3981 matches

by ukoenig
Mon Feb 15, 2021 9:58 am
Forum: FiveWin for Harbour/xHarbour
Topic: Evaluate whether a color value is dark or light
Replies: 9
Views: 2623

Re: Evaluate whether a color value is dark or light

Just curiosity, which version of FWH has this function?
I found the function in :
tarrdata.prg ( doesn't exist in FWH 18.01 )
C:\FWH\source\classes\tarrdata.prg"(2447,17):static function ContrastClr( nClr )

regards
Uwe :D
by ukoenig
Mon Feb 15, 2021 9:13 am
Forum: FiveWin for Harbour/xHarbour
Topic: Evaluate whether a color value is dark or light
Replies: 9
Views: 2623

Re: Evaluate whether a color value is dark or light

The result ( switchung from white to black ) is nearly the same some colors with only a difference of 1 colorstep From calculation nRGBColor := 0 nRed := nRGBRed( nValRGB0 ) nGreen := nRGBGreen( nValRGB0 ) nBlue := nRGBBlue( nValRGB0 ) IF 0.3*nRed + 0.6*nGreen + 0.1*nBlue < 128 nRGBColor := 16777215...
by ukoenig
Sun Feb 14, 2021 2:03 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Evaluate whether a color value is dark or light
Replies: 9
Views: 2623

Re: Evaluate whether a color value is dark or light

Thank You I did a better testing ( all cells ) and it seems to work now. There will be more different colortables inside a folder ( the new solution I'm working on ). It is possible to create a own color-combination that can be saved to a DBF You can activate < copy mode > that means selecting a col...
by ukoenig
Thu Feb 11, 2021 3:06 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Evaluate whether a color value is dark or light
Replies: 9
Views: 2623

Re: Evaluate whether a color value is dark or light

Thank You, it is a good idea but I noticed a problem with some colors I changed the image to show the problem of the borderswitch. Like You can see, with green the startposition of the black border is much to late. Another idea is using maybe a array with defines .T. for black and .F. for white bord...
by ukoenig
Thu Feb 11, 2021 9:18 am
Forum: FiveWin for Harbour/xHarbour
Topic: Evaluate whether a color value is dark or light
Replies: 9
Views: 2623

Evaluate whether a color value is dark or light

Hello, is it possible to get the dark- or light-info from a selected xbrowse-cell :?: after cell-selection I can draw a border around the selected cell for the moment I define a xbrowse-area where the cellborder has to be black or white but maybe it is possible to calculate the needed color for each...
by ukoenig
Sun Feb 07, 2021 6:49 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Color palette
Replies: 7
Views: 1509

Re: Color palette

I*m building the needed array for this selection :!: I didn't know this function, but I would only use it if there was no option since it is out of the standard of my screens. http://www.service-fivewin.de/IMAGES/colors1.jpg a defined column-array looks like Row     Column 1 ( red ) 1       nRGB( 51...
by ukoenig
Tue Jan 26, 2021 10:47 am
Forum: FiveWin for Harbour/xHarbour
Topic: Return-value of the selected Windows-scalefactor ?
Replies: 2
Views: 1407

Re: Return-value of the selected Windows-scalefactor ?

Dear Antonio,

thank You very much
Your solution works perfect and is tested with the colorpicker :D
the scalefactor is autodetected now

Image

best regards
Uwe :D
by ukoenig
Tue Jan 26, 2021 9:16 am
Forum: FiveWin for Harbour/xHarbour
Topic: Return-value of the selected Windows-scalefactor ?
Replies: 2
Views: 1407

Return-value of the selected Windows-scalefactor ?

Hello, it is possible to define a scalefactor inside the windowdesktop defines. Does a function exists that returns the selected value :?: Possible values are 100 ( normal ), 125 and 150 % The problem GETCURSORPOS() works only with selecting 100 % scalefactor other selections must be adjusted with a...
by ukoenig
Mon Jan 25, 2021 1:37 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Use PNG image (Solved)
Replies: 8
Views: 3001

Re: Use PNG image

Christiano,
can You please explain what You mean with
how to do this in the rest of the code?
maybe showing a dialog-image ( or other control-image ) from resource :?:

regards
Uwe :?:
by ukoenig
Mon Jan 25, 2021 12:44 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Color palette
Replies: 7
Views: 1509

Re: Color palette

Christiano, I think You want to select a color from a defined colorselection :?: Just define a array with the colorvalues. You can create Your own color palette (colorpicker) with xBrowse like : This sample shows a array with the basiccolors. http://www.service-fivewin.de/IMAGES/colorpick7.jpg FUNCT...
by ukoenig
Fri Jan 15, 2021 2:46 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Painting alpha blended bmp on windows
Replies: 2
Views: 1022

Re: Painting alpha blended bmp on windows

There is a function ABPaint( hDC := GetWindowDC( hWnd ), nLeft, nTop, oBmp:hBitmap ) sample testab.prg DEFINE BITMAP oBmp FILENAME "..\bitmaps\AlphaBmp\Trash.bmp" ... ... ACTIVATE WINDOW oWnd ; ON PAINT ABPaint( hDC, 10, 10, oBmp:hBitmap, 220 ) // 0-255 transparency level or You can use a ...
by ukoenig
Thu Dec 24, 2020 1:43 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Excel window to the foreground
Replies: 5
Views: 932

Re: Excel window to the foreground

I use : export xBrowse to excel and open the result on buttonaction : @ 5, 720 BTNBMP oBBtn[17] OF oBar ; SIZE 110, 32 PIXEL ; BORDER ; PROMPT " &Excel " ; FILENAME c_Pfad1 + "Excel.Bmp" ; ACTION ( oBrw:ToExcel(), ;              SetFocusAfter(FindWindow( "XLMAIN", 0...
by ukoenig
Thu Dec 24, 2020 11:50 am
Forum: FiveWin for Harbour/xHarbour
Topic: MERRY CHRISTMAS
Replies: 6
Views: 6004

Re: MERRY CHRISTMAS

Merry christmas and a happy new year :D

what a pity! there is no sound from gif :cry:

Image

open and play with sound from mp4 :D

http://www.service-fivewin.de/DOWNLOADS/Santa.mp4

regards
Uwe :D
by ukoenig
Thu Dec 24, 2020 9:39 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to change color of line in Header and Footer? *Work Now*
Replies: 10
Views: 2917

Re: How to change color of line in Header and Footer?

The result using this function.
Maybe the bottomline is still missing :?:

:hBtnShadowPen := CreatePen( PS_SOLID, 4, 255) // pensize = 4 and red lines

Image

best regards
Uwe :D
by ukoenig
Wed Dec 23, 2020 5:39 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to change color of line in Header and Footer? *Work Now*
Replies: 10
Views: 2917

Re: How to change color of line in Header and Footer?

Dear Dutch, before spending to much time, can You try adding this line :?: It seems the gray header / footer-lines will be black WITH OBJECT oBrw .. .. :hBtnShadowPen := CreatePen( PS_SOLID, 1, CLR_BLACK ) .. .. :CreateFromCode() END http://www.service-fivewin.de/IMAGES/Lines5.jpg best regards Uwe :D