LuckyJan_Delphi基础,网页制作,Delphi图象截取编程-CSDN博客

原创 c#(SVG)无刷新，动态执行Javascript处理SVG对象:ajax 页面 (三)

注意：ajax.aspx 不包含等内容，只含一行.cs 调用说明，这样客户端返回空的 html在ajax.aspx.cs中输出js脚本到空白的aspx页面，然后返回给调用的doTestSVG.aspx============= （1）ajax.aspx ============================ （2）ajax.aspx.cs ============ protecte

2007-08-30 15:40:00 3075

原创 c#(SVG)无刷新，动态执行Javascript处理SVG对象:包含SVG的页面.cs源码 (二)

protected void Page_Load(object sender, EventArgs e){ if (!IsPostBack ) getDocSVG();} private void getDocSVG(){ this.thesvgdoc.Attributes.Add("src", "testSVG.SVG"); Resp

2007-08-30 15:08:00 2560

原创 c#(SVG)无刷新，动态执行Javascript处理SVG对象:包含SVG的页面.aspx (一)

========== 包含SVG的页面 ============== 设备布置图 window.moveTo(0,0); window.resizeTo(screen.availWidth,screen.availHeight); function refreshSVG(){ tscript.src="

2007-08-30 11:59:00 3060

原创诗词

悸动----献给我深爱的女孩2002-11-18 浣溪沙1994-12-26 蝶恋花(1) 1994-12-28 清平乐 1995-02-00 虞美人.伤春 1996-03-00 西江月 1996-10-00 木烂花.思过 1997-01-00 蝶恋花(2) 1997-07-00

2005-02-21 02:04:00 2123

var lunarInfo=new Array(0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,0x04970,0x0a4b0,

2005-02-06 11:03:00 3294

原创 Delphi葵花宝典2.7下载地址

Delphi葵花宝典2.7下载地址http://hubdog.csdn.net/Download/dlIndex.htm

2005-02-06 10:37:00 3354

原创点击DBGrid的Title对查询结果排序

//欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，//例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，//而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TfrmChild.DBGrid1TitleClick(Column: TColumn);var Sq

2005-02-06 10:34:00 2164 1

原创在Delphi里播放Flash

首先，你的机器里要装有Flash播放软件（你的IE能显示Flash）。IE之所以能显示Flash是安装了由Macromedia公司提供的swflash.ocx控件，我们可以在Win98的$Windows/System/Macromed /Flash中或在Win2000中的$Winnt/System32/ Macromed/Flash中找到它。ActiveX控件在Windows里是通用的，Delph

2005-02-06 10:31:00 2299

原创无标题窗口的移动

在Delphi编程中有时要对无标题窗体进行移动，以下就结合本人的经验介绍几种对无标题窗体移动的方法。　　方法一：　　通过响应“wm_NCHitTest”消息来移动窗体。Windows发送“wM_NCHitTest”消息来确定鼠标操作是否发生在窗体的客户区，或边框的特殊区上（非客户区）。如果Windows发现用户单击了窗体标题，系统将移动窗体，单击了窗体边框，则系统将开始改变窗体大小。　　例程

2005-02-06 10:28:00 2281

原创 Delphi编程点滴

//【1】希望按回车键、上下方向键而不是TAB在其间来回游动procedure TForm1.Tab(Sender: TObject; var Key: Word; Shift: TShiftState);Begin (**) if (key=VK_Down) or (key=13) then SelectNext(ActiveControl,True,True); if key=

2005-02-06 10:19:00 1926

原创自动生成拼音(汉字反查到拼音)

unit IMCode; // 简化版拼音反查单元interface{ iMode 二进制功能位说明 X X X X X X X X X X X X X X X X 3 2 1 1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取 2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 ? (本选项目针对全角字

2005-02-06 09:54:00 10247

原创设置可以从Windows资源管理器拖文件到 Form 上的 Momo

{如何在Delphi程序中支持文件拖放支持文件拖放关键在于两点：1、使程序能接收WM_DROPFILES 消息；2、在WM_DROPFILES 消息的响应程序中取得被拖放的文件名，然后进行相应处理。使程序能接收WM_DROPFILES 消息首先，需要调用WINAPI DragAcceptFiles(handle,True);其中的handle为要接收 WM_DROPFILES消息

2005-02-06 09:44:00 1876

原创调用DLL中的窗体

(1)DLL源码 library ProjectDll; uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs, UnitDll in UnitDll.pas {Form1};//DLL中的窗体 procedure ProvaChild(ParentApplication: T

2005-02-06 09:30:00 2221

原创网页设计常用代码精选,如屏蔽【复制、选择、右键菜单】等...

<BODY oncontextmenu=return false onselectstart=return false> =====================================onmousemove="HideMenu" oncontextmenu="return false" ----- 右键菜单 oncon

2005-02-04 16:07:00 2433

原创 HTML树形结构，用ID代替 "UL" "li"

树形示例： <img id="Image_Open" onclick="this.style.display=none; Image_Closed.style.display=inline; Text_Open.style.display=none; Text_Closed.style.display=inline;" src

2005-02-04 10:46:00 2902

原创解决Web安装程序不能选择安装目录问题(1)

解决Microsoft Visual Studio .NET的WebApplication 安装部署制作的安装程序不能选择安装目录的问题【问题提出】　　Microsoft Visual Studio .NET中的 Web Application 安装部署制作，它可以生成一个安装程序，此安装程序

2005-01-25 15:29:00 3444

原创解决Web安装程序不能选择安装目录问题(2)

（1）main()函数　　/// 　　/// 应用程序的主入口点。　　/// 参数 string[] args ：　　/// args[0] ：物理路径　　/// 　　///制作安装盘说明： [TARGETDIR]指当前安装路径　　/// (1)在“自定义操作===>安装”--->属性

2005-01-25 15:21:00 3910

原创解决Web安装程序不能选择安装目录问题(3)

CreateWebDir.cs 文件using System;using System.Data;using System.DirectoryServices;using System.Collections;namespace setWebDir{　　/// 　　/// IISManager 的摘要说明。　　/// 　　public class IISMana

2005-01-25 15:17:00 3248

原创解决Web安装程序不能选择安装目录问题(4)

INIFile.cs 文件 using System;using System.Runtime.InteropServices;using System.Text;namespace setWebDir{　　/// 　　/// INIFile 的摘要说明。　　/// 　　public class INIFile　　{　　　　public

2005-01-25 14:56:00 2984

原创社会的不公平

事实上绝大部分人的生活都是如此：总是寂寞的时候多。人生并不总是精彩的。我们要耐得住平凡和寂寞，同时再去努力装点生活。我的性格比较内向，但随着年龄的增长，渐渐容与社会，每个人都是社会的一分子，不可能脱离社会而独立曾在，我不善于交往，但必须强迫自己去做，这大概就是社会的"残酷"；都说"一分耕耘一分收获"，但现实并非如此，许多方面我都付出百分努力，却难于收获一分，我能有十分努力一分收获就满足了，

2005-01-18 21:55:00 1770

原创蝶恋花(3)

蝶恋花扶窗默思心自痛，高楼俯瞰，车疾灯朦胧。万家灯火各不同，绿酒红灯几从容？微吟不知词已穷，翩翩入梦，唯有情独钟。事业难成困重重，叹明朝何去何从？1999.8.

2004-11-23 11:25:00 1401

原创蝶恋花(2)

蝶恋花乱红飞过秋千古？遥望宫娥，无奈春将暮。泪眼问花花不语，空恨痴情无寻处。湖波映月碎无数，倒柳吻水，为伊吐尽絮。柔水鱼沉思无路，碧空雁落情太苦。1997.7.

2004-11-23 11:19:00 1371

原创木烂花.思过

木烂花.思过几度倩影见梦里，细语耳边神亦弛。难得玉人体慰语，牵手信步情相依。笑语忽醒空叹息，镰月钩破痴人意。从此情决陌路人！霓虹幻影莫再迷。1997.1

2004-11-23 11:00:00 1501

原创虞美人.伤春

虞美人.伤春危楼又怨人独伫，翘首思漫游。愁苦伤春春复暮，常忆湖面夕阳、人漫步。冷似玉钩挑夜幕，夜风春寒路。寒星点点似戮洞，缕缕淡云情丝、泪空流。1996.3.

2004-11-23 10:52:00 1573

原创西江月

西江月无故写诗添词，有时愁短肝肠！纵然生是多情种，可怜真情疯狂！可悲不识时务，行为不顾梦想。暮暮倚窗夕阳，只落凄凉惆怅。1996.10.

2004-11-23 10:45:00 1479

原创清平乐

清平乐何说无意？月下曾相依。恋酒初尝人易醉，遇苦或曰：“避...”人面湖边柳前，桃花须待春燕。问君何为情意？切莫强说遗憾。1995.2.

2004-11-23 10:37:00 2386 1

原创悸动----献给我深爱的女孩

悸动 ----- 献给我深爱的女孩(丰)是你触动了我激情与甜蜜混杂在一起你像女皇霸占了我的空间林中的夜莺不再感到孤独树梢上皓月不再觉得冷漠献给你，双手高捧着颤抖的心从此如甘露是你的言语从此似阳光是你的眼神你的柔情拨动着我的心弦浪漫如诗的音乐袅袅升起沐浴湖中的星儿翩翩起舞你的笑颜走进了我的梦中你的倩影映入了我的眼眸你像一朵绽放的小蔷薇缕缕清香如丝丝春风吹皱心中的一池静水有

2004-11-18 16:43:00 2156 3

原创蝶恋花(1)

蝶恋花拈句暗吟凉胜秋。举首遥望，孤影依危楼。朦胧淡月云懒游，几盏远灯暖星斗。忆作日时光空流。豪言壮语，可怜笑出口。情欢功名总难求，遥想前程使人愁。1994/12/28

2004-11-18 16:06:00 1545 1

原创浣溪沙

浣溪沙冷月满弓射北斗，寥落寒星颤发抖，人定鸡鸣楼上愁。孤雁南飞惊夜穹，哀鸣寒风印心头，离愁别恨系清秋。 1994/12/26

2004-11-18 15:23:00 2093

原创 (delphi)程序运行过程中等待对话框的自定义组件源码(包含两个提示,进度条,AVI)

注意：(组件安装前请按以下操作，des32.pas 对本工具无用) 用Delphi打开dsDlgPack.dpk组件包，然后“移去(Remove)”des32.pas文件，否则编译通不过源码下载地址：http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608若不能下载

2004-11-03 09:52:00 3208 2

原创在网页中访问量添加记数器

(1)在网页中访问量添加记数器第一步：在 http://laoan.com/counters/ 中注册一个用户第二步：输入资料及 “记数器数值”（初始值）第二步：在你个主页中添加代码：count.php?后面的参数是你的用户名 (2)在网页中访问量详细信息的连接第一步：在 http://www.50bang.com/ 中注册一个用户

2004-11-03 09:25:00 2107

原创解决IE经常出现“Microsoft Internet Explorer遇到问题需要关闭……”的信息提示

IE经常出现“Microsoft Internet Explorer遇到问题需要关闭……”的信息提示。怎么解决?　　答：建议你将IE升级为6.0版本。在Windows 9X/Me/NT/2000下，打开“注册表编辑器”，找到“HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Main”，在右侧窗格创建名为IEWatsonEnable

2004-11-03 08:58:00 6290

原创 Delphi图象截取编程示例(8)

(七)抓取图标（ICON）的窗体创建一个新的Form3，保存为Capture3.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle设为fsStayOnTop.一个私有变量：fDragging:Boolean; 两个公共变量:fRect:TRect,fBmp:TBitmap;unit Capture3;interface

2004-11-02 10:47:00 3789 1

原创 Delphi图象截取编程示例(7)

(七)抓取窗体或控件图片窗体创建一个新的Form2，保存为Capture2.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle设为fsStayOnTop.两个公共变量:fRect:TRect,fBmp:TBitmap;unit Capture2;interfaceuses Windows, Messages, Sy

2004-11-02 10:45:00 7259

原创 Delphi图象截取编程示例(6)

(六)区域抓图窗体创建一个新的Form1，保存为Capture1.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,Cursor设为crCross,FormStyle设为fsStayOnTop.添加一个私有变量：fDragging:Boolean;两个公共变量:fRect:TRect,fBmp:TBitmap;Form1的作用：在区域抓图时创建，

2004-11-02 10:44:00 6687 1

原创 Delphi图象截取编程示例(5)

3)抓取窗体或控件图片抓取窗体或控件图片，即要用到一个新的Form2，参见《Delphi图象截取编程示例(7)》在Main单元implementation的uses中添加Capture2。 [Capture Windows or Controls]窗体或控件抓图的Action 事件procedure TMainForm.cptWindowsExecute(Sender: TObje

2004-11-02 10:43:00 2023

原创 Delphi图象截取编程示例(4)

(六)TMainForm的 (抓图)Action 事件1)全屏抓图[Capture Desktop] Action 事件procedure TMainForm.cptDesktopExecute(Sender: TObject);begin inc(CaptureNum,1); Application.Minimize ; //窗体最小化 Delay(500);

2004-11-02 10:41:00 2228

原创 Delphi图象截取编程示例(3)

(五)TMainForm的事件和函数和 TPrinter打印应用////////// 打印知识[菜单项file/打印] 事件：procedure TMainForm.filePrintItemClick(Sender: TObject);begin {kh1}print;{kh2} Screen.Cursor := crHourglass; try if MDIChildCount

2004-11-02 10:39:00 2046

原创 Delphi图象截取编程示例(2)

(四)创建抓取图象的单元文件ScrnCptunit ScrnCpt;interfaceuses windows,forms,controls,classes,Graphics;function CaptureScreenRect(ARect:TRect):TBitmap;function CaptureScreen:TBitmap;function CaptureClientImage

2004-11-02 10:37:00 2387

原创 Delphi图象截取编程示例(1)

注意，本例在 Delphi7.0下调试通过///////////////////////////////////////////////////////////(一)建立项目 new Items-->Projects-->MDI Application (二)重新设计MDI子窗体--ChildWin,实现抓取的图象在ChildWin中显示。在ChildWin子窗体中去掉原有的Mem

2004-11-02 10:35:00 2228