Gpc May 2005

gpc@gnu.de

18 participants
24 discussions

ProcPtr question
by Alain 07 May '05

07 May '05

Maxbe 'stupid' ... But I'm dealing with it ! ---------------------------------------- Type ptrRecord = ^theRecord; Type theRecord = record move : ProcPtr; hit : ProcPtr end; Procedure moveIt; Begin end; Procedure hitIt; Begin end; Procedure Init; Begin object^.move := @moveIt; object^.hit := @hitIt end; Procedure Run; Begin repeat with object^ do ???? Until ... End; ---------------------------------------- HOW can I make the actions point to moveIt and hitIt ? HOW is it possible to call the ProcPtr's procedures (Osx.3, GNU pascal) ? If you can help me, thank you ! Alain

3 3

ShortString
by Prof A Olowofoyeku (The African Chief) 06 May '05

06 May '05

Hi Would it be possible to predefine "ShortString" in GPC? (as "String [255]"). I appreciate that GPC doesn't yet have longstrings so this may seem pointless - but I can't see any harm in having ShortString already defined (at least, in Delphi mode). Thanks. Best regards, The Chief -------- Prof. Abimbola A. Olowofoyeku (The African Chief) web: http://www.greatchief.plus.com/

2 3

small ncurses demo
by Rick Engebretson 06 May '05

06 May '05

Here is an example of the gpc-ncurses "software label key" terminal display : ======================================================= > program slk ; > > uses ncurses ; > > > > var > label1, label2, label3, label4, label5, label6, label7, label8 : > CString ; > n : int32 ; > > begin > n := slk_init(1); > stdscr := initscr ; > n := start_color ; > > label1 := 'one' ; > label2 := 'two' ; > label3 := 'three' ; > label4 := 'four' ; > label5 := 'five' ; > label6 := 'six' ; > label7 := 'seven' ; > label8 := 'eight' ; > > n := slk_set(1, label1, 1); > n := slk_set(2, label2, 1); > n := slk_set(3, label3, 1); > n := slk_set(4, label4, 1); > n := slk_set(5, label5, 1); > n := slk_set(6, label6, 1); > n := slk_set(7, label7, 1); > n := slk_set(8, label8, 1); > > n := slk_refresh ; > > > n := init_pair (1, COLOR_RED, COLOR_BLUE ) ; > n := attron ( COLOR_PAIR(1)) ; > > n := getch ; > > n := endwin ; > end. > It especially looks nice on a SuSE 8.1 xterm. If the __p* name conflict gets resolved, gpc-libplot will complement nicely.

2 2

bug: ncurses + slackware 10.0, 10.1
by Russell Whitaker 01 May '05

01 May '05

Hi Program below illustrates a bug: lower case a, lower case f thru z, and number 0 are printed with graphic characters. This bug did not appear in earlier versions of slackware. If you make the window with a frame around it, (uncomment the framewin line) the characters are printed normally, and afterwards any window written to is also printed normally. program ncurtest; uses GPC, GPCUtil, CRT, FrameWin; var submenu : WinState; Data : array[1..3] of string( 32 ) = ( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz', '0123456789'); i : integer; begin i := (ScreenSize.X - 32) div 2; MakeWin( SubMenu, i, 2, i + 32, 7 ); { FrameWin('HELP: hit Enter to exit', DoubleFrame ); } FillWin( ' ', 16 * Blue ); HideCursor; for i := 1 to 3 do WriteStrAt( 2,i, Data[ i ], 16 * Blue + LightGray ); end. Russ Note to support(a)slackware.com, bug-ncurses(a)gnu.org: gpc(a)gnu.de is a pascal mailing list unit CRT is a pascal interface to ncurses

4 8

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc May 2005