Basic gfx graphics dll and tester.
lazarus / 39-Graphics

----------------------------------------------------------------------
BobDog · 2019-01-23 18:12

From FreeBASIC I have taken some gfx graphical functions and
procedures and set them in a .dll
Both 32 and 64 bit dlls.
Also a .pas test file and compiled .exe files, which you will probably
want to overwrite with your own pascal compilers.
Also the FreeBASIC source code is there.

I have put the declaration (dll calls) into a seperate file (gfx.inc)
and used {$include  gfx.inc} in the .pas files.
(I don't know if this is standard pascal procedure, I am a bit new to
pascal)

files;
https://www.mediafire.com/file/wqgt642w93a6va9/gfxgraphics.zip/file




Note: for a bit of fun only.

----------------------------------------------------------------------
lucamar · 2019-01-23 18:27

Quote from: BobDog on January 23, 2019, 07:12:50 pmI have put the
declaration (dll calls) into a seperate file (gfx.inc) and used
{$include  gfx.inc} in the .pas files.
(I don't know if this is standard pascal procedure, I am a bit new to
pascal)
There is no "standard" but the "usual" way to do it is to put the
declarations into their own unit (p.e. fbgfx.pas) and then "use" that
unit wherever you need it.

For example:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i unit
fbgfx; interface   function  screen_mode(x: integer; y: integer; xres:
integer; yres: integer; b: integer): integer; cdecl external
'gfx.DLL';  function  rgbcolor(red: integer; green: integer; blue:
integer; alpha: integer = 255): longword ; cdecl external
'gfx.DLL'; [...etc...] implementation end.
And in the program:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i program
whatever; uses  fbgfx; [...etc...]