用Lazarus模仿Everything的关于窗口

最新推荐文章于 2024-04-23 15:15:57 发布
最新推荐文章于 2024-04-23 15:15:57 发布
阅读量900 收藏 3
点赞数
文章标签： everything ide windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_39124701/article/details/129385149
版权

0、Lazarus官网

https://www.lazarus-ide.org/

1、配置Lazarus编辑器

Lazarus开发环境配置

2、设置中文

菜单栏 - Tools - Options - Environment - General - Language
修改为 Chinese [zh_CH]
点击OK
菜单栏 - File - Restart

3、窗口找不到了？

情况一、按F12(源码编辑器切换好窗体源码，就是那个Unit1，Unit2，再按F12)
情况二、菜单栏 - 查看，每个选项挨个按(有看文字的功夫都按完一遍了，就挨个按就完了)

4、写代码的准备工作

创建文件夹，名为MyLazarusProject

5、新建图形界面的应用程序

在这里插入图片描述
菜单栏 - 工程(P) - 关闭工程
在这里插入图片描述
菜单栏 - 工程(P) - 新建工程
在这里插入图片描述
工程向导 - 新建工程(N)
在这里插入图片描述
选择应用程序，点击OK
在这里插入图片描述
菜单栏 - 文件(F) - 保存
选择之前创建的文件夹MyLazarusProject，点击打开，点击保存

6、开始拖窗口

6.1 设置Form1: TForm1属性

  1. 在对象查看器窗口选择Form1
  2. 第14项：Caption(窗口标题)，改为关于 Everything
  3. 第28项：Height(窗口高度)，改为300
  4. 倒数第2项：Width(窗口宽度)，改为376

6.2 添加TPanel1

  1. 选择Standard - TPanel，(自动显示预览窗口)
    在这里插入图片描述
  2. 在预览窗口中点一下，就添加了一个Panel1
    在这里插入图片描述
  3. 确认组件的父子关系，如图
    在这里插入图片描述

6.3 设置Panel1: TPanel属性

  1. 选择Panel1
  2. 倒数第18项：Left(组件位置)，改为-1(设置为0会有一个白边)
  3. 倒数第18项：Top(组件位置)，改为-1(0有白边)
  4. 第28项：Height(组件高度)，改为91
  5. 倒数第2项：Width(组件宽度)，改为378
  6. 第15项：Color(组件颜色)，改为clBlack(向上划，第一项就是clBlack)
    在这里插入图片描述

6.4 向Panel1中添加TStaticText1

  1. 选择Additional - TStaticText
    在这里插入图片描述
  2. 在预览窗口中的Panel1部分点一下，就添加了一个TStaticText
  3. 确认组件的父子关系，如图
    在这里插入图片描述
  4. 如果位置不对，可以鼠标抓住StaticText1，拖到Panel1上方松手即可

6.5 设置StaticText1: TStaticText属性

  1. 选择StaticText1
  2. Left，改为60
  3. Top，改为30
  4. Height，改为50
  5. Width，改为167
  6. Caption，改为Everything
  7. 展开第18项Font
    7.1 Font - Color，改为clWhite(第16项)
    7.2 Font - Size， 改为25
  8. 如图
    在这里插入图片描述

6.6 添加TPanel2

  1. 组件父子图如下
    在这里插入图片描述

6.7 设置TPanel2: TPanel属性

Left: -1 Top: 90
Width: 378 Height: 164
Font - Size: 8
清空Caption
在这里插入图片描述

6.8 向Panel2中添加3个TStaticText

在这里插入图片描述
这三个分别是StaticText2、StaticText3和StaticText4

  1. StaticText2
    1.1 Left: 60、Top: 18、Width: 150、Height: 50
    1.2 点击Caption右侧的三个点打开编辑对话框，输入以下内容
    Everything
版本 V1.4.1.1022 (x64)
Copyright © 2022 voidtools
  2. StaticText3
    2.1 Left: 60、Top: 68、Width: 150、Height: 17、Caption: david@voidtools.lazarus
    2.2 Font - Color: clBlue、Font - Style - fsUnderline: True
    2.3 Cursor: crHandPoint
  3. StaticText4
    3.1 Left: 60、Top: 85、Width: 150、Height: 17、Caption: https://www.voidtools.com/
    3.2 Font - Color: clBlue、Font - Style - fsUnderline: True
    3.3 Cursor: crHandPoint
  4. 如图
    在这里插入图片描述

6.9 添加TPanel3

在这里插入图片描述

6.10 设置TPanel3: TPanel属性

Left: -1、Top: 254、Width: 378、Height: 46、清空Caption

6.11 向Panel3中添加3个TButton

在这里插入图片描述
在这里插入图片描述

  1. Button1
    1.1 Left: 16、Top: 12、Width: 74、Height: 22
    1.2 Caption: 许可证(L)
  2. Button2
    2.1 Left: 208、Top: 12、Width: 74、Height: 22
    2.2 Caption: 致谢(C)
  3. Button3
    3.1 Left: 294、Top: 12、Width: 74、Height: 22
    3.2 Caption: 确定
    在这里插入图片描述

7、保存

菜单栏 - 文件(F) - 保存
选择之前创建的文件夹MyLazarusProject，点击打开，点击保存，点击保存再按一次

8、给组件添加点击事件

8.1.修改uses语句

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

改为

uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, lclintf;

8.2.双击组件StaticText3，自动生成点击事件

procedure TForm1.StaticText3Click(Sender: TObject);
begin
  OpenURL('mailto:david@voidtools.lazarus');
end;

8.3.双击组件StaticText4，自动生成点击事件

procedure TForm1.StaticText4Click(Sender: TObject);
begin
  OpenURL('https://www.voidtools.com/');
end;

8.4.双击组件Button3，自动生成点击事件

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

8.5.双击组件Button2，自动生成点击事件

procedure TForm1.Button2Click(Sender: TObject);
begin
  Panel2.Visible := not Panel2.Visible ;
end;

8.6.双击组件Button1，自动生成点击事件(先注释一下，因为第二个窗口还没写)

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Form2.show();
end;

9、新建第二个窗体

菜单栏 - 文件(F) - 新建窗体
选中Unit2，按F12调出预览窗口，添加滚动组件TScrollBox
在这里插入图片描述

  1. Form2属性：Height: 480、Width: 640、Caption: 许可证 - Everything
  2. ScrollBox1属性：Height: 480、Width: 640、Left: 0、Top: 0
    2.1 展开HorzScrollBar，设置Visible为False，展开VertScrollBar，设置Increment值为32
  3. 向ScrollBox1添加组件StaticText1
    在这里插入图片描述
  4. StaticText1属性：Left: 0、Top: 0
    4.1 展开Constraints，MaxHeight: 900、MaxWidth: 640、MinHeight: 900、MinWidth: 640
    4.2 Caption如下：
    
Everything

	Copyright (c) 2005-2017 David Carpenter
	
	Permission is hereby granted, free of charge, to any person obtaining a copy of
	this software and associated documentation files (the "Software"), to deal in 
	the Software without restriction, including without limitation the rights to 
	use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
	of the Software, and to permit persons to whom the Software is furnished to do
	so, subject to the following conditions:
	
	The above copyright notice and this permission notice shall be included in all
	copies or substantial portions of the Software.
	
	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 
	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 
	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 
	AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 
	LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 
	OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 
	SOFTWARE.

Perl-Compatible Regular Expressions

	Copyright (c) 1997-2012 University of Cambridge
	
	Redistribution and use in source and binary forms, with or without
	modification, are permitted provided that the following conditions are met:
	
	* Redistributions of source code must retain the above copyright notice,
	  this list of conditions and the following disclaimer.
	
	* Redistributions in binary form must reproduce the above copyright
	  notice, this list of conditions and the following disclaimer in the
	  documentation and/or other materials provided with the distribution.
	
	* Neither the name of the University of Cambridge nor the names of its
	  contributors may be used to endorse or promote products derived from
	  this software without specific prior written permission.
	
	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
	AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
	LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
	CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	POSSIBILITY OF SUCH DAMAGE.

10、修改代码

  1. 编辑Unit1，将Form2.show();的注释符号删除(代码在文章的8.6部分)
  2. 添加Form2窗口的引用(Unit2)
    uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, lclintf;
    改为
    uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, lclintf, Unit2;

11、保存

菜单栏 - 文件(F) - 保存
选择之前创建的文件夹MyLazarusProject，点击打开，点击保存

12、F9运行

在这里插入图片描述

13、unit1.pas代码

unit Unit1;

{$mode objfpc}{$H+}

interface

uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, lclintf, Unit2;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure StaticText3Click(Sender: TObject);
    procedure StaticText4Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StaticText3Click(Sender: TObject);
begin
  OpenURL('mailto:david@voidtools.lazarus');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Panel2.Visible := not Panel2.Visible;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.show();
end;

procedure TForm1.StaticText4Click(Sender: TObject);
begin
  OpenURL('https://www.voidtools.com/');
end;

end.

14、最终exe文件位置

.\MyLazarusProject\project1.exe
文件大小5460KB，EXE单文件，无引用无引擎，压缩还能降到1126KB

15、文档和社区

https://forum.lazarus.freepascal.org/index.php/board,13.0.html
https://wiki.lazarus.freepascal.org/
 
 
请添加图片描述

qq_39124701
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
lazarus调用动态库DLL的例子
06-22
linux和windows下利用lazarus开发及调用动态库的例子。
lazarus IDE mplayer GUI playfile
03-17
lazarus IDE 1.2.6 为 mplayer 写的 GUI 小程序，用 free pascal 编译, 需要安装[ 格式工厂 ]这个应用软件 FormatFactory_setup-4.2.0.0.exe
一个漂亮的lazarus做的pagecontrol
weixin_30363817的博客
07-16 662
厌倦了屏幕上的默认灰色？让我们来欣赏一下商业配色。 这个组件实现了高光，点睛色，描边边等效果， 再配几组色彩，应该非常不错。 基于 lazarus 1.08 大家可以上 www.fpccn.com 看看 转载于:https://www.cnblogs.com/stevenlaz/p/3193950.html...
Spring Boot + Mybatis 实现动态数据源案例分析
08-26
主要介绍了Spring Boot + Mybatis 实现动态数据源,需要的朋友可以参考下
lazarus：Lazarus-与Free Pascal一起使用的IDE和GUI工具包。 这是Lazarus SubVersion存储库的非官方镜像，仅供参考。 每15分钟同步一次。 要提交补丁或错误报告，请访问http://bugs.freepascal.org
02-13
lazarus：Lazarus-与Free Pascal一起使用的IDE和GUI工具包。 这是Lazarus SubVersion存储库的非官方镜像，仅供参考。 每15分钟同步一次。 要提交补丁或错误报告，请访问http://bugs.freepascal.org
miniframe开源Web框架(适配delphi、lazarus)
未来的专栏
08-09 441
miniframe开源Web框架，一个使用pascal脚本编写业务代码的服务端框架。框架已实现了HTTP服务、脚本解释执行、多种数据库连接、数据库缓冲池、连接缓冲池等底层支持。在此基础上使用者只需要关注自己的业务实现即可。
Delphi/Lazarus下实现无缝窗口
离,路的尽头还很远...
06-21 2646
http://codegoo.net/forum.php?mod=viewthread&tid=78&extra=
用lazarus快速生成界面并运行 python代码
追
08-30 5785
lazarus是Delphi的开源版本，几乎全盘继承了Delphi快速开发的优点。一个一般的数据库桌面应用，几乎几分钟就可以搞定。一次编码，到处编译，可以支持全部操作系统例如windows、mac、linux、安卓、苹果等。 最近学习python，感觉通过直接用python开发图形界面很不方便。幻想如果能lazarus的图形界面设计能力和python的强大功能结合那就太完美了。中间摸索过程太漫长...
(lazarus)用BGRABitmap渲染前面的TAChart，让它更好看
追
02-17 1221
设计状态下，双击chart，弹出series窗口，选中Chart1BarSeries1，增加Chart1BarSeries1BeforeDrawBar事件： procedure TForm1.BeforeDrawBarHandler(ASender: TBarSeries; ACanvas: TCanvas; const ARect: TRect; APointIndex, AStackIn
lazarus的bgracontrols皮肤，支持WIN8,安祖，LINUX
kc87654321的专栏
06-04 2362
为手机设计的皮肤，WIN78,安坐的界面,以及很好的皮肤界面 先安装bgrabitmap5.7.1.zip 然后bgracontrols-1.4.0.1.zip
lazarus：Lazarus IDE非官方镜像。 ---官方svn存储库svn.freepascal.orgsvnlazarus---要报告问题，请使用https：//bugs.freepascal.orgmain_page.php上的bugtracker---必须在我的官方Lazarus邮件列表上与我预先同意拉取请求，或者论坛。 对于SynEdit或调试器，通常是可以的
02-27
lazarus：Lazarus IDE非官方镜像。 ---官方svn存储库svn.freepascal.orgsvnlazarus---要报告问题，请使用https：//bugs.freepascal.orgmain_page.php上的bugtracker---必须在我的官方Lazarus邮件列表上与我预先同意拉取请求，或者论坛。 对于SynEdit或调试器，通常是可以的
开始编程使用pascal与lazarus.pdf
06-19
这本书是为想学习 Object Pascal 语言的程序员所编写。它也适合作为新学生或非程序员的第一本编程书. 它除 Object Pascal 语言之外，还大体上说明编程技术。
LazWebsockets:用Lazarus编写的Websocket服务器和客户端库
03-05
因此，仅使用fpc即可轻松构建它，而无需使用Lazarus或复杂的makefile。 安装 此存储库中有一个Lazarus软件包文件（ websockets.lpk ），可用于Lazarus项目。 另一种选择是简单地将src目录添加到您的单位搜索路径。 ...
Lazarus image processing5_lazarus_
10-03
Image processing lazarus ide part 5
Lazarus image processing_lazarus_
09-29
Computer graphics with lazarus IDETranslation and Scaling
Lazarus开发串口通信
01-20
整个界面的外观和操作和Delphi IDE一样，因此，如果你会使用Delphi的话，用起Lazarus IDE来就一定能得心应手了。  引集成开发环境  Lazarus是一个用于FreePascal的快速应用开发（RAD）的面向对象的Pascal集成开发...
如何快速找到python里面from_pretrained下载的模型位置（利用everything或fsearch）
最新发布
weixin_44162814的博客
04-23 244
经常在python中会下载预训练模型，然后在pycharm中使用ctrl+鼠标点击也无法跳转位置。安装完后，把家目录添加到搜索路径，第一次搜索的话等待几分钟，然后就可随便搜索内容。/home/jie/.cache/huggingface/hub目录下。这时候在搜索stabilityai，即可查到之前下载的模型位置，位于。windows可以在软件商店下载everything。linux可以按照使用下面命令下载fsearch。
【嵌入式】Arduino IDE + ESP32开发环境配置
sinat_33408502的博客
04-23 1442
最近想捣鼓一下ESP32的集成芯片，比较了一下，选择Arduino IDE并添加ESP32支持库的方式来开发，下面记录一下安装过程以及安装过程中遇到的坑。
TCP案例-实时群聊
qq_40603125的博客
04-23 462
【代码】TCP案例-实时群聊。
使用lazarus开发linux系统的桌面程序
06-09
Lazarus是一款跨平台的集成开发环境（IDE），可以用来开发Linux系统的桌面程序。下面是使用Lazarus开发Linux系统的桌面程序的基本步骤： 1. 安装Lazarus IDE。可以从Lazarus官网（https://www.lazarus-ide.org/）下载并安装Lazarus IDE。 2. 创建一个新的项目。在Lazarus IDE中，选择 “File” -> “New Project”，然后选择 “Application” -> “GUI Application”创建一个新的项目。 3. 设计界面。在Lazarus IDE的界面设计器中，可以通过拖拽控件来设计应用程序的用户界面。 4. 编写代码。在Lazarus IDE中，可以使用Pascal语言编写应用程序的逻辑代码。 5. 编译和运行程序。在Lazarus IDE中，选择 “Run” -> “Run” 编译并运行程序。 需要注意的是，由于Linux系统的多样性，不同的Linux系统可能需要不同的依赖库和配置。在开发和部署Linux程序时，需要针对具体的Linux系统进行调试和适配。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值