Draw Directly on TBitmap

[trayres]

Code: Pascal  [Select][+][-]

1. var bmp: TBitmap;
2.  
3. begin
4. bmp := TBitmap.Create;
5. bmp.SetSize(600,600); <- This is causing a segfault
6. {Draw some stuff}
7. end.
8.  

In file lclintf.inc at line 177:
Result:=WidgetSet.RawImage_QueryDescription(AFlags,ADesc);

This looks a lot like example code from Delphi; I think something isn't being initialized correctly?

I started from a simple console project, and added LCL as a required package to get the Graphics module.

Any thoughts all?
Thanks!

[JZS]

With Lazarus 1.6 on Windows this piece of code compiles/runs successfully.

Probably you need to mention the version you are using, and on which platform!

[Leledumbo]

This looks a lot like example code from Delphi; I think something isn't being initialized correctly?

I started from a simple console project, and added LCL as a required package to get the Graphics module.

Nah, Delphi doesn't have widgetset concept. The missing thing is Interfaces unit, since the code queries underlying widgetset which won't exist if you omit Interfaces from uses clause.

[Handoko]

It works on my Lazarus installation. Just as Leledumbo said, Lazarus is not Delphi. You better start your new project by clicking: menu > File > New > Application. By doing that, it will automatically put necessaries units in the uses clause.

Or you can simply download my sample project for testing

[trayres]

This looks a lot like example code from Delphi; I think something isn't being initialized correctly?

I started from a simple console project, and added LCL as a required package to get the Graphics module.

Nah, Delphi doesn't have widgetset concept. The missing thing is Interfaces unit, since the code queries underlying widgetset which won't exist if you omit Interfaces from uses clause.

This was exactly the problem. Thank you! Adding the Interfaces unit solved it, and now I know how to get an LCL program running without going through the wizard (so I have a better idea of what's going on).

Much appreciated!