Styjun

Best wood species for extreme bends?

Is this floating-point optimization allowed?

How might the United Kingdom become a republic?

Are randomly-generated passwords starting with "a" less secure?

How to check the quality of an audio sample?

The monorail explodes before I can get on it

Robbers: The Hidden OEIS Substring

Do native speakers use ZVE or CPU?

Is purchasing foreign currency before going abroad a losing proposition?

What explains 9 speed cassettes price differences?

Where is the USB2 OTG port on the RPi 4 Model B located?

How can I get both Giga Drain and Mach Punch on Breloom?

Is Arc Length always irrational between two rational points?

Bishop game - python

Cops: The Hidden OEIS Substring

Why can't supermassive black holes merge? (or can they?)

Who Can Help Retag This?

Filtering fine silt/mud from water (not necessarily bacteria etc.)

Repeating redundant information after dialogues, to avoid or not?

As a DM, how to avoid unconscious metagaming when dealing with a high AC character?

Bronze Age Underwater Civilization

How did the hit man miss?

Can I call 112 to check a police officer's identity in the Czech Republic?

Dropping outliers based on "2.5 times the RMSE"

TextRenderer.DrawText Apply Padding

How can I pad a String in Java?When to use margin vs padding in CSSSet padding for UITextField with UITextBorderStyleNoneHow to disable checkboxes according to textbox text !Difference between a View's Padding and MarginHow can I reliably call Control.InvokePaint with the correct clipping and offset?Gridview - Add Row Button Using FooterSend Bulk Email in VB.NET Reciepients Emails will uploaded by excelHow to highlight behind text drawn by DrawTextExExtending a label control to allow bold segments in the text

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

I have a custom control and I'm drawing the control's text using TextRenderer.DrawText, this is what the OnPaint event looks like:

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
 MyBase.OnPaint(e)

 If Me.Dismissable Then
 Using dismissBrush As Brush = New SolidBrush(styleConfiguration(Me.Style).Value)
 ' Custom drawing
 End Using
 End If

 TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, New Point(0, 0), Me.ForeColor, TextFormatFlags.Left Or TextFormatFlags.LeftAndRightPadding)
End Sub

As you can tell, I'm attempting to accommodate the padding that is set via Control.Padding but no matter what TextFormatFlags I set, the padding never gets applied when DrawText is called.

So I've tried setting just the bounds of where the text should be drawn using:

Dim textBounds As Rectangle = Me.Bounds
textBounds.Inflate(-(Me.Padding.Left + Me.Padding.Right), -(Me.Padding.Top + Me.Padding.Bottom))
textBounds.X += Me.Padding.Left
textBounds.Y += Me.Padding.Top

TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, textBounds, Me.ForeColor)

But this pushes the text completely off out of the view of the control even if the margins are all set to 5.

vb.net padding gdi

share|improve this question

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  
  Use TextFormatFlags.VerticalCenter Or TextFormatFlags.NoPadding. Dim a new Rectangle using the Control.ClientRectangle reference; move the Rectangle.Location.Left by Control.Padding.Left, reduce the size of the Rectangle by Control.Padding.Left + Control.Padding.Right. Do the same for the Top/Bottom measures if you're allowing it. You're good to go. Control.Bounds is the Control's Rectangle area in relation to its Parent. The Width/Height measures include the non-client area. The Location is the position of a Control in its Parent's ClientArea.
  
  – Jimi
  Mar 26 at 5:03
  
  

  
  
  
  

add a comment | 

0

I have a custom control and I'm drawing the control's text using TextRenderer.DrawText, this is what the OnPaint event looks like:

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
 MyBase.OnPaint(e)

 If Me.Dismissable Then
 Using dismissBrush As Brush = New SolidBrush(styleConfiguration(Me.Style).Value)
 ' Custom drawing
 End Using
 End If

 TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, New Point(0, 0), Me.ForeColor, TextFormatFlags.Left Or TextFormatFlags.LeftAndRightPadding)
End Sub

As you can tell, I'm attempting to accommodate the padding that is set via Control.Padding but no matter what TextFormatFlags I set, the padding never gets applied when DrawText is called.

So I've tried setting just the bounds of where the text should be drawn using:

Dim textBounds As Rectangle = Me.Bounds
textBounds.Inflate(-(Me.Padding.Left + Me.Padding.Right), -(Me.Padding.Top + Me.Padding.Bottom))
textBounds.X += Me.Padding.Left
textBounds.Y += Me.Padding.Top

TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, textBounds, Me.ForeColor)

But this pushes the text completely off out of the view of the control even if the margins are all set to 5.

vb.net padding gdi

share|improve this question

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  
  Use TextFormatFlags.VerticalCenter Or TextFormatFlags.NoPadding. Dim a new Rectangle using the Control.ClientRectangle reference; move the Rectangle.Location.Left by Control.Padding.Left, reduce the size of the Rectangle by Control.Padding.Left + Control.Padding.Right. Do the same for the Top/Bottom measures if you're allowing it. You're good to go. Control.Bounds is the Control's Rectangle area in relation to its Parent. The Width/Height measures include the non-client area. The Location is the position of a Control in its Parent's ClientArea.
  
  – Jimi
  Mar 26 at 5:03
  
  

  
  
  
  

add a comment | 

I have a custom control and I'm drawing the control's text using TextRenderer.DrawText, this is what the OnPaint event looks like:

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
 MyBase.OnPaint(e)

 If Me.Dismissable Then
 Using dismissBrush As Brush = New SolidBrush(styleConfiguration(Me.Style).Value)
 ' Custom drawing
 End Using
 End If

 TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, New Point(0, 0), Me.ForeColor, TextFormatFlags.Left Or TextFormatFlags.LeftAndRightPadding)
End Sub

As you can tell, I'm attempting to accommodate the padding that is set via Control.Padding but no matter what TextFormatFlags I set, the padding never gets applied when DrawText is called.

So I've tried setting just the bounds of where the text should be drawn using:

Dim textBounds As Rectangle = Me.Bounds
textBounds.Inflate(-(Me.Padding.Left + Me.Padding.Right), -(Me.Padding.Top + Me.Padding.Bottom))
textBounds.X += Me.Padding.Left
textBounds.Y += Me.Padding.Top

TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, textBounds, Me.ForeColor)

But this pushes the text completely off out of the view of the control even if the margins are all set to 5.

vb.net padding gdi

share|improve this question

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
 MyBase.OnPaint(e)

 If Me.Dismissable Then
 Using dismissBrush As Brush = New SolidBrush(styleConfiguration(Me.Style).Value)
 ' Custom drawing
 End Using
 End If

 TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, New Point(0, 0), Me.ForeColor, TextFormatFlags.Left Or TextFormatFlags.LeftAndRightPadding)
End Sub

Dim textBounds As Rectangle = Me.Bounds
textBounds.Inflate(-(Me.Padding.Left + Me.Padding.Right), -(Me.Padding.Top + Me.Padding.Bottom))
textBounds.X += Me.Padding.Left
textBounds.Y += Me.Padding.Top

TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, textBounds, Me.ForeColor)

share|improve this question

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges

share|improve this question

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges

asked Mar 26 at 4:32

DavidDavid

1,25211 gold badge88 silver badges1515 bronze badges