TBGRABitmap + NoGUI

[Silvio Clécio]

Is TBGRABitmap compatible with NoGUI?

Please see:

http://bugs.freepascal.org/view.php?id=23775

Thank you!

[circular]

It's not compatible yet.

Is there an easy way to check that it is in NoGUI mode ? So for example, system text rendering could be deactivated.

[Silvio Clécio]

I don't know guy. :/

[circular]

Hmm, and how to do a NoGUI application ?

[Silvio Clécio]

1 - http://imagebin.org/244695
2 - http://imagebin.org/244696

[circular]

Ok, i've updated BGRABitmap on subversion. Try with the latest version.

[Silvio Clécio]

I'll test it now ... 

[Silvio Clécio]

Oops, which the correct SVN link to download it? 

[Silvio Clécio]

The last revision is 457?

[circular]

455, I guess.

Note that you must avoid using text functions

[Silvio Clécio]

Hm... strange, I downloaded from here:

https://lazpaint.svn.sourceforge.net/svnroot/lazpaint

The last commit (in 2012):

http://imagebin.org/244708

I did not find your changes.

[Silvio Clécio]

I found the correctly link:

svn://svn.code.sf.net/p/lazpaint/code

 

[Silvio Clécio]

Now the error is:

Code: [Select]

C:\Users\silvioprog\Desktop\nogui_bgra>noguidemo.exe
TRasterImage.BitmapHandleNeeded: Unable to create handles, using default
TRasterImage.BitmapHandleNeeded: Unable to create handles, using default
[FORMS.PP] ExceptionOccurred
  Sender=EInvalidOperation
  Exception=Canvas does not allow drawing
  Stack trace:
  $00491984  TCANVAS__REQUIREDSTATE,  line 1672 of ./include/canvas.inc
  $00491BA0  TCANVAS__TEXTEXTENT,  line 1731 of ./include/canvas.inc
  $0048F478  TCANVAS__DOGETTEXTSIZE,  line 471 of ./include/canvas.inc
  $0042617F
  $006033FD
  $00603481
  $005B9640
  $005C676C
  $00439604  TBASICDRAWER__TEXTEXTENT,  line 367 of C:/lazarus/components/tachar
t/tadrawutils.pas
  $0053CCB4  TCHARTTEXTELEMENT__MEASURELABEL,  line 427 of C:/lazarus/components
/tachart/tatextelements.pas
  $00538FBB  TCUSTOMCHARTAXISMARKS__MEASURE,  line 577 of C:/lazarus/components/
tachart/tachartaxisutils.pas
  $00535F9D  TCHARTAXIS__MEASURE,  line 698 of C:/lazarus/components/tachart/tac
hartaxis.pas
  $005373C4  TCHARTAXISLIST__MEASURE,  line 1028 of C:/lazarus/components/tachar
t/tachartaxis.pas
  $004325E1  TCHART__PREPAREAXIS,  line 1203 of C:/lazarus/components/tachart/ta
graph.pas
  $00430D2A  TCHART__DRAW,  line 772 of C:/lazarus/components/tachart/tagraph.pa
s
  $00401C42  main,  line 48 of noguidemo.lpr
TApplication.HandleException Canvas does not allow drawing
  Stack trace:
  $00491984  TCANVAS__REQUIREDSTATE,  line 1672 of ./include/canvas.inc
  $00491BA0  TCANVAS__TEXTEXTENT,  line 1731 of ./include/canvas.inc
  $0048F478  TCANVAS__DOGETTEXTSIZE,  line 471 of ./include/canvas.inc
  $0042617F
  $006033FD
  $00603481
  $005B9640
  $005C676C
  $00439604  TBASICDRAWER__TEXTEXTENT,  line 367 of C:/lazarus/components/tachar
t/tadrawutils.pas
  $0053CCB4  TCHARTTEXTELEMENT__MEASURELABEL,  line 427 of C:/lazarus/components
/tachart/tatextelements.pas
  $00538FBB  TCUSTOMCHARTAXISMARKS__MEASURE,  line 577 of C:/lazarus/components/
tachart/tachartaxisutils.pas
  $00535F9D  TCHARTAXIS__MEASURE,  line 698 of C:/lazarus/components/tachart/tac
hartaxis.pas
  $005373C4  TCHARTAXISLIST__MEASURE,  line 1028 of C:/lazarus/components/tachar
t/tachartaxis.pas
  $004325E1  TCHART__PREPAREAXIS,  line 1203 of C:/lazarus/components/tachart/ta
graph.pas
  $00430D2A  TCHART__DRAW,  line 772 of C:/lazarus/components/tachart/tagraph.pa
s
  $00401C42  main,  line 48 of noguidemo.lpr
Exception at 00491984: EInvalidOperation:
Canvas does not allow drawing.

C:\Users\silvioprog\Desktop\nogui_bgra>

[Silvio Clécio]

The full demo to reproduce it:

https://www.dropbox.com/s/7m353hvt50k8152/nogui_bgra.zip

Environment:

Lazarus 1.1 r39272 FPC 2.7.1 i386-win32-win32/win64

[Silvio Clécio]

> Note that you must avoid using text functions

Yes, I changed my demo to:

Code: [Select]

program noguidemo;

{$mode objfpc}{$H+}

uses
  Interfaces,
  Classes,
  FPCanvas,
  FPImage,
  FPImgCanv,
  TATools,
  TAGraph,
  TASeries,
  TADrawerCanvas,
  TADrawUtils,
  BGRABitmap,
  TAChartUtils,
  TADrawerBGRA;

var
  chart: TChart;
  bs: TBarSeries;
  img: TBGRABitmap;
  d: IChartDrawer;
begin
  chart := TChart.Create(nil);
  chart.Color := $FFA0A0;
  chart.BackColor := $FFFFFF;
  bs := TBarSeries.Create(nil);
  chart.AddSeries(bs);
  bs.AddXY(1, 10);
  bs.AddXY(2, 7);
  bs.AddXY(3, 8);
  img := TBGRABitmap.Create(chart.Width, chart.Height);
  d := TBGRABitmapDrawer.Create(img);
  chart.Draw(d, Rect(0, 0, chart.Width, chart.Height));
  img.SaveToFile('test.png');
  img.Free;
  bs.Free;
  chart.Free;
end.
And the error is:

Code: [Select]

C:\Users\silvioprog\Desktop\nogui_bgra>noguidemo.exe
[FORMS.PP] ExceptionOccurred
  Sender=EAccessViolation
  Exception=Access violation
  Stack trace:
  $00000000
  $0053C0AC  TCHARTTEXTELEMENT__APPLYLABELFONT,  line 279 of C:/lazarus/componen
ts/tachart/tatextelements.pas
  $00539969  TGENERICCHARTMARKS$3$CRC16F2AB4F__APPLYLABELFONT,  line 594 of C:/l
azarus/components/tachart/tatextelements.pas
  $0053CABC  TCHARTTEXTELEMENT__MEASURELABEL,  line 426 of C:/lazarus/components
/tachart/tatextelements.pas
  $00538DDB  TCUSTOMCHARTAXISMARKS__MEASURE,  line 577 of C:/lazarus/components/
tachart/tachartaxisutils.pas
  $00535DBD  TCHARTAXIS__MEASURE,  line 698 of C:/lazarus/components/tachart/tac
hartaxis.pas
  $005371E4  TCHARTAXISLIST__MEASURE,  line 1028 of C:/lazarus/components/tachar
t/tachartaxis.pas
  $00432451  TCHART__PREPAREAXIS,  line 1203 of C:/lazarus/components/tachart/ta
graph.pas
  $00430B9A  TCHART__DRAW,  line 772 of C:/lazarus/components/tachart/tagraph.pa
s
  $00401AAC  main,  line 36 of noguidemo.lpr
TApplication.HandleException Access violation
  Stack trace:
  $00000000
  $0053C0AC  TCHARTTEXTELEMENT__APPLYLABELFONT,  line 279 of C:/lazarus/componen
ts/tachart/tatextelements.pas
  $00539969  TGENERICCHARTMARKS$3$CRC16F2AB4F__APPLYLABELFONT,  line 594 of C:/l
azarus/components/tachart/tatextelements.pas
  $0053CABC  TCHARTTEXTELEMENT__MEASURELABEL,  line 426 of C:/lazarus/components
/tachart/tatextelements.pas
  $00538DDB  TCUSTOMCHARTAXISMARKS__MEASURE,  line 577 of C:/lazarus/components/
tachart/tachartaxisutils.pas
  $00535DBD  TCHARTAXIS__MEASURE,  line 698 of C:/lazarus/components/tachart/tac
hartaxis.pas
  $005371E4  TCHARTAXISLIST__MEASURE,  line 1028 of C:/lazarus/components/tachar
t/tachartaxis.pas
  $00432451  TCHART__PREPAREAXIS,  line 1203 of C:/lazarus/components/tachart/ta
graph.pas
  $00430B9A  TCHART__DRAW,  line 772 of C:/lazarus/components/tachart/tagraph.pa
s
  $00401AAC  main,  line 36 of noguidemo.lpr
Exception at 00000000: EAccessViolation:
Access violation.

C:\Users\silvioprog\Desktop\nogui_bgra>