
Lazarus + FreePascal
Arbin
这个作者很懒,什么都没留下…
展开
-
Lazarus安装Indy-10.2.0.3
把Lazarus安装在不含空格的路径下,并启动。 下载Indy-10.2.0.3.tar.gz或Indy-10.2.0.3.zip,并解压缩至Indy-10.2.0.3文件夹。建议把Indy-10.2.0.3文件夹放置在Lazarus路径的components中,因为使用时发现安装完成后Indy-10.2.0.3文件夹不能随意移动,如果移动则提示加载Indy失败。进入Lazarus,选择菜单[Components]->[open package file (.lpk)],在Indy-10.2.0.3文件夹原创 2011-03-17 10:02:00 · 4378 阅读 · 0 评论 -
Lazarus中TrayIcon的图标运用(Windows)
1、用文本工具建立RC文件放在工程目录下,如tray_test.rc,内容如下: 101 ICON "Aire_095.ico"102 ICON "Aire_063.ico" 用lazarus的lazarus/pp/bin/i386-win32/中的Windres生成RES文件: windres -i tray_test.rc -o tray_test.res 2、从组件栏的Additional中选择TTrayIcon,放在Form上,并修改主Main的Form的代码: 在Inter原创 2011-03-17 10:33:00 · 1715 阅读 · 0 评论 -
图形化的PageControl皮肤(在delphi和Lazarus环境下都支持)
<br />最近做一个项目,对界面有一定的要求,于是就做了这个小东东,实现起来挺方便的效果也不错,拿出来供大家参考。<br /> <br />上图是最终的效果图。<br /><br />上图是组成TabSheet的图片,更换这些图片可以实现不同的风格效果。<br />下面是源码:<br />unit UnitMain;{$mode objfpc}{$H+}interfaceuses Classes, SysUtils, FileUtil, Forms, Controls, Gr原创 2011-03-30 16:12:00 · 5845 阅读 · 1 评论 -
Lazarus中指定将控件的事件与delphi的区别
在Delphi中,我们可以将一个函数赋值给一个控件的事件,比如:procedure TForm1.btnClick(Sender: TObject);begin //..........end;procedure TForm1.FormCreate(Sender: TObject);begin Button1.OnClick := btnClick;end;但是,在Lazarus中,我们如原创 2011-06-10 16:31:00 · 2482 阅读 · 0 评论 -
利用TIdHttp实现文件下载的分块断点续传
环境delphi2007 + indy网上有大量利用TIdHttp控件下载并支持断点续传的例子,但在delphi2007环境下运行都不成功。最近应为项目需要编写了一个测试程序,可以成功实现分块断点续传,并支持链接重定向后,自动获得真实的下载文件名。供大家参考。(想修改成多线程下载也只是增加一些逻辑就可以了。)procedure TForm3.RzButton1Click(Sender:原创 2011-04-15 14:47:00 · 7944 阅读 · 2 评论 -
如何减小Lazarus编译出的文件的大小
方法一:在菜单【project】-->【project option】的弹出界面中选择【compiler option】-->【linking】在debugging中,去掉“Generate debugging info for GDB (slower / increases exe-size)”去掉“display line numbers in run-time error原创 2011-03-17 10:23:00 · 6729 阅读 · 1 评论 -
DELPHI使用TClientDataSet时不携带MIDAS.DLL的方法
TClientDataSet人人都喜欢使用。但是,调用TClientDataSet是有代价的,因为你同时也得包含MIDAS.DLL。 能不能使用TClientDataSet又不用MIDAS.DLL呢? 很简单,就是uses一下MidasLib单元! MidasLib单元在Delphi6以及DELPHI的更高版本中才转载 2013-08-12 10:43:22 · 1558 阅读 · 0 评论