mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 02:27:56 +02:00
+ simple example for cairo
* fix cairo for win64 git-svn-id: trunk@24211 -
This commit is contained in:
parent
36cb560e0d
commit
d48d388e7a
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -1070,6 +1070,7 @@ packages/bzip2/src/bzip2stream.pp svneol=native#text/plain
|
||||
packages/cairo/Makefile svneol=native#text/plain
|
||||
packages/cairo/Makefile.fpc svneol=native#text/plain
|
||||
packages/cairo/Makefile.fpc.fpcmake svneol=native#text/plain
|
||||
packages/cairo/examples/getversion.pp svneol=native#text/pascal
|
||||
packages/cairo/fpmake.pp svneol=native#text/plain
|
||||
packages/cairo/src/cairo.pp svneol=native#text/plain
|
||||
packages/cairo/src/cairoft.pp svneol=native#text/plain
|
||||
|
10
packages/cairo/examples/getversion.pp
Normal file
10
packages/cairo/examples/getversion.pp
Normal file
@ -0,0 +1,10 @@
|
||||
uses
|
||||
cairo;
|
||||
|
||||
var
|
||||
major, minor, micro: LongInt;
|
||||
|
||||
begin
|
||||
cairo_version(major, minor, micro);
|
||||
writeln(major,'.',minor,'.',micro);
|
||||
end.
|
@ -56,7 +56,7 @@ Uses
|
||||
CTypes;
|
||||
|
||||
const
|
||||
{$ifdef win32}
|
||||
{$ifdef MSWINDOWS}
|
||||
LIB_CAIRO = 'libcairo-2.dll';
|
||||
{$IFDEF FPC}
|
||||
{$ifndef NO_SMART_LINK}
|
||||
|
Loading…
Reference in New Issue
Block a user