请大家帮忙呀.我在ttreeview绘制了一副图片.
咋样重画ttreenode的节点的文字,使之透明的附在图上.不损坏图片的完整性?
咋样重画ttreenode的节点的文字,使之透明的附在图上.不损坏图片的完整性?
解决方案 »
- 如何解决Delphi XE3下表头和表格内容的线对不齐?
- 按1比1比例扫描的图片,如何将像索转为长度单位?
- 有关QueryPY.dll
- 键盘反应慢怎么办?
- 请问关于ACCESS查询在参数设置的问题
- 怎么把日期+时间变成为只有日期呢???
- 怎样写一个函数判断一个字符串是否日期类型(如2003-10-20)
- 怎样才能把DBGrid 里面的边框所有边条(行和列的外框条)边条的颜色变成红色。
- 从程序中导出到Excel文件时,如果存在相同名字的文件,保存总出错!请问各位高手如何解决!
- 请教窗体设计时,如何保证各控件在NT/2000/98下的显示效果相同?
- Application和Screen这两个对象是何时创建的
- 数据导出问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ComCtrls, Grids, DBGrids;type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
Button1: TButton;
ADOQuery1: TADOQuery;
Button2: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TreeView1: TTreeView;
TabSheet2: TTabSheet;
DataSource1: TDataSource;
ADOQuery1ID: TAutoIncField;
ADOQuery1ParentID: TIntegerField;
ADOQuery1Name: TWideStringField;
DBGrid1: TDBGrid;
Memo1: TMemo;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure FillTreeView(TreeView: TTreeView);
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;procedure TForm1.FillTreeView(TreeView: TTreeView);
procedure CreateSubTree(FNodeName: string; Node: TTreeNode = nil);
var
mLocalName: string;
TreeNode: TTreeNode;
Ads_Tmp: TADODataSet;
begin
ADS_Tmp := TADODataSet.Create(Self);
ADS_Tmp.Connection := ADOConnection1;
with ADS_Tmp do
try
Close;
CommandText := 'Select * from Type Where ParentID =' + FNodeName;
Open;
First;
while not Eof do
begin
mLocalName := FieldbyName('ID').Asstring;
TreeNode := TreeView.Items.AddChild(Node, FieldByName('Name').AsString);
CreateSubTree(mLocalName, TreeNode); // 此处循环递归
Next;
end;
finally
ADS_Tmp.Free;
end;
end;
begin
TreeView.Items.BeginUpdate;
TreeView.Items.Clear;
with TreeView.Items.Add(nil, '所有目录') do
begin
ImageIndex := 1;
SelectedIndex := 1;
end;
CreateSubTree('0', TreeView.Items[0]);
TreeView.Items.EndUpdate;
TreeView.Items[1].Selected := True;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
FillTreeView(TreeView1);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOQuery1.Close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.Open;
end;end.