summaryrefslogtreecommitdiff
path: root/packages/ptc/src/c_api/console.inc
diff options
context:
space:
mode:
Diffstat (limited to 'packages/ptc/src/c_api/console.inc')
-rw-r--r--packages/ptc/src/c_api/console.inc497
1 files changed, 497 insertions, 0 deletions
diff --git a/packages/ptc/src/c_api/console.inc b/packages/ptc/src/c_api/console.inc
new file mode 100644
index 0000000000..fd2779475f
--- /dev/null
+++ b/packages/ptc/src/c_api/console.inc
@@ -0,0 +1,497 @@
+Function ptc_console_create : TPTC_CONSOLE;
+
+Begin
+ Try
+ ptc_console_create := TPTC_CONSOLE(TPTCConsole.Create);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_create := Nil;
+ End;
+ End;
+End;
+
+Procedure ptc_console_destroy(obj : TPTC_CONSOLE);
+
+Begin
+ If obj = Nil Then
+ Exit;
+ Try
+ TPTCBaseConsole(obj).Destroy;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_configure(obj : TPTC_CONSOLE; _file : String);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).configure(_file);
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Function ptc_console_option(obj : TPTC_CONSOLE; _option : String) : Boolean;
+
+Begin
+ Try
+ ptc_console_option := TPTCBaseConsole(obj).option(_option);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_option := False;
+ End;
+ End;
+End;
+
+Function ptc_console_mode(obj : TPTC_CONSOLE; index : Integer) : TPTC_MODE;
+
+Begin
+ Try
+ ptc_console_mode := TPTC_MODE(TPTCBaseConsole(obj).modes[index]);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_mode := Nil;
+ End;
+ End;
+End;
+
+Procedure ptc_console_open(obj : TPTC_CONSOLE; title : String; pages : Integer);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).open(title, pages);
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_open_format(obj : TPTC_CONSOLE; title : String; format : TPTC_FORMAT; pages : Integer);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).open(title, TPTCFormat(format), pages);
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_open_resolution(obj : TPTC_CONSOLE; title : String; width, height : Integer; format : TPTC_FORMAT; pages : Integer);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).open(title, width, height, TPTCFormat(format), pages);
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_open_mode(obj : TPTC_CONSOLE; title : String; mode : TPTC_MODE; pages : Integer);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).open(title, TPTCMode(mode), pages);
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_close(obj : TPTC_CONSOLE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).close;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_flush(obj : TPTC_CONSOLE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).flush;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_finish(obj : TPTC_CONSOLE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).finish;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_update(obj : TPTC_CONSOLE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).update;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_update_area(obj : TPTC_CONSOLE; area : TPTC_AREA);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).update(TPTCArea(area));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Function ptc_console_key(obj : TPTC_CONSOLE) : Boolean;
+
+Begin
+ Try
+ ptc_console_key := TPTCBaseConsole(obj).key;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_key := False;
+ End;
+ End;
+End;
+
+Procedure ptc_console_read(obj : TPTC_CONSOLE; key : TPTC_KEY);
+
+Var
+ tmp : TPTCKey;
+
+Begin
+ Try
+ tmp := TPTCBaseConsole(obj).read;
+ Try
+ TPTCKey(key).ASSign(tmp);
+ Finally
+ tmp.Destroy;
+ End;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_copy(obj : TPTC_CONSOLE; surface : TPTC_SURFACE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).copy(TPTCBaseSurface(surface));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_copy_area(obj : TPTC_CONSOLE; surface : TPTC_SURFACE; source, destination : TPTC_AREA);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).copy(TPTCBaseSurface(surface), TPTCArea(source), TPTCArea(destination));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Function ptc_console_lock(obj : TPTC_CONSOLE) : Pointer;
+
+Begin
+ Try
+ ptc_console_lock := TPTCBaseConsole(obj).lock;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_lock := Nil;
+ End;
+ End;
+End;
+
+Procedure ptc_console_unlock(obj : TPTC_CONSOLE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).unlock;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_load(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).load(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_load_area(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).load(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette), TPTCArea(source), TPTCArea(destination));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_save(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).save(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_save_area(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).save(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette), TPTCArea(source), TPTCArea(destination));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_clear(obj : TPTC_CONSOLE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).clear;
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_clear_color(obj : TPTC_CONSOLE; color : TPTC_COLOR);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).clear(TPTCColor(color));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_clear_color_area(obj : TPTC_CONSOLE; color : TPTC_COLOR; area : TPTC_AREA);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).clear(TPTCColor(color), TPTCArea(area));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Procedure ptc_console_palette_set(obj : TPTC_CONSOLE; palette : TPTC_PALETTE);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).palette(TPTCPalette(palette));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Function ptc_console_palette_get(obj : TPTC_CONSOLE) : TPTC_PALETTE;
+
+Begin
+ Try
+ ptc_console_palette_get := TPTC_PALETTE(TPTCBaseConsole(obj).palette);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_palette_get := Nil;
+ End;
+ End;
+End;
+
+Procedure ptc_console_clip_set(obj : TPTC_CONSOLE; area : TPTC_AREA);
+
+Begin
+ Try
+ TPTCBaseConsole(obj).clip(TPTCArea(area));
+ Except
+ On error : TPTCError Do
+ ptc_exception_handle(error);
+ End;
+End;
+
+Function ptc_console_width(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+ Try
+ ptc_console_width := TPTCBaseConsole(obj).width;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_width := 0;
+ End;
+ End;
+End;
+
+Function ptc_console_height(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+ Try
+ ptc_console_height := TPTCBaseConsole(obj).height;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_height := 0;
+ End;
+ End;
+End;
+
+Function ptc_console_pages(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+ Try
+ ptc_console_pages := TPTCBaseConsole(obj).pages;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_pages := 0;
+ End;
+ End;
+End;
+
+Function ptc_console_pitch(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+ Try
+ ptc_console_pitch := TPTCBaseConsole(obj).pitch;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_pitch := 0;
+ End;
+ End;
+End;
+
+Function ptc_console_area(obj : TPTC_CONSOLE) : TPTC_AREA;
+
+Begin
+ Try
+ ptc_console_area := TPTC_AREA(TPTCBaseConsole(obj).area);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_area := Nil;
+ End;
+ End;
+End;
+
+Function ptc_console_clip(obj : TPTC_CONSOLE) : TPTC_AREA;
+
+Begin
+ Try
+ ptc_console_clip := TPTC_AREA(TPTCBaseConsole(obj).clip);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_clip := Nil;
+ End;
+ End;
+End;
+
+Function ptc_console_format(obj : TPTC_CONSOLE) : TPTC_FORMAT;
+
+Begin
+ Try
+ ptc_console_format := TPTC_FORMAT(TPTCBaseConsole(obj).format);
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_format := Nil;
+ End;
+ End;
+End;
+
+Function ptc_console_name(obj : TPTC_CONSOLE) : String;
+
+Begin
+ Try
+ ptc_console_name := TPTCBaseConsole(obj).name;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_name := '';
+ End;
+ End;
+End;
+
+Function ptc_console_title(obj : TPTC_CONSOLE) : String;
+
+Begin
+ Try
+ ptc_console_title := TPTCBaseConsole(obj).title;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_title := '';
+ End;
+ End;
+End;
+
+Function ptc_console_information(obj : TPTC_CONSOLE) : String;
+
+Begin
+ Try
+ ptc_console_information := TPTCBaseConsole(obj).information;
+ Except
+ On error : TPTCError Do
+ Begin
+ ptc_exception_handle(error);
+ ptc_console_information := '';
+ End;
+ End;
+End;
View Lorry Controller Status