Darken or Lighten an area of a form...

[Rlrcstr]

Is there a way to darken or lighten an area of a form or control via the
graphics object? I'm using an ownerdraw listbox and I want to have a small
area of the item be a bit lighter than the rest of the object, but I want
the user to be able to set the main color. I've read up on the fact that we
don't have any raster ops in GDI+, but I was hoping there might be an y easy
way to do this. Thanks.

Jerry

[Peter Proost]

Hi maybe this can help you:

put a listbox on a form and copy paste this code:

Private Sub lstPeter_DrawIt em(ByVal sender As System.Object, ByVal e As _
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
'e.Graphics.Fil lRectangle(New
System.Drawing. Drawing2D.Linea rGradientBrush( e.Bounds, _ 'Color.LightGra y,
Color.Gray, Drawing2D.Linea rGradientMode.B ackwardDiagonal ), e.Bounds)
e.Graphics.Fill Rectangle(Brush es.LightGray, e.Bounds.X, e.Bounds.Y,
CInt(e.Bounds.W idth / 2), CInt _(e.Bounds.Heig ht))
e.Graphics.Fill Rectangle(Brush es.DarkGray, e.Bounds.X +
CInt(e.Bounds.W idth / 2), e.Bounds.Y, CInt _(e.Bounds.Widt h / 2),
CInt(e.Bounds.H eight))
e.Graphics.Draw String(CStr(Lis tBox1.Items(e.I ndex)), ListBox1.Font,
Brushes.White, e.Bounds.X, _ e.Bounds.Y)
e.DrawFocusRect angle()
End Sub

Private Sub frm3_Load(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ListBox1.DrawMo de = DrawMode.OwnerD rawFixed
ListBox1.Items. Add("Hello")
ListBox1.Items. Add("World")
End Sub

greetz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.
"Rlrcstr" <rl*****@msn.co m> schreef in bericht
news:Oq******** ******@TK2MSFTN GP09.phx.gbl...

Is there a way to darken or lighten an area of a form or control via the
graphics object? I'm using an ownerdraw listbox and I want to have a small area of the item be a bit lighter than the rest of the object, but I want
the user to be able to set the main color. I've read up on the fact that we don't have any raster ops in GDI+, but I was hoping there might be an y easy way to do this. Thanks.

Jerry

[Jerry Camel]

Thanks for the reply, but that's not really what I'm looking for.

I have an ownerdraw listbox that I'm displaying info in 3 columns. I want
the user to specify the backcolor for alternating rows. This is all easy.
I can draw everything without an issue.

I wanted to give the alternating columns a slightly darker shade of the
background color on each line. Since my last post, I've implemented this
via creating a new brush from the old and subtracting 15 from each of the
color elements of the pen color. Color.FromARGB( )

This works. But I was originally wondering if there was some operation that
would just let me paint a darkening effect on the background so I didn't
have to worry about what color was there originally.

Thanks.

Jerry

"Peter Proost" <pp*****@nospam .hotmail.com> wrote in message
news:eF******** ******@TK2MSFTN GP10.phx.gbl...

Hi maybe this can help you:

put a listbox on a form and copy paste this code:

Private Sub lstPeter_DrawIt em(ByVal sender As System.Object, ByVal e As _
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
'e.Graphics.Fil lRectangle(New
System.Drawing. Drawing2D.Linea rGradientBrush( e.Bounds, _ 'Color.LightGra y,
Color.Gray, Drawing2D.Linea rGradientMode.B ackwardDiagonal ), e.Bounds)
e.Graphics.Fill Rectangle(Brush es.LightGray, e.Bounds.X, e.Bounds.Y, CInt(e.Bounds.W idth / 2), CInt _(e.Bounds.Heig ht))
e.Graphics.Fill Rectangle(Brush es.DarkGray, e.Bounds.X +
CInt(e.Bounds.W idth / 2), e.Bounds.Y, CInt _(e.Bounds.Widt h / 2),
CInt(e.Bounds.H eight))
e.Graphics.Draw String(CStr(Lis tBox1.Items(e.I ndex)), ListBox1.Font, Brushes.White, e.Bounds.X, _ e.Bounds.Y)
e.DrawFocusRect angle()
End Sub

Private Sub frm3_Load(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ListBox1.DrawMo de = DrawMode.OwnerD rawFixed
ListBox1.Items. Add("Hello")
ListBox1.Items. Add("World")
End Sub

greetz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.
"Rlrcstr" <rl*****@msn.co m> schreef in bericht
news:Oq******** ******@TK2MSFTN GP09.phx.gbl...

Is there a way to darken or lighten an area of a form or control via the
graphics object? I'm using an ownerdraw listbox and I want to have a small

area of the item be a bit lighter than the rest of the object, but I want the user to be able to set the main color. I've read up on the fact

that we

don't have any raster ops in GDI+, but I was hoping there might be an y

easy

way to do this. Thanks.

Jerry

[Bob Powell [MVP]]

You could overprint a transparent black. Use Color.FromArgb to create a
brush with a transparent black colour.

You may also be interested in the article on using HSB which can be found in
the GDI+ FAQ.

--
Bob Powell [MVP]
Visual C#, System.Drawing

Find great Windows Forms articles in Windows Forms Tips and Tricks
http://www.bobpowell.net/tipstricks.htm

Answer those GDI+ questions with the GDI+ FAQ
http://www.bobpowell.net/faqmain.htm

All new articles provide code in C# and VB.NET.
Subscribe to the RSS feeds provided and never miss a new article.

"Jerry Camel" <rl*****@msn.co m> wrote in message
news:eR******** ******@TK2MSFTN GP15.phx.gbl...

Thanks for the reply, but that's not really what I'm looking for.

I have an ownerdraw listbox that I'm displaying info in 3 columns. I want
the user to specify the backcolor for alternating rows. This is all easy.
I can draw everything without an issue.

I wanted to give the alternating columns a slightly darker shade of the
background color on each line. Since my last post, I've implemented this
via creating a new brush from the old and subtracting 15 from each of the
color elements of the pen color. Color.FromARGB( )

This works. But I was originally wondering if there was some operation
that
would just let me paint a darkening effect on the background so I didn't
have to worry about what color was there originally.

Thanks.

Jerry

"Peter Proost" <pp*****@nospam .hotmail.com> wrote in message
news:eF******** ******@TK2MSFTN GP10.phx.gbl...

Hi maybe this can help you:

put a listbox on a form and copy paste this code:

Private Sub lstPeter_DrawIt em(ByVal sender As System.Object, ByVal e As _
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
'e.Graphics.Fil lRectangle(New
System.Drawing. Drawing2D.Linea rGradientBrush( e.Bounds, _
'Color.LightGra y,
Color.Gray, Drawing2D.Linea rGradientMode.B ackwardDiagonal ), e.Bounds)
e.Graphics.Fill Rectangle(Brush es.LightGray, e.Bounds.X,

e.Bounds.Y,

CInt(e.Bounds.W idth / 2), CInt _(e.Bounds.Heig ht))
e.Graphics.Fill Rectangle(Brush es.DarkGray, e.Bounds.X +
CInt(e.Bounds.W idth / 2), e.Bounds.Y, CInt _(e.Bounds.Widt h / 2),
CInt(e.Bounds.H eight))
e.Graphics.Draw String(CStr(Lis tBox1.Items(e.I ndex)),

ListBox1.Font,

Brushes.White, e.Bounds.X, _ e.Bounds.Y)
e.DrawFocusRect angle()
End Sub

Private Sub frm3_Load(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ListBox1.DrawMo de = DrawMode.OwnerD rawFixed
ListBox1.Items. Add("Hello")
ListBox1.Items. Add("World")
End Sub

greetz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to
produce
bigger and better idiots. So far, the Universe is winning.
"Rlrcstr" <rl*****@msn.co m> schreef in bericht
news:Oq******** ******@TK2MSFTN GP09.phx.gbl...

> Is there a way to darken or lighten an area of a form or control via
> the
> graphics object? I'm using an ownerdraw listbox and I want to have a

small

> area of the item be a bit lighter than the rest of the object, but I want > the user to be able to set the main color. I've read up on the fact

that

we

> don't have any raster ops in GDI+, but I was hoping there might be an y

easy

> way to do this. Thanks.
>
> Jerry
>
>

[Jerry Camel]

Very cool stuff. Thanks!

I posted in the controls group regarding display issues trying to use the
listbox as a control container. Any insight on that?

Jerry

"Bob Powell [MVP]" <bob@_spamkille r_bobpowell.net > wrote in message
news:%2******** ********@TK2MSF TNGP14.phx.gbl. ..

You could overprint a transparent black. Use Color.FromArgb to create a
brush with a transparent black colour.

You may also be interested in the article on using HSB which can be found in the GDI+ FAQ.

--
Bob Powell [MVP]
Visual C#, System.Drawing

Find great Windows Forms articles in Windows Forms Tips and Tricks
http://www.bobpowell.net/tipstricks.htm

Answer those GDI+ questions with the GDI+ FAQ
http://www.bobpowell.net/faqmain.htm

All new articles provide code in C# and VB.NET.
Subscribe to the RSS feeds provided and never miss a new article.

"Jerry Camel" <rl*****@msn.co m> wrote in message
news:eR******** ******@TK2MSFTN GP15.phx.gbl...

Thanks for the reply, but that's not really what I'm looking for.

I have an ownerdraw listbox that I'm displaying info in 3 columns. I want the user to specify the backcolor for alternating rows. This is all easy. I can draw everything without an issue.

I wanted to give the alternating columns a slightly darker shade of the
background color on each line. Since my last post, I've implemented this via creating a new brush from the old and subtracting 15 from each of the color elements of the pen color. Color.FromARGB( )

This works. But I was originally wondering if there was some operation
that
would just let me paint a darkening effect on the background so I didn't
have to worry about what color was there originally.

Thanks.

Jerry

"Peter Proost" <pp*****@nospam .hotmail.com> wrote in message
news:eF******** ******@TK2MSFTN GP10.phx.gbl...

Hi maybe this can help you:

put a listbox on a form and copy paste this code:

Private Sub lstPeter_DrawIt em(ByVal sender As System.Object, ByVal e As _ System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
'e.Graphics.Fil lRectangle(New
System.Drawing. Drawing2D.Linea rGradientBrush( e.Bounds, _
'Color.LightGra y,
Color.Gray, Drawing2D.Linea rGradientMode.B ackwardDiagonal ), e.Bounds)
e.Graphics.Fill Rectangle(Brush es.LightGray, e.Bounds.X,

e.Bounds.Y,

CInt(e.Bounds.W idth / 2), CInt _(e.Bounds.Heig ht))
e.Graphics.Fill Rectangle(Brush es.DarkGray, e.Bounds.X +
CInt(e.Bounds.W idth / 2), e.Bounds.Y, CInt _(e.Bounds.Widt h / 2),
CInt(e.Bounds.H eight))
e.Graphics.Draw String(CStr(Lis tBox1.Items(e.I ndex)),

ListBox1.Font,

Brushes.White, e.Bounds.X, _ e.Bounds.Y)
e.DrawFocusRect angle()
End Sub

Private Sub frm3_Load(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ListBox1.DrawMo de = DrawMode.OwnerD rawFixed
ListBox1.Items. Add("Hello")
ListBox1.Items. Add("World")
End Sub

greetz Peter

--
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to
produce
bigger and better idiots. So far, the Universe is winning.
"Rlrcstr" <rl*****@msn.co m> schreef in bericht
news:Oq******** ******@TK2MSFTN GP09.phx.gbl...
> Is there a way to darken or lighten an area of a form or control via
> the
> graphics object? I'm using an ownerdraw listbox and I want to have a
small
> area of the item be a bit lighter than the rest of the object, but I

want

> the user to be able to set the main color. I've read up on the fact

that

we
> don't have any raster ops in GDI+, but I was hoping there might be an y easy
> way to do this. Thanks.
>
> Jerry
>
>

[Olaf Rabbachin]

Hi,

Jerry Camel wrote:

I wanted to give the alternating columns a slightly darker shade of the
background color on each line. Since my last post, I've implemented this
via creating a new brush from the old and subtracting 15 from each of the
color elements of the pen color. Color.FromARGB( )

This works. But I was originally wondering if there was some operation that
would just let me paint a darkening effect on the background so I didn't
have to worry about what color was there originally.

in addition to Bob's GDI+-FAQ, check out Steve's color-pack (pretty much
ready to use):
http://www.vbaccelerator.com/home/NE...GB/article.asp

Cheers,
Olaf