New Rating Class
- Silvio.Falconi
- Posts: 7136
- Joined: Thu Oct 18, 2012 7:17 pm
- Been thanked: 1 time
Re: New Rating Class
with this modification you see the half value but then it not show when I wish a full star value
Function OnHoverRate(select,count)
Local j
Reset(count)
FOR j:=1 TO select
img_name := "Image_"+hb_ntos(j)
&img_name:LoadBmp(Full_Img)
NEXT
SetHalf(count, select, aClicked )
nValue:= select-1
nValuePressed:= val(aRate[select])-5
cRate := str(nValuePressed,2)+"%"
oSay1:Refresh()
Return Nil
Function OnHoverRate(select,count)
Local j
Reset(count)
FOR j:=1 TO select
img_name := "Image_"+hb_ntos(j)
&img_name:LoadBmp(Full_Img)
NEXT
SetHalf(count, select, aClicked )
nValue:= select-1
nValuePressed:= val(aRate[select])-5
cRate := str(nValuePressed,2)+"%"
oSay1:Refresh()
Return Nil
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Re: New Rating Class
Silvio,
I'm working on a modified version that works with splitted images ( 10 => 5 pairs of LEFT and RIGHT ).
The reason : a action is needed to paint a HALF star.
Clicking on the star-LEFT side, paints a HALF star.
Cicking on the star-RIGHT side, paints a LEFT and RIGHT star ( shows FULL )
The alphablended images ( 128 x 128 ) :
![Image](http://www.pflegeplus.com/IMAGES/Empty_L.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Empty_R.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Full_L.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Full_R.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Rating5.jpg)
clicked on the RIGHT part of the empty 5. star
![Image](http://www.pflegeplus.com/IMAGES/Rating6.jpg)
clicked on the LEFT part of the empty 4. star ( paints LEFT full )
![Image](http://www.pflegeplus.com/IMAGES/Rating7.jpg)
best regards
Uwe![Laughing :lol:](./images/smilies/icon_lol.gif)
I'm working on a modified version that works with splitted images ( 10 => 5 pairs of LEFT and RIGHT ).
The reason : a action is needed to paint a HALF star.
Clicking on the star-LEFT side, paints a HALF star.
Cicking on the star-RIGHT side, paints a LEFT and RIGHT star ( shows FULL )
The alphablended images ( 128 x 128 ) :
![Image](http://www.pflegeplus.com/IMAGES/Empty_L.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Empty_R.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Full_L.bmp)
![Image](http://www.pflegeplus.com/IMAGES/Full_R.bmp)
Code: Select all | Expand
count := 10 // !!!
I := 1
FOR I := 1 TO count // 10
IF nPos = 1 // paints LEFT
@ nRow, nCol IMAGE Image[I] SIZE 6, 12 OF oDlg ;
FILENAME Empty_L PIXEL NOBORDER ADJUST CURSOR oCursorBtn ;
ON CLICK ( pressed := I, ONSELECTRATE( pressed, count, oSay1))
image[I]:LoadBmp( Empty_L )
nPos := 2
ELSE // paints RIGHT
@ nRow, nCol IMAGE Image[I] SIZE 6, 12 OF oDlg ;
FILENAME Empty_R PIXEL NOBORDER ADJUST CURSOR oCursorBtn ;
ON CLICK ( pressed := I, ONSELECTRATE( pressed, count, oSay1))
image[I]:LoadBmp( Empty_R )
nPos := 1
ENDIF
Image[I]:lTransparent := .T.
nCol += 6 // one image = half star-size
Image[I]:bMMoved:= { || ( pressed := I, ONHOVERRATE( pressed, count)) }
Image[I]:bMLeave :={ || ( pressed := I, ONLEAVERATE( pressed, count, oSay1)) }
NEXT
![Image](http://www.pflegeplus.com/IMAGES/Rating5.jpg)
clicked on the RIGHT part of the empty 5. star
![Image](http://www.pflegeplus.com/IMAGES/Rating6.jpg)
clicked on the LEFT part of the empty 4. star ( paints LEFT full )
![Image](http://www.pflegeplus.com/IMAGES/Rating7.jpg)
best regards
Uwe
![Laughing :lol:](./images/smilies/icon_lol.gif)
Last edited by ukoenig on Sat Jan 03, 2015 3:30 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: New Rating Class
Silvio,
I finished testing this solution showing HALF stars and added a style-test
Is it a option, working with splitted images ?
Changing the style, the selected value is saved to a INI and restarts with the new selected style.
The same works on EXIT.
Download ( all style-images are included ) :
http://www.pflegeplus.com/DOWNLOAD/Rating1.zip
![Image](http://www.pflegeplus.com/IMAGES/Rating8.jpg)
I would like, to include this part in the FOR / NEXT.
Is it possible ?
[color=#0000FF]oImage[1]:bMMoved := { || ONHOVERRATE( 1, nCount ) }
oImage[1]:bMLeave :={ || ONLEAVERATE( 1, nCount, oSay1 ) }
oImage[2]:bMMoved := { || ONHOVERRATE( 2, nCount ) }
oImage[2]:bMLeave :={ || ONLEAVERATE( 2, nCount, oSay1 ) }
...
...
best regards
Uwe![Question :?:](./images/smilies/icon_question.gif)
I finished testing this solution showing HALF stars and added a style-test
Is it a option, working with splitted images ?
Changing the style, the selected value is saved to a INI and restarts with the new selected style.
The same works on EXIT.
Download ( all style-images are included ) :
http://www.pflegeplus.com/DOWNLOAD/Rating1.zip
![Image](http://www.pflegeplus.com/IMAGES/Rating8.jpg)
I would like, to include this part in the FOR / NEXT.
Is it possible ?
[color=#0000FF]oImage[1]:bMMoved := { || ONHOVERRATE( 1, nCount ) }
oImage[1]:bMLeave :={ || ONLEAVERATE( 1, nCount, oSay1 ) }
oImage[2]:bMMoved := { || ONHOVERRATE( 2, nCount ) }
oImage[2]:bMLeave :={ || ONLEAVERATE( 2, nCount, oSay1 ) }
...
...
Code: Select all | Expand
I := 1
FOR I := 1 TO nCount
IF nPos = 1
@ nRow, nCol IMAGE oImage[I] SIZE 6, 12 OF oDlg ;
FILENAME Empty_L PIXEL NOBORDER ADJUST CURSOR oCursorBtn ;
oImage[I]:LoadBmp( Empty_L )
nPos := 2
ELSE
@ nRow, nCol IMAGE oImage[I] SIZE 6, 12 OF oDlg ;
FILENAME Empty_R PIXEL NOBORDER ADJUST CURSOR oCursorBtn ;
oImage[I]:LoadBmp( Empty_R )
nPos := 1
ENDIF
oImage[I]:lTransparent := .T.
nCol += 6
// NOT WORKING !!!
// oImage[I]:bMMoved := { || ONHOVERRATE( I, nCount ) }
// oImage[I]:bMLeave :={ || ONLEAVERATE( I, nCount, oSay1 ) }
NEXT
oImage[1]:bMMoved := { || ONHOVERRATE( 1, nCount ) }
oImage[1]:bMLeave :={ || ONLEAVERATE( 1, nCount, oSay1 ) }
oImage[2]:bMMoved := { || ONHOVERRATE( 2, nCount ) }
oImage[2]:bMLeave :={ || ONLEAVERATE( 2, nCount, oSay1 ) }
...
...
best regards
Uwe
![Question :?:](./images/smilies/icon_question.gif)
Last edited by ukoenig on Sat Jan 03, 2015 3:31 pm, edited 3 times in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
- Silvio.Falconi
- Posts: 7136
- Joined: Thu Oct 18, 2012 7:17 pm
- Been thanked: 1 time
Re: New Rating Class
Good...Uwe
Perhaps this seem the good solution
5 stars with each 4 bitmap ?
I think only the final user can Know wich type of Bitmap he want
can you create a source with one type to understand how make a class control
the bitmaps are only 4 ?
Antonio,
How we can converte it into a class control ?
Perhaps this seem the good solution
5 stars with each 4 bitmap ?
I think only the final user can Know wich type of Bitmap he want
can you create a source with one type to understand how make a class control
the bitmaps are only 4 ?
Antonio,
How we can converte it into a class control ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Re: New Rating Class
Silvio,
these bitmaps are used :
( cStyle defines the used star-type and is saved to the INI )
Left / Right for EMPTY and Left / Right for FULL
Empty_L := c_path1 + "Empty" + cStyle + "_L.bmp"
Empty_R := c_path1 + "Empty" + cStyle + "_R.bmp"
Full_L := c_path1 + "Full" + cStyle + "_L.bmp"
Full_R := c_path1 + "Full" + cStyle + "_R.bmp"
Just test it with the Download-files, EXE is included
I changed the image-display ( 6 ) for the radio :
best regards
Uwe![Laughing :lol:](./images/smilies/icon_lol.gif)
these bitmaps are used :
( cStyle defines the used star-type and is saved to the INI )
Left / Right for EMPTY and Left / Right for FULL
Empty_L := c_path1 + "Empty" + cStyle + "_L.bmp"
Empty_R := c_path1 + "Empty" + cStyle + "_R.bmp"
Full_L := c_path1 + "Full" + cStyle + "_L.bmp"
Full_R := c_path1 + "Full" + cStyle + "_R.bmp"
Just test it with the Download-files, EXE is included
I changed the image-display ( 6 ) for the radio :
Code: Select all | Expand
I := 1
nTop := 5
nStar := 1
FOR I := 1 TO 6
cStar := LTRIM(STR(nStar))
@ nTop, 160 IMAGE oStar[I] SIZE 10, 20 OF oDlg ;
FILENAME c_path1 + "Full" + cStar + "_L.bmp" PIXEL NOBORDER ADJUST
oStar[I]:LoadBmp( c_path1 + "Full" + cStar + "_L.bmp" )
oStar[I]:lTransparent := .T.
nTop += 20
cStar := LTRIM(STR(nStar))
nStar++
NEXT
best regards
Uwe
![Laughing :lol:](./images/smilies/icon_lol.gif)
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: New Rating Class
Silvio,
I added some new functions :
1. full size-display of images from radio
2. new image-styles
3. the 7 images are defined in a FOR / NEXT
4. a click on a selection ( mousemove ) will freeze the result
until You select the button Reset :
lSelected := .F. // imagepainting on mousemove enabled
@ nRow, nCol IMAGE oImage[I] SIZE 6, 12 OF oDlg ;
FILENAME Empty_L PIXEL NOBORDER ADJUST CURSOR oCursorBtn ;
ON CLICK lSelected := .T. // the NEW var will DISABLE paintings on mousemove
added :
STATIC FUNCTION RESET( nCount )
...
...
lSelected := .F. // enables new painting
...
...
RETURN NIL
Download ( all style-images are included ) :
http://www.pflegeplus.com/DOWNLOAD/Rating2.zip
![Image](http://www.pflegeplus.com/IMAGES/Rating9.jpg)
best regards
Uwe![Smile :)](./images/smilies/icon_smile.gif)
I added some new functions :
1. full size-display of images from radio
2. new image-styles
3. the 7 images are defined in a FOR / NEXT
4. a click on a selection ( mousemove ) will freeze the result
until You select the button Reset :
lSelected := .F. // imagepainting on mousemove enabled
@ nRow, nCol IMAGE oImage[I] SIZE 6, 12 OF oDlg ;
FILENAME Empty_L PIXEL NOBORDER ADJUST CURSOR oCursorBtn ;
ON CLICK lSelected := .T. // the NEW var will DISABLE paintings on mousemove
added :
STATIC FUNCTION RESET( nCount )
...
...
lSelected := .F. // enables new painting
...
...
RETURN NIL
Download ( all style-images are included ) :
http://www.pflegeplus.com/DOWNLOAD/Rating2.zip
![Image](http://www.pflegeplus.com/IMAGES/Rating9.jpg)
best regards
Uwe
![Smile :)](./images/smilies/icon_smile.gif)
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
- Antonio Linares
- Site Admin
- Posts: 42521
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 31 times
- Been thanked: 76 times
- Contact:
- Silvio.Falconi
- Posts: 7136
- Joined: Thu Oct 18, 2012 7:17 pm
- Been thanked: 1 time
Re: New Rating Class
Antonio,
Can we converte it onto a control ?
Can we converte it onto a control ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Re: New Rating Class
A EXTENDED release with background-selection ( testing transparent ) :
1. Color
2. Gradient horiz.
3. Gradient vert
4. Image-brush
5. Selected textcolor
Download ( some new images are included ) :
http://www.pflegeplus.com/DOWNLOAD/Rating3.zip
![Image](http://www.pflegeplus.com/IMAGES/Rating3a.jpg)
![Image](http://www.pflegeplus.com/IMAGES/Rating3b.jpg)
![Image](http://www.pflegeplus.com/IMAGES/Rating3c.jpg)
best regards
Uwe![Laughing :lol:](./images/smilies/icon_lol.gif)
1. Color
2. Gradient horiz.
3. Gradient vert
4. Image-brush
5. Selected textcolor
Download ( some new images are included ) :
http://www.pflegeplus.com/DOWNLOAD/Rating3.zip
![Image](http://www.pflegeplus.com/IMAGES/Rating3a.jpg)
![Image](http://www.pflegeplus.com/IMAGES/Rating3b.jpg)
![Image](http://www.pflegeplus.com/IMAGES/Rating3c.jpg)
best regards
Uwe
![Laughing :lol:](./images/smilies/icon_lol.gif)
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: New Rating Class
Silvio, try one of theses solutions for half stars:
If it runs, first paint an half star without pen, then, in the same position, an empty star with pen.
Perhaps you must use FOR nCount = nStart+1 TO nLados STEP nStep or FOR nCount = nStart-1 TO nLados STEP nStep, i don't know. I don't have tested it.
I hope that runs.
Excuse my English.
Code: Select all | Expand
FUNCTION PolyForms(nX,nY,nWidth,nHeight,nLados,nGiro,nPorC, lHalf) // MODIFIED
LOCAL aVert
LOCAL nRadV := nHeight/2
LOCAL nRadH := nWidth/2
LOCAL nAngl := (2*PI)/nLados
LOCAL nAngu,nOAng
LOCAL nCount,nStep
LOCAL nSides := IF(lHalf,Int(nLados/2),nLados) // NEW
DEFAULT nGiro := 0 , ;
nPorC := 100
*
nPorc := Max(0,Min(100,nPorC))
nAngu := (nGiro*PI)/180
IF nPorC = 100
aVert := Array(nLados+1,2)
nStep := 1
ELSE
aVert := Array((nLados*2)+1,2)
nStep := 2
nOAng := nAngl/2
nLados:= nLados*2
nPorC := 9.9+(nPorC*0.9)
ENDIF
*
FOR nCount = 1 TO nSides STEP nStep // MODIFIED
aVert[nCount] := { nY+nRadH+(nRadH*Cos(nAngu)), nX+nRadV+(nRadV*Sin(nAngu)) }
IF nPorC < 100
aVert[nCount+1] := { nY+nRadH+(nRadH*(nPorC/100)*Cos(nAngu+nOAng)), ;
nX+nRadV+(nRadV*(nPorC/100)*Sin(nAngu+nOAng)) }
ENDIF
nAngu += nAngl
NEXT
aVert[nLados+1] := aVert[1]
RETURN aVert
OR
FUNCTION PolyForms(nX,nY,nWidth,nHeight,nLados,nGiro,nPorC, lHalf) // MODIFIED
LOCAL aVert
LOCAL nRadV := nHeight/2
LOCAL nRadH := nWidth/2
LOCAL nAngl := (2*PI)/nLados
LOCAL nAngu,nOAng
LOCAL nCount,nStep
LOCAL nSatrt := IF(lHalf,Int(nLados/2),1) // NEW
DEFAULT nGiro := 0 , ;
nPorC := 100
*
nPorc := Max(0,Min(100,nPorC))
nAngu := (nGiro*PI)/180
IF nPorC = 100
aVert := Array(nLados+1,2)
nStep := 1
ELSE
aVert := Array((nLados*2)+1,2)
nStep := 2
nOAng := nAngl/2
nLados:= nLados*2
nPorC := 9.9+(nPorC*0.9)
ENDIF
*
FOR nCount = nStart TO nLados STEP nStep // MODIFIED
aVert[nCount] := { nY+nRadH+(nRadH*Cos(nAngu)), nX+nRadV+(nRadV*Sin(nAngu)) }
IF nPorC < 100
aVert[nCount+1] := { nY+nRadH+(nRadH*(nPorC/100)*Cos(nAngu+nOAng)), ;
nX+nRadV+(nRadV*(nPorC/100)*Sin(nAngu+nOAng)) }
ENDIF
nAngu += nAngl
NEXT
aVert[nLados+1] := aVert[1]
RETURN aVert
If it runs, first paint an half star without pen, then, in the same position, an empty star with pen.
Perhaps you must use FOR nCount = nStart+1 TO nLados STEP nStep or FOR nCount = nStart-1 TO nLados STEP nStep, i don't know. I don't have tested it.
I hope that runs.
Excuse my English.
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
FWH 2007 - xHarbour - BCC55
- Silvio.Falconi
- Posts: 7136
- Joined: Thu Oct 18, 2012 7:17 pm
- Been thanked: 1 time
Re: New Rating Class
Antolin,
on first beta class I thinked to use your function
Then I thinked yto use Bmps because the user can insert all bitmaps he wants
If you wish help me go at viewtopic.php?f=3&t=29903
I hope you help me
Regards
on first beta class I thinked to use your function
Then I thinked yto use Bmps because the user can insert all bitmaps he wants
If you wish help me go at viewtopic.php?f=3&t=29903
I hope you help me
Regards
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Re: New Rating Class
Ups. I forgot a lot of changes. These have to run better (sorry):
Best regards.
Code: Select all | Expand
FUNCTION PolyForms(nX,nY,nWidth,nHeight,nLados,nGiro,nPorC, lHalf) // MODIFIED
LOCAL aVert
LOCAL nRadV := nHeight/2
LOCAL nRadH := nWidth/2
LOCAL nAngl := (2*PI)/nLados
LOCAL nAngu,nOAng
LOCAL nCount,nStep
LOCAL nSides := IF(lHalf,Int(nLados/2),nLados) // NEW
DEFAULT nGiro := 0 , ;
nPorC := 100
*
nPorc := Max(0,Min(100,nPorC))
nAngu := (nGiro*PI)/180
IF nPorC = 100
aVert := Array(nSides+1,2) // MODIFIED
nStep := 1
ELSE
aVert := Array((nSides*2)+1,2) // MODIFIED
nStep := 2
nOAng := nAngl/2
nSide := nSide*2 // MODIFIED
nPorC := 9.9+(nPorC*0.9)
ENDIF
*
FOR nCount = 1 TO nSides STEP nStep // MODIFIED
aVert[nCount] := { nY+nRadH+(nRadH*Cos(nAngu)), nX+nRadV+(nRadV*Sin(nAngu)) }
IF nPorC < 100
aVert[nCount+1] := { nY+nRadH+(nRadH*(nPorC/100)*Cos(nAngu+nOAng)), ;
nX+nRadV+(nRadV*(nPorC/100)*Sin(nAngu+nOAng)) }
ENDIF
nAngu += nAngl
NEXT
ATail(aVert) := aVert[1]
RETURN aVert
OR
FUNCTION PolyForms(nX,nY,nWidth,nHeight,nLados,nGiro,nPorC, lHalf) // MODIFIED
LOCAL aVert
LOCAL nRadV := nHeight/2
LOCAL nRadH := nWidth/2
LOCAL nAngl := (2*PI)/nLados
LOCAL nAngu,nOAng
LOCAL nCount,nStep
LOCAL nSides := IF(lHalf,Int(nLados/2),nLados) // NEW
LOCAL nStart := IF(lHalf,Int(nLados/2)+1,1) // NEW MODIFIED
LOCAL nQ := 1 // NEW
DEFAULT nGiro := 0 , ;
nPorC := 100
*
nPorc := Max(0,Min(100,nPorC))
nAngu := (nGiro*PI)/180
IF nPorC = 100
aVert := Array(nSides+1,2) // MODIFIED
nStep := 1
ELSE
aVert := Array((nSides*2)+1,2) // MODIFIED
nStep := 2
nOAng := nAngl/2
nLados:= nLados*2
nPorC := 9.9+(nPorC*0.9)
ENDIF
*
FOR nCount = nStart TO nLados STEP nStep // MODIFIED
aVert[nQ] := { nY+nRadH+(nRadH*Cos(nAngu)), nX+nRadV+(nRadV*Sin(nAngu)) } // MODIFIED
IF nPorC < 100
aVert[nQ+1] := { nY+nRadH+(nRadH*(nPorC/100)*Cos(nAngu+nOAng)), ; // MODIFIED
nX+nRadV+(nRadV*(nPorC/100)*Sin(nAngu+nOAng)) }
ENDIF
nAngu += nAngl
++nQ // ADDED
NEXT
ATail(aVert) := aVert[1]
RETURN aVert
Best regards.
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
FWH 2007 - xHarbour - BCC55
Re: New Rating Class
Added a config dialog and changed from INI to DBF
Now it is possible to use / scan any cover size.
Define as many books, DVD-covers or any other You like.
( I will add some DVD-covers for the new download )
The displayed image on the main dialog keeps the aspect ratio ( calculated ).
Each book can have his own dialog-background and symbol.
I Moved the symbol-selection to the config dialog and
added fields < percent >, < total > and < ratings > for statistic-calculation.
These values are counted in the main-dialog.
The < Reset-button > will set all values to 0.
I still have to check the calculation for the correct graph-display.
The col < Graph > uses one image size, to display the first star at col-bottom.
I would prefer, to display a image at col-bottom and calculate the image-hight.
For the graph, I'm using only stars, otherwise there will be to many images.
![Image](http://www.pflegeplus.com/IMAGES/Rating11.jpg)
best regards
Uwe![Very Happy :D](./images/smilies/icon_biggrin.gif)
Now it is possible to use / scan any cover size.
Define as many books, DVD-covers or any other You like.
( I will add some DVD-covers for the new download )
The displayed image on the main dialog keeps the aspect ratio ( calculated ).
Each book can have his own dialog-background and symbol.
I Moved the symbol-selection to the config dialog and
added fields < percent >, < total > and < ratings > for statistic-calculation.
These values are counted in the main-dialog.
The < Reset-button > will set all values to 0.
I still have to check the calculation for the correct graph-display.
The col < Graph > uses one image size, to display the first star at col-bottom.
I would prefer, to display a image at col-bottom and calculate the image-hight.
For the graph, I'm using only stars, otherwise there will be to many images.
![Image](http://www.pflegeplus.com/IMAGES/Rating11.jpg)
best regards
Uwe
![Very Happy :D](./images/smilies/icon_biggrin.gif)
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
- Silvio.Falconi
- Posts: 7136
- Joined: Thu Oct 18, 2012 7:17 pm
- Been thanked: 1 time
Re: New Rating Class
Sorry,
I need a control to insert to a my app, I cannot use many and many function...
Perhaps you not uderstood what i need...
I ask your Help to create the class , (viewtopic.php?f=3&t=29903 )
If it is not possible,... I must use only a numeric get !!!
I need a control to insert to a my app, I cannot use many and many function...
Perhaps you not uderstood what i need...
I ask your Help to create the class , (viewtopic.php?f=3&t=29903 )
If it is not possible,... I must use only a numeric get !!!
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com