DotNet Draw in Label

Submitted by freemanpro on Sun, 2022-08-14 12:47

Hi. It’s not like it’s impossible to make the text be on top of the DrawRectangle during the Draft and after releasing the MouseUp everything goes back.

    try(destroydialog drawRol) catch()
    rollout drawRol "Draw in Label"
    (
     dotNetControl lb "System.Windows.Forms.Label" width:240 height:30 pos:[10, 10]
 
     local PaintRdy = false
 
     on lb mouseDown s e do
     (
    	 PaintRdy = true
     )
 
     on lb mouseUp s e do
     (
    	 PaintRdy = false
     )
 
     on lb mouseMove s e do
     (
    	if PaintRdy do
    	(
    	 	local RectBrush = dotnetobject "System.Drawing.SolidBrush" s.Backcolor.Red
    	        local RectPen = dotnetobject "System.Drawing.Pen" s.Backcolor.Black 2
    	 	RectPen.alignment = (dotnetclass"System.Drawing.Drawing2D.PenAlignment").inset
    	 	DraGra = s.createGraphics()
 
    		 if (e.x <= s.bounds.width) then (paintX = e.x) else (paintX = s.bounds.width)
 
     	 	RectObj = Rectangle 0 0 paintX s.bounds.height
     	 	DraGra.FillRectangle RectBrush RectObj
     	 	DraGra.DrawRectangle RectPen RectObj
 
    	)
    )
 
    on drawRol open do
    	 (
             lb.text = "Test Label Brush"
    	 )
 
    )
    createdialog drawRol width:300 height:50