代码搜索：Screen
找到约 10,000 项符合「Screen」的源代码
代码结果 10,000
www.eeworm.com/read/197803/7969919
txt hqpm.txt
----Borland公司的天才设计师们用画布（Tcanvas）对象封装了Windows的大部分图形输出功能，这使得我们可以通过他以更直观的方式和Windows的屏幕打交道，而不必关心令人头疼的WindowsAPI函数。下面的一小段程序就可以实现整个屏幕的图象拷贝了。
var//变量声明
Full<mark>screen</mark>:Tbitmap;
Full<mark>screen</mark>Canvas:TCanvas;
dc: ...
www.eeworm.com/read/298212/7970887
frm frmnewsbar.frm
VERSION 5.00
Begin VB.Form frmNewsBar
BackColor = &H00000080&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 315
ClientLeft = 0
C
www.eeworm.com/read/197718/7972839
bak 程序1.bak
_screen.visible=.f.
set path to \工资管理系统\data\
do form \forms\密码认证.scx
read events
www.eeworm.com/read/197718/7972840
prg 程序1.prg
_screen.visible=.f.
set path to \工资管理系统\data\,\工资管理系统\
do form \forms\密码认证.scx
read events
www.eeworm.com/read/197566/7985804
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
P
www.eeworm.com/read/197566/7985807
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
Image1:
www.eeworm.com/read/197566/7985832
~pas unit2.~pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
Image1:
www.eeworm.com/read/197566/7985848
~pas unit1.~pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
P
www.eeworm.com/read/398357/7992081
frm form11.frm
VERSION 5.00
Begin VB.Form Form11
BorderStyle = 0 'None
Caption = "Form11"
ClientHeight = 2970
ClientLeft = 0
ClientTop = 0
ClientWidth
www.eeworm.com/read/197344/8003231
prg main.prg
clear screen
clear events
*
open database database\salary
*
do form ksjm
*
do setting
*
read events
*
close database
do reset