Graphic control borders

[andybiochem]

Hi Guys,

Having a problem with GUICtrlCreateGraphic.

I want it to plot several lines within the control, but if any of the lines go outside of the designated size of the control, then they should not be visible.

Example....

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 445, 329, 210, 235)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Graphic1 = GUICtrlCreateGraphic(90, 60, 261, 201)
GUICtrlSetBkColor(-1, 0xFFFFFF)

GUICtrlSetGraphic($Graphic1,$GUI_GR_LINE,30,30)
GUICtrlSetGraphic($Graphic1,$GUI_GR_LINE,60,-30)

GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func Form1Close()
exit
EndFunc

... I don't want the second line to breach the control boundary.

Is there a style setting or something that stops this happening??

Thanks!

[weaponx]

expandcollapse popup

#include <GUIConstants.au3>
Const $GWidth = 261
Const $GHeight = 201

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 445, 329, 210, 235)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Graphic1 = GUICtrlCreateGraphic(90, 60, $GWidth, $GHeight)
GUICtrlSetBkColor(-1, 0xFFFFFF)

DrawLine($Graphic1, 30,30)
DrawLine($Graphic1, 60,-30)

GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func Form1Close()
exit
EndFunc

;Draw line and truncate outside boundaries
Func DrawLine($hGraphic, $XX,$YY)
    If $XX > $GWidth Then
        $XX = $GWidth
    ElseIf $XX < 0 Then
        $XX = 0
    EndIf

    If $YY > $GHeight Then
        $YY = $GHeight
    ElseIf $YY < 0 Then
        $YY = 0
    EndIf
    
    GUICtrlSetGraphic($hGraphic,$GUI_GR_LINE,$XX,$YY)
EndFunc

[andybiochem]

expandcollapse popup

#include <GUIConstants.au3>
Const $GWidth = 261
Const $GHeight = 201

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 445, 329, 210, 235)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Graphic1 = GUICtrlCreateGraphic(90, 60, $GWidth, $GHeight)
GUICtrlSetBkColor(-1, 0xFFFFFF)

DrawLine($Graphic1, 30,30)
DrawLine($Graphic1, 60,-30)

GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func Form1Close()
exit
EndFunc

;Draw line and truncate outside boundaries
Func DrawLine($hGraphic, $XX,$YY)
    If $XX > $GWidth Then
        $XX = $GWidth
    ElseIf $XX < 0 Then
        $XX = 0
    EndIf

    If $YY > $GHeight Then
        $YY = $GHeight
    ElseIf $YY < 0 Then
        $YY = 0
    EndIf
    
    GUICtrlSetGraphic($hGraphic,$GUI_GR_LINE,$XX,$YY)
EndFunc

Thanks for the quick reply, and whilst your script works for the example above, it wouldn't work for what I want to do with it.

In my original post I said I wanted to plot 'several' lines....maybe I should have added the word "thousand" after 'several'.

I want it to plot several thousand lines

...so that means if I start a third line, in your script it will start from the boundary, not beyond it. Sorry, didn't explain fully.

The only way I have thought of so far is to create a label with a background color over the top of what I don't want to see. I just thought there may be an easier way.