FiveTech Software tech support forums

Download from :

viewtopic.php?f=3&t=28841



Best regards
Uwe

Very cool. How would you accomplish the same if using resources? Same logic, except that you replace @ r, c syntax with REDEFINE syntax. For samples of rc files for TGraph, please see testfldg.rc and testdisk1.rc in the samples folder. For better understanding of the class there are some good sampl...

Harvey, there is still a lot to do. Because of over 40 possible settings, I'm working on a painter, to change and test everything at runtime. There is a project-file, to save all values. http://www.pflegeplus.com/IMAGES/Graph20.jpg http://www.pflegeplus.com/IMAGES/Graph21...

Very cool. How would you accomplish the same if using resources?

Uwe,

RE: New methods of TGraph

I was mainly referring to adding methods to clear existing data, so new data could be added.

James

Dear Uwe,

You are our Graphics master, no doubt about it

Thanks so much!

9 possible combinations between dialog- and graph : // Dialog ( values for function-call ) // -------------------------------------- nDStyle := 2 // 1 = color / 2 = Gradient / 3 = Brush / 4 = Image nDColorF := 16765559 nDColorB := LightColor( 175, nDColorF ) nDTxtColor := 255 nDGradpos := 0 LDDirec...

I found a gradient-solution ( maybe to complicated ),
better possible, to make the graph-area transparent using the dialog-background.



best regards
Uwe

Mr. Rao, I'm working on a extended version of Your sample It will be possible, to change with the graph-painter the values, with the dialog-painter the dialog-background. Because of more than 30 possible graph-values , it might be useful. Yes not needed ( ! didn't change it ) AnsiToOem( Lfn2Sfn( ::c...

Mr Uwe Thanks for all your suggestions. They are useful for improvement of the class. May I ask for a few clarifications? Please see your suggested code: IF ::nDegrade = 1nMid:=(nRight-nLeft)/2Gradient( ::hDC, { nTop, nLeft, nBottom, nRight-nMid }, nColor, LightColor(175,nC...

James,

all these paintings are included in method :

METHOD _FillRect( nTop, nLeft, nBottom, nRight, nColor ) CLASS TGraph

Best regards
Uwe

I suggest the sample code for redrawing as methods of the TGraph class.

Regards,
James

Added Bar-BMP-brushes http://www.pflegeplus.com/IMAGES/Graph9.jpg IF ::nDegrade = 31 .or. ::nDegrade = 32 .or. ::nDegrade = 33 oBrush := TBrush():New( { "BORLAND", "TILED", "BRICKS" }[ ::nDegrade - 30 ] ) hBru := CreatePatternBrush( oBrush:hBitmap ) Fill...

I will create a painter , like I have done for others solution to test different settings / selections. Because changing lDegrade to numeric, it is possible, to add more bar-paintings : 0 = NON ( Color ) 1 = Gradient horizontal 2 = Gradient vertical 31, 32, 33 = predefined styles ( BORLAND,TILED and...

What a great masters we have here