Mir2 Actor.pas if (IsFace) and (FaceIndex > -1) then begin d := aFrmMain.WFaceimg.Images[FaceIndex * 10 + (FaceFram) mod 8] /// if HorseSurface<>nil then // dSurface.Draw (dx+shiftx, dy + hpy + ShiftY-60, d.ClientRect

const maxWidth = 200 maxHeight = 150 var thumbnail : TBitmap thumbRect : TRect begin thumbnail := Form1.GetFormImage try thumbRect.Left := 0 thumbRect.Top := 0 //proportional resize if thumbnail.Width &g

文本计算器说明 一、用法： 1、文本计算器具有关闭时是否保存计算结果的功能、计算结果的小数位选择功能，小数位0表示计算精度； 2、文本计算器打开时，可以自动加载上次的计算结果以及上次关闭时窗口位置； 3、双击计算器的文本框可打开数字键盘，方便笔记本用户使用； 4、输入数学表达式后，按回车键，自动计算结果； 5、一个表达式必须在一行内全部输入； 6、表达式不输入内容时直接回车，不再出现错误提示； 7、需要当记事本用时，在本行最前面加入 号，可不出现错误提示！