<html dir="ltr"><head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body style="text-align:left; direction:ltr;"><div>Am Samstag, den 16.05.2020, 12:26 +0100 schrieb John Rose:</div><blockquote type="cite" style="margin:0 0 0 .8ex; border-left:2px #729fcf solid;padding-left:1ex">
<p>I posted to the Gambas User List yesterday. I sent, with the
email, an attachment of my 'stripped down' project as a compressed
source (Test.tar.gz). When I look at the Archive, specifically my
post, it says:</p>
<pre>A non-text attachment was scrubbed...</pre><pre>Name: Test.tar.gz</pre><pre>Type: application/gzip</pre><pre>Size: 67367 bytes</pre><pre>Desc: not available</pre><pre>URL: <<a href="https://lists.gambas-basic.org/pipermail/user/attachments/20200515/e997d432/attachment-0001.gz">https://lists.gambas-basic.org/pipermail/user/attac</a>So here's the code:</pre><pre>' Gambas class file</pre><pre><br></pre><pre>Private iAreaLeft As Integer</pre><pre>Private iAreaTop As Integer</pre><pre>Private iAreaWidth As Integer</pre><pre>Private iAreaHeight As Integer</pre><pre><br></pre><pre>Public Sub _new()</pre><pre> FSelectArea.Left = Screen.AvailableX</pre><pre> FSelectArea.Top = Screen.AvailableY</pre><pre> FSelectArea.Width = Screen.AvailableWidth</pre><pre> FSelectArea.Height = Screen.AvailableHeight</pre><pre> DrawingAreaDesktop.Left = Screen.AvailableX</pre><pre> DrawingAreaDesktop.Top = Screen.AvailableY</pre><pre> DrawingAreaDesktop.Width = Screen.AvailableWidth </pre><pre> DrawingAreaDesktop.Height = Screen.AvailableHeight</pre><pre>End</pre><pre><br></pre><pre>Public Sub Form_Open()</pre><pre> Message.Title = "To Specify Area to be Recorded:"</pre><pre> Message.Info("Mouse button down & hold down on top left corner, drag to bottom right corner, and mouse button up.")</pre><pre> Inc Application.Busy</pre><pre> iAreaLeft = Screen.Width</pre><pre> iAreaTop = Screen.Height</pre><pre> iAreaWidth = 0</pre><pre> iAreaHeight = 0</pre><pre>Finally</pre><pre> Application.Busy = 0</pre><pre>Catch</pre><pre> Message.Warning(ERROR.Text)</pre><pre>End</pre><pre><br></pre><pre>Public Sub DrawingAreaDesktop_MouseDown()</pre><pre> Inc Application.Busy</pre><pre> ' Print "Area 1st corner: X=" & Mouse.X & ", Y=" & Mouse.Y</pre><pre> iAreaLeft = Mouse.X</pre><pre> iAreaTop = Mouse.Y</pre><pre> Paint.Begin(Last)</pre><pre>Finally</pre><pre> Application.Busy = 0</pre><pre>Catch</pre><pre> Message.Warning(ERROR.Text)</pre><pre>End</pre><pre><br></pre><pre>Public Sub DrawingAreaDesktop_MouseMove()</pre><pre> If iAreaLeft >= Mouse.X Or iAreaTop >= Mouse.Y Then</pre><pre> Return</pre><pre> Endif</pre><pre> Inc Application.Busy</pre><pre> iAreaWidth = Mouse.X - iAreaLeft</pre><pre> iAreaHeight = Mouse.Y - iAreaTop</pre><pre> Paint.Rectangle(iAreaLeft, iAreaTop, iAreaWidth, iAreaHeight)</pre><pre>Finally</pre><pre> Application.Busy = 0</pre><pre>Catch</pre><pre> Message.Warning(ERROR.Text)</pre><pre>End</pre><pre><br></pre><pre>Public Sub DrawingAreaDesktop_MouseUp()</pre><pre> If iAreaLeft >= Mouse.X Or iAreaTop >= Mouse.Y Then</pre><pre> Message.Title = "Try again:"</pre><pre> Message.Info("You have not selected an area") </pre><pre> Return</pre><pre> Endif</pre><pre> Inc Application.Busy</pre><pre> ' Print "Area 2nd corner: X=" & Mouse.X & ", Y=" & Mouse.Y</pre><pre> iAreaWidth = Mouse.X - iAreaLeft</pre><pre> iAreaHeight = Mouse.Y - iAreaTop</pre><pre> Paint.End</pre><pre> Print "You have selected this area: " & iAreaLeft & ", " & iAreaTop & ", " & iAreaWidth & " ," & iAreaHeight</pre><pre> FMain.iRegionLeft = iAreaLeft</pre><pre> FMain.iRegionTop = iAreaTop</pre><pre> FMain.iRegionWidth = iAreaWidth</pre><pre> FMain.iRegionHeight = iAreaHeight</pre><pre> Last.Close</pre><pre>Finally</pre><pre> Application.Busy = 0</pre><pre>Catch</pre><pre> Message.Warning(ERROR.Text)</pre><pre>End</pre><pre><a href="https://lists.gambas-basic.org/pipermail/user/attachments/20200515/e997d432/attachment-0001.gz">hments/20200515/e997d432/attachment-0001.gz</a>></pre><pre><br></pre><pre><font size="+1">I haven't posted for years. People when replying to posts asking for help with a project generally ask me for the project in a 'stripped down' form. Perhaps I should attach a project in a different way. If so, what?</font></pre><pre><br></pre></blockquote><pre><img src="cid:b060c1a511cec3f798d3f066c16e8e8c78beae47.camel@fen-net.de"><br></pre><div><br></div><div>no, not at all. The attachment wasn't scrubbed, may be that's your own email-client who say that.</div><div><br></div><div><br></div><div><span><pre><pre>-- <br></pre>Amicalement
Charlie
</pre></span></div></body></html>