[Gambas-user] Draw class

[Steven Lobbezoo]

Le vendredi 24 août 2007 15:27, Benoit Minisini a écrit :
> On vendredi 24 août 2007, Steven Lobbezoo wrote:
> > Hi,
> >
> > In the latest trunk ( for 30 minutes)
> > the Draw.Scale function does not exists anymore !
> >
> > Kindest regards,
> > Steven
>
> But Draw.Scale has never existed...
----------------------------------------------------------------------
This is from one of the printing examples, it worked just great for 2 days :

PUBLIC SUB SpinBox1_Change()
  DIM zoomFactor AS Float
  DrawingArea1.Clear
  
  Draw.Begin(DrawingArea1)
  report.Layout
  draw.End
  SpinBox1.MaxValue = Report.Count
  zoomFactor = fZoom / 100
  DrawingArea1.Resize(printer.Width, printer.Height)
  Draw.Begin(DrawingArea1)
  IF SpinBox1.Value > Report.count THEN RETURN 
  
  
  
    'Report.Calculate
    'Message(Report.count) 'draw.Scale(0.1, 0.1)
    MRTools.ReportZoom = zoomFactor
    Draw.Scale(zoomFactor, zoomFactor)
    Report.Draw(SpinBox1.Value)
    'Draw.Picture(hPic, 0, 0)
  Draw.End
  
END

--------------------------------------------------------------------------
Steven