本教程共用12个例子，将python tkinter所常用的控件进行用法展示，所展示的控件分别为 Label控件，Entry控件，Text控件，Button控件，canvas控件，Radiobutton控件，Checkbutton控件，List控件，Scale控件，Menu控件，Frame控件及补充的Treeview控件。包含一个WORD文档，用于对整理的构架进行汇总，另外，对每个控件，包含单独的 *.py文件，供python直接运行使用
2021-09-16 18:04:43
2MB
1
//显示任意一个目录的文件到TReeview中
unit uTreeViewDemo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, FileCtrl;
const
SELDIRHELP = 1000;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;
IncludeFiles: Boolean);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;
IncludeFiles: Boolean);
var
SearchRec: TSearchRec;
ItemTemp: TTreeNode;
begin
TreeView1.Items.BeginUpdate;
if Directory[Length(Directory)] '\' then
Directory := Directory + '\';
if FindFirst(Directory + '*.*' , faDirectory, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] '.') then
begin
if (SearchRec.Attr and faDirectory > 0) then
Item := Tree.Items.AddChild(Item, SearchRec.Name);
ItemTemp := Item.Parent;
GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);
Item := ItemTemp;
end
else
if IncludeFiles then
if SearchRec.Name[1] '.' then
Tree.Items.AddChild(Item, SearchRec.Name);
until FindNext(SearchRec) 0;
FindClose(SearchRec);
TreeView1.Items.EndUpdate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
strOpenDir: string;
begin
if SelectDirectory(strOpenDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
try
GetDirectories(TreeView1, strOpenDir, nil, True);
except
ShowMessage('错误信息');
end;
end;
end.
2021-09-09 17:14:47
200KB
1
原创3D直角坐标系演示控件，使用C#和OpenTK(基于OpenGL)编写，具有如下特点：
1.带有一个空间方位指针。指针指向可由方向角和俯仰角确定。
2.实现了鼠标轨迹球(ArcBall)功能。可以用鼠标拖动直角坐标系任意旋转，运行流畅，查看灵活。
目前网上关于OpenTK的中文资源很少，故在此附上源代码和测试用例，供大家参考。
2021-09-05 18:29:53
1.48MB
1
Edgewebbrowser 控件及安装说明
1. 先运行MicrosoftEdgeWebview2Setup 安装EDGE Dev版本
2. 复制webview.dll 和WebView2Loader.dll 两个文件到程序的同一目录下
2021-08-24 21:02:30
1.75MB
1
目 录
1 引言 1
1.1 目的 1
1.2 参考资料 1
2 GRID控件介绍 1
2.1 功能介绍 1
2.2 框架介绍 2
2.3 主要类介绍 4
2.3.1 CGridCtrl类 4
2.3.2 CGridCellCheck类 5
2.3.3 CGridCellCombo类 7
2.4 控件类CGRIDCTRL常用函数说明 10
2.4.1 行和列的设置 10
2.4.2 单元格信息设置 12
2.4.3 控件操作 15
2.4.4 外观和特征设置 20
2.4.5 颜色设置 23
2.4.6 控件消息介绍 26
3 实例制做 27
3.1 实例图片 27
3.2 实例制做过程介绍 27
3.2.1 新建项目 27
3.2.2 初使化GridCtrl控件 28
3.2.3 设置固定行和列 30
3.2.4 向单元格插入图片 31
3.2.5 设置CheckBox列 32
3.2.6 设置ComboBox列 33
3.2.7 设置行背景颜色和列背景颜色 34
3.2.8 添加消息处理 35
4 实例以外的思考 36
2021-08-21 15:35:54
386KB
1