代码搜索结果
找到约 10,000 项符合
Screen 的代码
chapter07mypaint.pro
; Chapter07MyPaint.pro
PRO Chapter07MyPaintExit, Event
WIDGET_CONTROL, Event.TOP, /DESTROY
END
PRO Chapter07MyPaintCleanUp, ID
WIDGET_CONTROL, ID, GET_UVALUE=InfoPointer
PTR_FREE, In
tstest.c
#include
#include
#include
/* for data reading from /dev/ts */
typedef struct {
unsigned short pressure;
unsigned short x;
unsigned short y;
unsign
15-11.c
int main()
{
GameState game_state;
Sprite_t tank;
SDL_Event event;
Init_SDL();
tank.image=IMG_Load("tank.png");
SDL_SetColorKey(tank.image,SDL_SRCCOLORKEY,SDL_MapRGB(tan
hos2.s
.code16
.globl _start
_start:
movw $0x1000, %ax
movw %ax, %ds
movw %ax, %es
call screen_setup
movw $greet, %si
call print
lp: jmp lp
screen_setup:
movw $0xb800, %ax
movw %a
project1.dpr
{
Demo: Realisierung eines Splash-Screen
(c) 1998 Rainer Reusch & Toolbox
}
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {SplashForm};
{$R *.
project1.dpr
{
Demo: Realisierung eines Splash-Screen
(c) 1998 Rainer Reusch & Toolbox
}
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {SplashForm};
{$R *.
module1.bas
Attribute VB_Name = "Module1"
Option Explicit
Public Sub Main()
Dim x, y
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
MsgBox "您的电脑解析度是"
第五章实例源程序鼠标器.c
/*为了让本实例尽可能简洁的突出鼠标编程，而不在其他方面过多分散读者的注意力。我忽略了很多实现的细节，读者对于可以在十进制编辑框中输入字符"F"之类的问题不要太吃惊。有兴趣的读者可以很容易的修正这个"bug"*/
#include
#include
#include
#include
#include
xclippbm.asm
;-----------------------------------------------------------------------
; MODULE XCLIPPBM
;
; This module was written by Matthew MacKenzie
; matm@eng.umd.edu
;
; Clipped transfer of planar bitm
gobck.m
%
% when finished initial viewing of data return to
% the previous screen .....
close_btn=uicontrol(main,...
'Style','Push',...
'units','Pixels',...
'Position',[420 12