Jump to content

Draw a pie with 90° (Bug?)


dabus
 Share

Recommended Posts

Well, it's a minor issue, but I try to create a little pie-chart. I just asked myself why the pie was looking a little bit ugly. I noticed that the horizontal line was not drawn as expected. I did a search for $GUI_GR_PIE but results didn't seem fitting for a bug-report or something.

Can you confirm that or is it just my fault (maybe I need glasses :) )...

#include <Guiconstants.au3>

Dim  $Radius0=90, $Radius1=90, $Radius3=180
    
$EGui=GUICreate('Test', 440, 320)
$Graph=GUICtrlCreateGraphic(10, 10, 420, 300)
GUICtrlSetBkColor($Graph,0xffffff)
GUICtrlSetGraphic(-1,$GUI_GR_PENSIZE, 1)
GUICtrlSetGraphic(-1,$GUI_GR_COLOR, 0, 0x0000ff)
GUICtrlSetGraphic($Graph, $GUI_GR_PIE,  100, 100, 80, $Radius0, $Radius1)       

GUISetState(@SW_SHOW)
While 1
  $eMsg = GUIGetMsg()
  Switch $eMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($EGui)
    ExitLoop
  EndSwitch
  Sleep(10)
WEnd

Goodnight.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...