Graphics/Palettes

Hi, I have a very specifik question.

I use Delphi2.0 and Win95.
I have a PageControl with some TabSheets on. On one of the TabSheets I have some free space. I would like to draw some lines in this free space in different colors. Afterwards I would like to be able to change the RGB-values of the colors used, resulting in the lines changing color.

My question is:
How do I easist draw the lines on the TabSheet in colors that I specify the RGB-values of (not an approximation) and how do I make myself able to afterwards change the RGB-values of these colors in order to make the lines change color????

Thanx - Steff

P.S: This question might belong in the MS-WINDOWS section, since the solution surely involves calls to misc Windows API functions/procedures.
steffAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

W. YangCommented:
It will be easier if you create a TLine object.liketypeTline = class(TObject)X1, X2, Y1, Y2 : Integer;Color: TColor;end;and you declare a array of Tline objects.var Lines: array[1..10] of TLinethen when you need to change the color or paint on the tabsheet just do a painting loop.for i := 1 to 10 dowith Lines[i] dobegin
Canvas.Line(X1, Y1, X2, Y2);Canvas.Pen.Color := Color;end;
Best Regards
0
steffAuthor Commented:
First of all - there are no answer of how to make colors available for my drawing on the TTabSheet. I should be able to set the RGB-value colors available to me.
Second - there are no answer of how to draw on the TTabSheet - as far as I know TTabSheet has no TCanvas directly connected. Correct me if I am wrong.
Last - and most important. I would have alot of lines and the colors should change in a running kind of way (not only once and the wait some time before doing it again). I am sure that I will have to go to palette-level.

Steff
0
mheacockCommented:
There is no accessible palette on the TTabSheet.

You'll find it easiest to fill in your empty space with a
TImage componentand draw your lines on it.

To animate the colours, you'll have to use a technique called
palette animation...what you do is locate the palette entry
that corresponds to one of your coloured lines and change that
value...your line will then change automatically.  This will
only work in paletted colour modes (i.e. 256 colours), it
will not work in 16/24/32 bit colour modes.

I have a Delphi palette animation example around here.  It is
something I found on the net last year...you could probably
find the same.  If you want me to send it to you, just post
your e-mail address here.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
steffAuthor Commented:
I would like you to send me the palette animation example. send it to the addx:  

u960617@daimi.aau.dk

Thanx - Steff
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.