Delphi & Pascal (česká wiki)
/******************************************************************************* * * * Subor OKNO.H * * * *****************************************************************************/ #define MAXRMENU 25 struct Okno { unsigned int lavy; unsigned int horny; unsigned int sirka; unsigned int vyska; unsigned int far *data; struct Okno far *prev; } Okno; struct Rmenu { int pocet; struct Menu *menu[MAXRMENU]; } Rmenu; void zisti_suradnice( struct Menu *menu,int *zx,int *zy,int *rx,int *ry ); void zarad_menu( struct Menu* ); void zrus_menu( void ); void redraw_menu( void ); void redraw_podmenu( struct Menu *menu ); void nakresli_okno( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned char attr_okna, unsigned char attr_okraja,unsigned char typ_okraja ); int otvor_okno( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned char attr_okna, unsigned char attr_okraja,unsigned char typ_okraja ); int zarad_okno( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska ); int zatvor_okno( void ); int zatvor_okno1( void ); void uloz_okno( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned int far *mem ); void obnov_okno( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned int far *mem ); void obnov_okno1( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned int far *mem ); void ramcek( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned char attr,unsigned char typ_ramceka ); void tien( unsigned int lavy,unsigned int horny,unsigned int sirka, unsigned int vyska,unsigned char attr ); /*-------------------------------END----------------------------------------*/