Es handelt sich um eine Pascal Portierung der aus der C/C++ Welt bekannten AURA GUI.
Die vorliegende Version ist noch sehr alpha, ich veröffentliche sie aber dennoch schon einmal. Neue Versionen erscheinen zukünftig immer hier!
Code: Alles auswählen
unit xxx;
interface
uses
guitypes, metrics;
{$i cdefs.inc}
{$ifdef LINK_CLIBS}
{$LINK events.o}
{$LINK ...}
{$endif}
...
Code: Alles auswählen
{. $DEFINE LINK_CLIBS} //wenn eingeschaltet, werden statt des Pascal Codes die verlinkten Bibliotheken verwendet
{.$DEFINE DELPHI}
{$PACKRECORDS C}
{$ifdef fpc}
{$define OPascal}
{$ifdef windows}
{$define _OZONE__WIN32_}
{$endif}
{$ifdef linux}
{$define _OZONE__LINUX_}
{$endif}
{$ifdef GO32V2}
{$define _OZONE__DJGPP_}
{$endif}
{$endif}
{$ifdef Delphi}
{$define OPascal}
{$endif}
{$define use_allegro} // immer eingeschaltet, AURA setzt auf Allegro auf
const
COMBUF_TEXT_SIZE = 65536;
KERNEL_NORMAL = 0;
KERNEL_SAFE = 1;
KERNEL_RESETUP = 2;
KERNEL_TEXT = 3;
var
KernelMode: Cardinal;
Die Datei "aura.zip" enthält die C Version der GUI samt hinzuzulinkenden Bibliotheken.
Die habe ich noch mal dazu gepackt, weil einer bei meiner Interessenanfrage hier: http://www.lazarusforum.de/viewtopic.php?f=18&t=9721 geschrieben hatte, das er die Sourceforge Seite nicht aufrufen konnte.
.