bmpcustm.pro

来自「利用人工智能程序设计语言prolog编程实现的公式计算软件源代码。」· PRO 代码 · 共 59 行

/*****************************************************************************

		Copyright (c) Phd 301 Workshop

 Project:  FORMULA
 FileName: BMPCUSTM.PRO
 Purpose: Developed by Chen Hongbiao, All Rights Reserved. Granted to be used by Xuwang Company
 Written by: Dr. Chen Hongbiao (陈鸿标 )
 Comments: use bmp custom control in a dialog
 
******************************************************************************/

include "formula.inc"
include "formula.con"
include "hlptopic.con"


/*GLOBAL PREDICATES

bmpctrl_register
bmpctrl_SetBMPFile(WINDOW, String File, BOOLEAN Stretch) - (i,i,i)
*/
DOMAINS

CTRLBMP = file(STRING FileName); resid(RESID)

DATABASE - bmpctrl

ctrl_bmp(WINDOW, CTRLBMP, BOOLEAN Stretch)

PREDICATES

win_bmpctrl_eh : EHANDLER

CLAUSES

win_bmpctrl_eh(_Win, e_Update(_UpdateRct),0):-

ctrl_bmp(_Win, file(File),b_True),!,
Picture = pict_Load(File),
pict_GetSize(Picture, X, Y, _Size),
WinRCT = win_GetClientRect(_Win),
pict_Draw(_Win, Picture, WinRCT, rct(0,0,X,Y),rop_SrcCopy),
pict_Destroy(Picture),
!.

CLAUSES

bmpctrl_register :-
	class_Create("BMPCTRL", win_bmpctrl_eh).

CLAUSES

bmpctrl_SetBMPFile(Win, File, Stretch) :-

retractall(ctrl_bmp(Win,_,_)),

assert(ctrl_bmp(Win, file(File),Stretch)).