代码搜索结果

检测屏幕分辨率

unit uScreenCatchShow; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TCatchScreenShowFrm = class(TForm) ChildImage: TIm

SET CLASSLIB TO "tabmenu.vcx", "example.vcx" _SCREEN.Caption = "Visual FoxPro User Interface Test" DO screen.mpr READ EVENTS CLEAR ALL RETURN

% initFigures % Position 6 figures on the edges of the screen. % [xmin ymin w h] where (0,0) = bottom left % Numbers assume screen resolution is 1024 x 1280 global FIGNUM NUMFIGS FIGNUM = 1; NUMFIGS

% initFigures % Position 6 figures on the edges of the screen. % [xmin ymin w h] where (0,0) = bottom left % Numbers assume screen resolution is 1024 x 1280 global FIGNUM NUMFIGS FIGNUM = 1; NUMFIGS

unit DEWForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TDelExForm = class(TForm) Panel1: TPane

set stat bar off set talk off set safe off set dele on set cent on set date to ansi set debug off release window 常用 _screen.backcolor=rgb(80,180,150) _screen.caption="教务信息管理系统 作者:费道花" _

set stat bar off set talk off set safe off set dele on set cent on set date to ansi set debug off release window 常用 _screen.backcolor=rgb(80,180,150) _screen.caption="教务信息管理系统 作者:费道花" _

Set safety off Set talk off Set deleted on Clear memo Close all Public yonghu,denglu,hlp yonghu=sys(5)+curdir()+"用户.DBF" denglu=sys(5)+curdir()+"登录.DBF" hlp=sys(5)+curdir()+"帮助.chm" If fi

SET TALK OFF CLEAR ALL CLOSE ALL SET SYSMENU OFF _SCREEN.WINDOWSTATE=2 &&窗口最大化 _SCREEN.CAPTION='企业人事档案管理系统' _SCREEN.ICON='E:\Program Files\Microsoft Visual Studio\Vfp98\企业人事档案管理系统\ICONS\LOG