摘要:
一 窗体设计object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 397 ClientWidth = 530 Color = clNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = F 阅读全文
摘要:
在窗体上放入以Timer控件,在控件的Timer事件中写入varBrushPt:TPoint;BrushHandl,OldBrush:HBRUSH;FormDC:HDC;BrushOffset:Integer;beginBrushOffset:=0;FormDC:=GetDC(Form1.Handle);Inc(BrushOffset);BrushHandl:=CreateHatchBrush(HS_DIAGCROSS,clRed);SetBrushOrgEx(FormDC,BrushOffset,BrushOffset,nil);//设置画刷为网格形式OldBrush:=Select Obj 阅读全文
摘要:
一 新建一工程,设保存为OpenGLApp.dpr,窗口为Form1二 在Form1中加入Panel1和Button1,unit1.pas代码为unit Unit1;interfaceusesWindows,messages,Sysutils,classes,graphics,controls,Forms,Dialogs,OpenGL,Exectrs,Stdctrls;typeTForm1=class(TForm)Panel1:TPanel;Button1:TButton;procedure FormCreate(Sender:TObject);procedure PanelResize(Se 阅读全文
摘要:
为了测试PHP配置是否成功,可用下面的PHP代码测试<?phpphpinfo()?>测试PHP是否能够连接MySQL,可用下面代码测试<?php$link=mysql_connect('localhost','root','123456');if (!$link) echo "失败!";else echo "成功!";mysql_close();?> 阅读全文
摘要:
首先在PHP根目录中输入以下代码,并存为mytempate1.php<?phpinclude "template.inc";$my_color="blue";//将在后面使用$t=new template("E:\\Myphp\\templates");$t->set_file("myfileHandle","mytemplate1.ihtml");//设置myfileHandle=我们的模板$t->set_var("some_color",$my_colo 阅读全文
摘要:
ruby apache cgi 配置 1,按说明安装ruby的apache mod2,配置文件如下:Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1 ######################################################### 2 # ruby cgi 配置 3 ######################################################### 4 LoadModule 阅读全文