- 博客(13)
- 资源 (1)
- 收藏
- 关注
原创 To know if you use hardware or generic renderer in OpenGL
If you put this code in your init routine, youll be able to know what youre really using in OpenGLchar *r = (char *)glGetString(GL_RENDERER);char *v = (char *)glGetString(GL_VENDOR);char *ver = (c
2006-01-31 15:35:00 1514
原创 [原创] 将多个jpg文件以追加形式合并成一个文件
DFW里有朋友问:有多个jpg文件,如:1.jpg2.jpg3.jpg......怎样将这些文件以追加形式合并成一个新的jpg文件?也就是说1.jpg作为第一页,2.jpg作为第二页,如此类推.想了一下,思路就是把每个jpeg文件解码成位图以后进行拼接再编码为jpeguses ..., Jpeg;......procedure TForm1.Button1Click(Sender: TObject
2005-04-14 11:15:00 17274
原创 让窗体在执行了“显示桌面”以后仍旧显示在桌面上……
昨天在DFW上看到一个问题,要求“使程序窗口置于最低层(在桌面上);点击“显示桌面”以后还是在桌面上”,琢磨了一下,实现了“让窗体在执行了‘显示桌面’以后仍旧显示在桌面上”,代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;type TF
2005-04-14 09:29:00 1564
原创 [原创] 又有新瓶装旧酒——使用Delphi实现图片界面换肤色 (2004-8)
软件的“换肤”技术早已不是什么新鲜事了,但细心的朋友一定已经发现了,现在正悄悄地流行了一种新的改善视觉效果的方法——这里我斗胆定义为“换肤色”技术吧!用过Winamp 5、Windows MediaPlay 9、MSN Messenger 6、QQ2004这些新版本软件了吧,呵呵,全都采用了所谓换汤不换药的“换肤色”技术。挺有意思是吧,下面我们就“自己动手,丰衣足食”。 首先我用eX
2004-12-28 10:27:00 3791 2
原创 [原创] Delphi入门点点滴滴 (2001-12,久远了点,呵呵)
[发表于2002年第11/12期《电脑报》软件星空版,连载两期。] “聪明的程序员用Delphi!”现在,真是有越来越多的人开始用Delphi了。不过,高手毕竟是少数,像我这样的菜鸟可谓遍地都是,哈哈。既然是菜鸟自然就有一大堆很菜的问题,什么这个怎么设置、那个怎么写的……所以,以下我就以我所积累的那一点点经验和论坛上常见的小问题作一个总结性发言(全场热烈鼓掌!哎,这鲜花我就收下了,那个什么烂
2004-12-27 14:37:00 2461 2
原创 最大公约数的算法
== 欧几里德算法 ==1.若a=0,则d:=b、跳至第9步;2.若b=0,则d:=a、跳至第9步;3.若a4.d:=a mod b;5.a:=b;6.b:=d;7.若d8.d:=b;9.结束。== Stein算法 ==1.若a=0,则d:=b、跳至第12步;2.若b=0,则d:=a、跳至第12步;3.令正整数p:=0;4.若a和b都是偶数,则a:=a/2、b:=b/2、p:=p+1;
2004-12-27 14:31:00 1206
转载 Brown.css(原)
body {background-color : #DDC;}h1 a:visited, h1 a:active, h1 a:link { color : #FFE; }h1 a:hover { color : #443; }#tagline { color : #FFE; }a:visited, a:active,
2004-09-04 22:49:00 1192
转载 Style.css(原)
body {font-size : 0.9em;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;margin : 0px;} a:visited,a:active,a:link { color : #00F;text-decoration : none;}a:hover {text-decoration : under
2004-09-04 22:32:00 2192
原创 动态隐藏/显示窗口的标题栏(同时保持窗口的Sizeable性能)
今天考虑作界面的时候,想去掉窗体的标题栏,但设置 Form.BorderStyle := bsNone; 会导致窗体不可再 Sizeable (通过鼠标操作改变窗体大小),仔细翻看了相关Help也没找到解决办法。在DFW里终于搜索到答案:{ 对指定窗体设置属性 }SetWindowLong(Handle, { 当前窗体句柄 } GW
2004-08-11 23:32:00 2161
原创 [原创] 用Delphi实现控制IE窗体的大小——IESizer程序原理分析 (2003-12)
做过网页的朋友都知道,在设计网页的时候有一个很重要的问题,就是要使网页在不同的分辨率(体现在可视屏幕大小)下都能有良好的显示效果;另外有些时候可能要做一些特殊用途的网页(例如广告或通告等页面),当设计网页时或许就需要频繁地测试在不同的浏览器大小下的效果。这些时候,我们总不能不停地更改系统分辨率吧?!(累死人而且没效率,更何况有谁会这么傻傻的做呢,呵呵)要是能随心所欲的控制浏览器的大小该多好!有朋友
2004-08-10 23:33:00 3056 2
原创 枚举系统中正在运行的进程并强制终止指定的进程
看到朋友的帖子,收藏一下。[2002-2-19]枚举系统中正在运行的进程并终止指定的进程:在 uses 里添加 TlHelp32 单元,另外在窗体上加一个 Button 和一个 Edit :procedure TForm1.Button1Click(Sender: TObject);var Id: DWORD; // 进程标识 ExeFile: Stri
2004-08-10 22:08:00 2133
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人