代码搜索结果
找到约 10,000 项符合
Screen 的代码
start.prg
** 主程序 **
** 初始化环境 **
public oStartForm
set talk off
set escape off
set safety off
set notify off
set debug off
set echo off
set delete on
set century on
set date ansi
set hour to 24
on s
vesa.h
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include"ti
textboxtest.java
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class TextBoxTest extends MIDlet implements CommandListener{
Display display;
TextBox textBox;
Command exitCmd
unix 屏幕导向程序的发展利器2.htm
UNIX 屏幕导向程序的发展利器
u00404.pas
unit U00404;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TfrmSingle = class(TForm)
Button1: TButton;
Button2: TB
00404.txt
1：检测程序是否运行
在某些情况下，我们编写的应用程序同时只能有一个实例在内存中运行，例如服务器程序、需要独占某设备的程序，甚至我们仅仅是让程序同时只有一个实例运行。要实现此功能，需要在程序中加一点判断的代码。
再工程文件里面， Application.Initialize;前面加上判断就可以了，注意了，必须得加一个Windows单元，才能运行。
const
Cl ...
time.prg
DO FORM TIME
CLOSE DATABASE
_screen.caption=substr(_screen.caption,1,27)+space(2)+rq1+'年'+rq2+'月'
PUBLIC RQ1,RQ2,TIMEBZ,TIMEBZ1
TIMEBZ=1 && 应收、行业表用菜单跳过标志
TIMEBZ1=1 && 回收、调整电费用菜单跳过标志
SELE
打印位图.txt
#include
void PrintAsScreen( TCanvas *CanvasSource,TPrinter *Prntr,
TRect RectSource,TRect RectTarget)
{//所见即所得打印方式
Prntr->BeginDoc();
int OriginalMapMo
打印.txt
新建一个 Form 作为预览窗口，上面放一个 Image1，两个 TButton 名为 ButtonPreview 和 ButtonPrint，在 ButtonPreview 的 OnClick 事件中写：
int index = 1;//要预览的页码，总页数为xPage*yPage(请参考PreviewImagePage函数)
TPoint p = PrinterSize(
sysmets.h
/*-----------------------------------------------
SYSMETS.H -- System metrics display structure
-----------------------------------------------*/
#define NUMLINES ((int) (sizeof sysmetrics /