JianjunLiu
parent
25cc144bb7
commit
3546020970
|
|
@ -1801,10 +1801,6 @@ type TFileTree = class(TTreeCtl)
|
|||
end
|
||||
fprojectpath;
|
||||
fio;
|
||||
function CreateTreeNode();override;
|
||||
begin
|
||||
return New TTNode(self);
|
||||
end
|
||||
function GetInfo(dir,files); //获得信息
|
||||
begin
|
||||
leafs := array();
|
||||
|
|
@ -1902,10 +1898,12 @@ type TFileTree = class(TTreeCtl)
|
|||
fio := ioFileseparator();
|
||||
ImageList := CreateaImageList(self,FImageIdName);
|
||||
hasline := true;
|
||||
nodecreator := class(TTNode);
|
||||
FPNode := CreateTreeNode();
|
||||
FPNode.Caption := "当前工程";
|
||||
FPNode.FType := "dir";
|
||||
FPNode.parent := RootNode;
|
||||
|
||||
//SetSel(FPNode);
|
||||
end
|
||||
function GetNodesByName(nds,n);
|
||||
|
|
|
|||
|
|
@ -550,6 +550,7 @@ type TDComponent = class()
|
|||
nn := cn+inttostr(i++);
|
||||
if nn in TemporaryNotName then continue;
|
||||
obj.name := nn;
|
||||
if obj.Name<>nn then continue;
|
||||
SetComponentProperties("caption",nn);
|
||||
oname := nn;//obj.name;
|
||||
end
|
||||
|
|
@ -812,10 +813,6 @@ type TComponentTree = class(TTreeView) //
|
|||
begin
|
||||
if not FLoading then inherited;
|
||||
end
|
||||
function CreateTreeNode();override; //构造节点
|
||||
begin
|
||||
return new TComponentTreeNode(self(true));
|
||||
end
|
||||
function Recycling();override; //»ØÊÕ
|
||||
begin
|
||||
FDesigner := nil;
|
||||
|
|
@ -826,6 +823,7 @@ type TComponentTree = class(TTreeView) //
|
|||
inherited;
|
||||
asdomain := true;
|
||||
FDesigner := AOwner;
|
||||
nodecreator := class(TComponentTreeNode);
|
||||
end
|
||||
function GetRootNode();override; //¸ù½Úµã
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -11,36 +11,35 @@ type tcontrol = class(tcomponent)
|
|||
{$define gdipaint}
|
||||
{$endif}
|
||||
uses utslvclauxiliary,utslvclmemstruct,utslvclevent,utslvclgdi,utslvclaction,utslvclmenu;
|
||||
private //计量处数据
|
||||
private //私有变量
|
||||
#!begin //members
|
||||
STATIC FSIDC;
|
||||
STATIC FSIDC; //控件id生成器
|
||||
FActionLink: TControlActionLink;
|
||||
FCanvas: TCanvas;
|
||||
FCanvas: TCanvas; //为可视控件提供画板
|
||||
FMessagehandle;//消息表
|
||||
FtagPAINTSTRUCT;
|
||||
FtagPAINTSTRUCT; //绘制区域
|
||||
|
||||
//;数据
|
||||
//private
|
||||
FAnchors;
|
||||
FAnchorBounds;
|
||||
|
||||
FCaption;//标题
|
||||
FCaptureMouseButtons;//鼠标样式
|
||||
FColor;//颜色
|
||||
FBKBitmap;
|
||||
FBKBitmap; //背景图片
|
||||
FControlFlags;//控件标记
|
||||
FControlStyle;//控件样式
|
||||
FDesktopFont;
|
||||
FDockOrientation;
|
||||
//FDesktopFont;
|
||||
//FDockOrientation;
|
||||
FDragCursor;
|
||||
FFont; //字体
|
||||
FHostDockSite: TWinControl;
|
||||
FLastDoChangeBounds: TRect;
|
||||
FLastDoChangeClientSize: TPoint;
|
||||
FLastResizeClientHeight: integer;
|
||||
FLastResizeClientWidth: integer;
|
||||
FLastResizeHeight: integer;
|
||||
FLastResizeWidth: integer;
|
||||
FBorder; //边框
|
||||
//FHostDockSite: TWinControl;
|
||||
//FLastDoChangeBounds: TRect;
|
||||
//FLastDoChangeClientSize: TPoint;
|
||||
//FLastResizeClientHeight: integer;
|
||||
//FLastResizeClientWidth: integer;
|
||||
//FLastResizeHeight: integer;
|
||||
//FLastResizeWidth: integer;
|
||||
FOnClick; //点击
|
||||
Fonrclick;
|
||||
FOnContextPopup;
|
||||
|
|
@ -49,7 +48,7 @@ type tcontrol = class(tcomponent)
|
|||
FOnDragOver;
|
||||
FOnSize;
|
||||
FOnMove;
|
||||
FOnEditingDone;
|
||||
//FOnEditingDone;
|
||||
FOnEndDock;
|
||||
FOnEndDrag;
|
||||
FOnMouseDown; //按下
|
||||
|
|
@ -68,18 +67,15 @@ type tcontrol = class(tcomponent)
|
|||
FOnStartDock;
|
||||
FOnStartDrag;
|
||||
//FOnTripleClick;
|
||||
FBorder;
|
||||
protected
|
||||
protected //可以重写的函数以及使用的成员变量
|
||||
//对齐
|
||||
FAlign;//对齐方式
|
||||
FUnAlignBounds;
|
||||
|
||||
FUnAlignBounds;
|
||||
FParent;// TWinControl; //父节点
|
||||
//public
|
||||
//FParentBiDiMode;//: Boolean;
|
||||
FPopupMenu;//: TPopupMenu;
|
||||
//FIsControl;//: Boolean;
|
||||
FShowHint;//: Boolean;
|
||||
//FShowHint;//: Boolean;
|
||||
FParentColor;//: Boolean;
|
||||
FParentFont;//: Boolean;
|
||||
//FParentShowHint;//: Boolean;
|
||||
|
|
@ -88,21 +84,19 @@ type tcontrol = class(tcomponent)
|
|||
FEnabled;//: Boolean; //有效
|
||||
//FMouseEntered;//: boolean;
|
||||
FVisible;//: Boolean; //可见
|
||||
FID;
|
||||
FID; //id
|
||||
|
||||
FOnMeasureItem;
|
||||
FOnDrawItem;
|
||||
#!end
|
||||
|
||||
#!end
|
||||
//位置信息
|
||||
//protected
|
||||
FLeft:integer; //左边
|
||||
FTop:integer;//: Integer; //上
|
||||
FWidth:integer;
|
||||
FHeight:integer; //高度
|
||||
FControls;
|
||||
FControlState;
|
||||
FCursor;
|
||||
FControls; //子控件
|
||||
FControlState; //状态
|
||||
FCursor; //鼠标
|
||||
{**
|
||||
@param(FLeft)(integer) 左边 %%
|
||||
@param(FTop)(integer) 上边 %%
|
||||
|
|
@ -134,7 +128,7 @@ type tcontrol = class(tcomponent)
|
|||
Value.FreeNotification(Self);
|
||||
end
|
||||
end
|
||||
function getparenttype();
|
||||
function getparenttype();
|
||||
begin
|
||||
return class(TWinControl);
|
||||
end
|
||||
|
|
@ -161,7 +155,6 @@ type tcontrol = class(tcomponent)
|
|||
FEnabled := nv;
|
||||
end
|
||||
end
|
||||
//protected
|
||||
procedure SetAlign(Value:TAlign);virtual;
|
||||
begin
|
||||
if not(Value in array(alLeft,alRight,alBottom,alTop,alNone,alClient))then exit;
|
||||
|
|
@ -216,7 +209,7 @@ type tcontrol = class(tcomponent)
|
|||
return 1;
|
||||
end
|
||||
end
|
||||
private
|
||||
private //位置,大小,对齐等属性设置函数
|
||||
function SetUnAlignBounds(Value);
|
||||
begin
|
||||
{**
|
||||
|
|
@ -280,7 +273,7 @@ type tcontrol = class(tcomponent)
|
|||
end
|
||||
return FtagPAINTSTRUCT;
|
||||
end
|
||||
function bindmessage(id,func); //type_tcontrol
|
||||
function bindmessage(id,func); //绑定事件
|
||||
begin
|
||||
{**
|
||||
@ignore 忽略 %%
|
||||
|
|
@ -289,7 +282,7 @@ type tcontrol = class(tcomponent)
|
|||
if not ifarray(FMessagehandle)then FMessagehandle := array();
|
||||
if ifnumber(id)and (datatype(func)=7)then FMessagehandle[id]:= func;
|
||||
end
|
||||
private
|
||||
private //事件绑定处理
|
||||
static FClassDigestA;
|
||||
class function CtlInfoAndDigest(idx,d); //通过类的指纹保存或者获取控件信息
|
||||
begin
|
||||
|
|
@ -348,32 +341,8 @@ type tcontrol = class(tcomponent)
|
|||
begin
|
||||
bindmessage(i,findfunction(v,o));
|
||||
end
|
||||
return;
|
||||
if not(o is class(tcontrol))then return;
|
||||
t := o.classinfo;
|
||||
hs := t["inherited"];
|
||||
for i,v in hs do
|
||||
begin
|
||||
call(thisfunction,findclass(v,o));
|
||||
end
|
||||
for i,v in t["subs"] do
|
||||
begin
|
||||
if v["access"]in array(2,3)then continue;
|
||||
fstring := v["functionname"];
|
||||
if not ifstring(fstring)then continue;
|
||||
f := findfunction(fstring,o);
|
||||
returntype := v["returntype"];
|
||||
try
|
||||
if returntype then
|
||||
begin
|
||||
mid := invoke(o,returntype);
|
||||
bindmessage(mid,f);
|
||||
end
|
||||
except
|
||||
end;
|
||||
end
|
||||
end
|
||||
protected
|
||||
protected //部分属性设置
|
||||
function GetControlFont();virtual;
|
||||
begin
|
||||
if ParentFont and Parent then return Parent.FFont;
|
||||
|
|
@ -410,23 +379,20 @@ type tcontrol = class(tcomponent)
|
|||
return f.Controls.indexof(self);
|
||||
end
|
||||
end
|
||||
function RealGetText:
|
||||
TCaption;
|
||||
virtual; //type_tcontrol
|
||||
function RealGetText():TCaption;virtual; //标题
|
||||
begin
|
||||
return FCaption;
|
||||
end
|
||||
procedure RealSetText(Value:TCaption);virtual; //type_tcontrol
|
||||
procedure RealSetText(Value:TCaption);virtual; //标题
|
||||
begin
|
||||
FCaption := Value;
|
||||
end
|
||||
|
||||
#!begin //资源处理
|
||||
function GetCursor();virtual;
|
||||
function GetCursor();virtual; //鼠标
|
||||
begin
|
||||
return FCursor;
|
||||
end
|
||||
procedure SetCursor(Value);virtual;
|
||||
procedure SetCursor(Value);virtual;//鼠标
|
||||
begin
|
||||
if(FCursor is class(tcustomcursor))and ifnumber(Value)and FCursor.id <> Value then
|
||||
begin
|
||||
|
|
@ -434,17 +400,13 @@ type tcontrol = class(tcomponent)
|
|||
Perform(new tuieventbase(CM_CURSORCHANGED,0,0));
|
||||
end;
|
||||
end
|
||||
procedure SetVisible(Value);virtual;
|
||||
procedure SetVisible(Value);virtual; //可见
|
||||
begin
|
||||
FVisible := Value?true:false;
|
||||
end
|
||||
//procedure DoOnParentHandleDestruction;virtual;
|
||||
//begin
|
||||
//end
|
||||
|
||||
#!end
|
||||
protected
|
||||
function messagecreater(hwnd,message,wparam,lparam);virtual; ////type_tcontrol
|
||||
protected //消息对象以及坐标
|
||||
function messagecreater(hwnd,message,wparam,lparam);virtual; ////构造消息对象
|
||||
begin
|
||||
{**
|
||||
@explan(说明)根据消息参数构造消息对象;
|
||||
|
|
@ -488,20 +450,20 @@ type tcontrol = class(tcomponent)
|
|||
return r;
|
||||
//return new tuieventbase(message,wparam,lparam,hwnd);
|
||||
end
|
||||
function GetClientOrigin();virtual; ////type_tcontrol
|
||||
function GetClientOrigin();virtual; ////坐标
|
||||
begin
|
||||
if FParent then base := FParent.ClientOrigin();
|
||||
return array(base[0]+FLeft,base[1]+FTop);
|
||||
end
|
||||
function GetLogicalClientRect();virtual; //type_tcontrol
|
||||
function GetLogicalClientRect();virtual; //坐标
|
||||
begin
|
||||
return GetClientRect();
|
||||
end;
|
||||
function GetClientScrollOffset();virtual; //type_tcontrol
|
||||
function GetClientScrollOffset();virtual; //坐标
|
||||
begin
|
||||
return array(0,0);
|
||||
end
|
||||
function GetScrolledClientRect();virtual; //type_tcontrol
|
||||
function GetScrolledClientRect();virtual; //坐标
|
||||
begin
|
||||
Result := GetClientRect();
|
||||
ScrolledOffset := GetClientScrollOffset();
|
||||
|
|
@ -511,7 +473,7 @@ type tcontrol = class(tcomponent)
|
|||
Result[3]+= ScrolledOffset[1];
|
||||
return Result;
|
||||
end;
|
||||
function GetControlOrigin();virtual; //type_tcontrol
|
||||
function GetControlOrigin();virtual; //坐标
|
||||
begin
|
||||
Result := array(FLeft,FTop);
|
||||
if FParent <> nil then
|
||||
|
|
@ -522,19 +484,19 @@ type tcontrol = class(tcomponent)
|
|||
end;
|
||||
return Result;
|
||||
end
|
||||
function ControlAppended(AControl);virtual;
|
||||
function ControlAppended(AControl);virtual;//添加控件
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 子控件添加 %%
|
||||
**}
|
||||
end
|
||||
function ControlDeleted(AControl);virtual;
|
||||
function ControlDeleted(AControl);virtual;//子控件被删除
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 子控件删除 %%
|
||||
**}
|
||||
end
|
||||
function operatectrl(actrl,op);virtual; //type_tcontrol
|
||||
function operatectrl(actrl,op);virtual; //控件操作通知
|
||||
begin
|
||||
idx := FControls.indexof(actrl);
|
||||
if op=opRemove then
|
||||
|
|
@ -561,7 +523,7 @@ type tcontrol = class(tcomponent)
|
|||
end
|
||||
return ifop;
|
||||
end
|
||||
function SetParent(NewParent);virtual; //type_tcontrol
|
||||
function SetParent(NewParent);virtual; //设置父控件
|
||||
begin
|
||||
//1.为窗口类
|
||||
//2.可以作为父窗口
|
||||
|
|
@ -586,35 +548,14 @@ type tcontrol = class(tcomponent)
|
|||
if Parent then FParent.operatectrl(self(true),opRemove);
|
||||
end
|
||||
end
|
||||
procedure SetParentComponent(NewParentComponent);override; //type_tcontrol
|
||||
procedure SetParentComponent(NewParentComponent);override; //设置父窗口
|
||||
begin
|
||||
SetParent(NewParentComponent);
|
||||
end
|
||||
public
|
||||
procedure Notification(AComponent:TComponent;Operation:TOperation);override; //type_tcontrol
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 通知消息处理 %%
|
||||
**}
|
||||
if Operation=opRemove then
|
||||
begin
|
||||
if AComponent=PopupMenu then
|
||||
PopupMenu := nil ;
|
||||
else
|
||||
if AComponent=Action then Action := nil;
|
||||
idx := FControls.indexof(AComponent); //删除子控件
|
||||
if idx >= 0 then
|
||||
begin
|
||||
FControls.deli(idx);
|
||||
end
|
||||
end;
|
||||
inherited;
|
||||
end;
|
||||
protected
|
||||
procedure UpdateMouseCursor(X, Y: integer);
|
||||
begin
|
||||
end
|
||||
procedure ChangeBounds(ALeft,ATop,AWidth,AHeight:integer;KeepBase:boolean);virtual; //type_tcontrol
|
||||
|
||||
protected //大小改变
|
||||
//procedure UpdateMouseCursor(X, Y: integer); begin end
|
||||
procedure ChangeBounds(ALeft,ATop,AWidth,AHeight:integer;KeepBase:boolean);virtual; //边界改变
|
||||
begin
|
||||
SizeChanged :=(FWidth <> AWidth)or(FHeight <> AHeight);
|
||||
PosChanged :=(FLeft <> ALeft)or(FTop <> ATop);
|
||||
|
|
@ -667,7 +608,7 @@ type tcontrol = class(tcomponent)
|
|||
begin
|
||||
return 0;
|
||||
end
|
||||
public
|
||||
public //鼠标事件
|
||||
function MouseMove(o,e);virtual;
|
||||
begin
|
||||
end
|
||||
|
|
@ -702,7 +643,26 @@ type tcontrol = class(tcomponent)
|
|||
e.skip := true;
|
||||
end
|
||||
end
|
||||
public
|
||||
public//通知
|
||||
procedure Notification(AComponent:TComponent;Operation:TOperation);override; //通知
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 通知消息处理 %%
|
||||
**}
|
||||
if Operation=opRemove then
|
||||
begin
|
||||
if AComponent=PopupMenu then
|
||||
PopupMenu := nil ;
|
||||
else
|
||||
if AComponent=Action then Action := nil;
|
||||
idx := FControls.indexof(AComponent); //删除子控件
|
||||
if idx >= 0 then
|
||||
begin
|
||||
FControls.deli(idx);
|
||||
end
|
||||
end;
|
||||
inherited;
|
||||
end;
|
||||
procedure FontChanged(Sender:TObject);virtual;
|
||||
begin
|
||||
if parent then parent.FontChanged(Sender);
|
||||
|
|
@ -951,11 +911,11 @@ type tcontrol = class(tcomponent)
|
|||
//InvalidateRect(nil,true); updateWindow();
|
||||
end }
|
||||
end
|
||||
public //消息id绑定相关
|
||||
function CNALIGN(o,e):CN_ALIGN;virtual;
|
||||
begin
|
||||
DoCNALIGN(o,e);
|
||||
end
|
||||
public
|
||||
function CNANCHOR(o,e):CN_ANCHOR;virtual;
|
||||
begin
|
||||
if Align <> alNone then exit;
|
||||
|
|
@ -1148,12 +1108,8 @@ type tcontrol = class(tcomponent)
|
|||
// HelpType is set implicitly when assigning HelpContext or HelpKeyword
|
||||
end;
|
||||
end
|
||||
function click(o,e);virtual; //type_tcontrol
|
||||
begin
|
||||
end
|
||||
function DblClick(o,e);virtual; //type_tcontrol
|
||||
begin
|
||||
end
|
||||
//function click(o,e);virtual;begin end
|
||||
//function DblClick(o,e);virtual;begin end
|
||||
public
|
||||
function ScreenToClient(X,Y);virtual;
|
||||
begin
|
||||
|
|
@ -1185,7 +1141,7 @@ type tcontrol = class(tcomponent)
|
|||
begin
|
||||
return Fid;
|
||||
end
|
||||
function create(Owner);override; //type_tcontrol
|
||||
function create(Owner);override; //构造函数
|
||||
begin
|
||||
inherited;
|
||||
if ifnil(FSIDC)then FSIDC := new tidcreater(100);
|
||||
|
|
@ -1200,7 +1156,7 @@ type tcontrol = class(tcomponent)
|
|||
FParentBidiMode := True;
|
||||
FParentColor := false;
|
||||
FParentFont := false;
|
||||
FDesktopFont := True;
|
||||
//FDesktopFont := True;
|
||||
FParentShowHint := True;
|
||||
FIsControl := False;
|
||||
FEnabled := True;
|
||||
|
|
@ -1218,7 +1174,7 @@ type tcontrol = class(tcomponent)
|
|||
FCursor := new tcustomcursor();
|
||||
FCursor.id := IDC_ARROW;
|
||||
end
|
||||
procedure CheckNewParent(AParent:TWinControl);virtual; //type_tcontrol
|
||||
procedure CheckNewParent(AParent:TWinControl);virtual; //检查parent
|
||||
begin
|
||||
{
|
||||
@ignore(忽略)
|
||||
|
|
@ -1227,7 +1183,7 @@ type tcontrol = class(tcomponent)
|
|||
return(AParent is getparenttype())and AParent.IsContainer(self(true));
|
||||
return false;
|
||||
end
|
||||
function Recycling();override; //type_tcontrol
|
||||
function Recycling();override; //销毁处理
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 资源回收,子类请override该方法然后在destroy中调用 %%
|
||||
|
|
@ -1337,7 +1293,7 @@ type tcontrol = class(tcomponent)
|
|||
begin
|
||||
if ifnumber(id)and FMessagehandle then return FMessagehandle[id];
|
||||
end
|
||||
function dispatch(o,e);virtual; //type_tcontrol
|
||||
function dispatch(o,e);virtual; //分发消息
|
||||
begin
|
||||
{**
|
||||
@explan(说明)消息分发函数 %%
|
||||
|
|
@ -1347,13 +1303,13 @@ type tcontrol = class(tcomponent)
|
|||
func := getmessagehandle(e.Msg);
|
||||
if func then call(func,o,e);
|
||||
end
|
||||
procedure DoControlAlign();virtual;
|
||||
procedure DoControlAlign();virtual;//调整子控件位置
|
||||
begin
|
||||
end
|
||||
procedure DoControlAnchor();virtual;
|
||||
procedure DoControlAnchor();virtual;//调整子控件位置
|
||||
begin
|
||||
end
|
||||
procedure WndProc(TheMessage);virtual; //type_tcontrol
|
||||
procedure WndProc(TheMessage);virtual; //消息分发
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 消息循环 %%
|
||||
|
|
@ -1583,7 +1539,7 @@ type tcontrol = class(tcomponent)
|
|||
@param(OnDrawItem)(function[TControl,TMDRAWITEM]) 控件绘制回调 %%
|
||||
@param(Color)(integer) 背景色 %%
|
||||
**}
|
||||
function isCustomPaint();
|
||||
function isCustomPaint(); //提供给gtk使用
|
||||
begin
|
||||
return csCustomPaint in FControlState ;
|
||||
end
|
||||
|
|
|
|||
|
|
@ -62,23 +62,10 @@ function HexFormatStrToTsl(D);
|
|||
function GetTextWidthAndHeightWidthFont(s,f,mul);
|
||||
//**********操作系统相关函数*********************
|
||||
////////////////////////////////////
|
||||
|
||||
|
||||
type TByteData = class(TByteDataOP)
|
||||
end
|
||||
///////////////////////////内存对象//////////////////////////////
|
||||
|
||||
//////////////////////////////////内存对象截止////////////////////////////////////////////////////
|
||||
|
||||
//******************常量类型**********************************
|
||||
|
||||
/////////////////////////////////
|
||||
|
||||
///////////////////////////消息对象////////////////////////////////////
|
||||
|
||||
|
||||
|
||||
///////////////tmf文件转换///////////////////////
|
||||
//******************常量类型**********************************
|
||||
///////////////tmf文件转换///////////////////////
|
||||
type Ttfm2Component = class(TTmfParser)
|
||||
{**
|
||||
@explan(说明) tfm数据到组件转换 %%
|
||||
|
|
@ -91,7 +78,7 @@ type Ttfm2Component = class(TTmfParser)
|
|||
inherited;
|
||||
if not ifarray(FComponentTypes)then FComponentTypes := array();
|
||||
end
|
||||
function formatpath(s);
|
||||
function formatpath(s);//处理windows的路径
|
||||
begin
|
||||
r := "";
|
||||
if s and ifstring(s)then
|
||||
|
|
@ -257,17 +244,6 @@ type Ttfm2Component = class(TTmfParser)
|
|||
function Loadinherited(o);//导入
|
||||
begin
|
||||
return Loadinherited_sub(o);
|
||||
if not ifobj(o) then return ;
|
||||
if not((o is class(TDCreateForm)) or (o is class(TDCreatePanel))) then return ;//判断类型
|
||||
ci := o.classinfo;
|
||||
cn := ci["classname"];
|
||||
ic := ci["inherited"][0];
|
||||
if ((cn<>"tdcreateform") and (cn<>"tdcreatepanel")) then
|
||||
begin
|
||||
Loadinherited(findclass(ic,o));
|
||||
phs := static GetSourceDirs();
|
||||
Loadtfmtoform(o,phs,cn);
|
||||
end
|
||||
end
|
||||
function Loadinherited_sub(o);
|
||||
begin
|
||||
|
|
@ -324,7 +300,7 @@ type Ttfm2Component = class(TTmfParser)
|
|||
end
|
||||
end
|
||||
end
|
||||
function GetLibPaths();
|
||||
function GetLibPaths(); //获得libpath
|
||||
begin
|
||||
p := tsl_getlibpath_();
|
||||
if not p then return array();
|
||||
|
|
@ -375,7 +351,7 @@ type Ttfm2Component = class(TTmfParser)
|
|||
end
|
||||
end
|
||||
|
||||
type TGlobalComponentcache=class
|
||||
type TGlobalComponentcache=class() //窗口对象缓存句柄作为索引
|
||||
{**
|
||||
@ignore(忽略) %%
|
||||
@explan(说明) 窗口存储类 %%
|
||||
|
|
@ -2798,6 +2774,7 @@ type TTreeView=class(TTreeCtl)
|
|||
height := 150;
|
||||
border := true;
|
||||
HasLine := true;
|
||||
nodecreator := class(TTreeNode);
|
||||
end
|
||||
function expand(item);
|
||||
begin
|
||||
|
|
@ -2878,15 +2855,10 @@ type TTreeView=class(TTreeCtl)
|
|||
if node is class(TTreeNode)then
|
||||
begin
|
||||
end else
|
||||
return;
|
||||
return;
|
||||
np := RootItem.HasNode(node);
|
||||
if np then np.DeleteChildNode(node);
|
||||
end
|
||||
function CreateTreeNode();override;
|
||||
begin
|
||||
r := new TTreeNode(self(true));
|
||||
return r;
|
||||
end
|
||||
public
|
||||
function Recycling();override;
|
||||
begin
|
||||
|
|
@ -7227,10 +7199,10 @@ type TInputEditor=class
|
|||
end
|
||||
|
||||
type TTipMessageButton = class(TGraphicControl)
|
||||
{**
|
||||
@ignore(忽略) %%
|
||||
@explan(说明) 提示按钮 %%
|
||||
**}
|
||||
{**
|
||||
@ignore(忽略) %%
|
||||
@explan(说明) 提示按钮 %%
|
||||
**}
|
||||
public
|
||||
function Create(AOwner);override;
|
||||
begin
|
||||
|
|
@ -7324,7 +7296,7 @@ type TTipMessageButton = class(TGraphicControl)
|
|||
end
|
||||
|
||||
private
|
||||
type TTipImage=class
|
||||
type TTipImage=class()
|
||||
public
|
||||
function create();
|
||||
begin
|
||||
|
|
@ -8035,7 +8007,7 @@ type TDragManager=class(TComponent)
|
|||
property DragThreshold:Integer read FDragThreshold write FDragThreshold; // default 5;
|
||||
end;
|
||||
|
||||
function GetAndDispatchMessageA(hwnd,minm,maxm);
|
||||
function GetAndDispatchMessageA(hwnd,minm,maxm); //分发窗口消息
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 获得和分发消息 %%
|
||||
|
|
@ -8064,7 +8036,7 @@ begin
|
|||
RunWorkerThreadLoop();
|
||||
API.WaitMessage();
|
||||
end
|
||||
return-1;
|
||||
return -1;
|
||||
//////////////////////////////////////////////////////
|
||||
{r := API.GetMessageA(ptr, hwnd>0?hwnd:0, minm>0?minm:0, maxm>0?maxm:0);
|
||||
if r=0 then
|
||||
|
|
@ -8075,48 +8047,14 @@ begin
|
|||
API.DispatchMessageA(ptr);}
|
||||
return r;
|
||||
end
|
||||
|
||||
function GetGdipStatus(v);
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 获得gdiflat的运行状态说明 %%
|
||||
@param(v)(integer) 状态值 %%
|
||||
@return(string) 状态说明 %%
|
||||
**}
|
||||
vs := static array(
|
||||
"Ok",
|
||||
"GenericError",
|
||||
"InvalidParameter",
|
||||
"OutOfMemory",
|
||||
"ObjectBusy",
|
||||
"InsufficientBuffer",
|
||||
"NotImplemented",
|
||||
"Win32Error",
|
||||
"WrongState",
|
||||
"Aborted",
|
||||
"FileNotFound",
|
||||
"ValueOverflow",
|
||||
"AccessDenied",
|
||||
"UnknownImageFormat",
|
||||
"FontFamilyNotFound",
|
||||
"FontStyleNotFound",
|
||||
"NotTrueTypeFont",
|
||||
"UnsupportedGdiplusVersion",
|
||||
"GdiplusNotInitialized",
|
||||
"PropertyNotFound",
|
||||
"PropertyNotSupported",
|
||||
"ProfileNotFound");
|
||||
return vs[v];
|
||||
end
|
||||
|
||||
function RegisterComponentType(n,typ);
|
||||
function RegisterComponentType(n,typ);//注册componet对象
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 注册component组件 %%
|
||||
**}
|
||||
class(Ttfm2Component).RegisterComponentType(n,typ);
|
||||
end
|
||||
function initializeapplication();
|
||||
function initializeapplication(); //应用对象
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 初始化application %%
|
||||
|
|
@ -8124,7 +8062,7 @@ begin
|
|||
**}
|
||||
return getapplication();
|
||||
end
|
||||
function getapplication();
|
||||
function getapplication(); //应用对象
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 返回application对象%%
|
||||
|
|
@ -8174,7 +8112,7 @@ begin
|
|||
return tslarraytocstructcalc(data,pack,0,ssize);
|
||||
end
|
||||
|
||||
function remotetslcallback(data);
|
||||
function remotetslcallback(data);//远程执行
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 行情订阅回调 %%
|
||||
|
|
@ -8183,10 +8121,7 @@ begin
|
|||
//return class(TQuotations)._SWINDOWS._send_(0X4400,0,data,1);
|
||||
end
|
||||
|
||||
|
||||
//*********字符串相关对象**************************************
|
||||
|
||||
function calldatafunction();
|
||||
function calldatafunction();//事件回调调用
|
||||
begin
|
||||
{**
|
||||
@explan(说明)执行函数句柄,默认第一个参数为函数句柄,后面的参数为该句柄的参数 %%
|
||||
|
|
@ -8202,7 +8137,7 @@ begin
|
|||
4:return call(f,params[2],params[3],params[4]);
|
||||
end;
|
||||
return nil;
|
||||
ps := params;
|
||||
{ps := params;
|
||||
f := ps[0];
|
||||
pms := ps[1:];
|
||||
if datatype(f)<> 7 or not(ifarray(pms))then exit;
|
||||
|
|
@ -8213,9 +8148,9 @@ begin
|
|||
begin
|
||||
return callinarray(f,pms);
|
||||
end else
|
||||
return callinarray(f,pms[0:lpt-1]);
|
||||
return callinarray(f,pms[0:lpt-1]);}
|
||||
end
|
||||
function NotifyComponent(Acomponent,Act,AOwner);
|
||||
function NotifyComponent(Acomponent,Act,AOwner);//通知控件
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 通知节点AOwner有节点Acomponent 发生了改变,通知码为act %%
|
||||
|
|
@ -8231,7 +8166,7 @@ begin
|
|||
end
|
||||
owner.Notification(Acomponent,Act);
|
||||
end
|
||||
function _timeproc_(hwnd,message,wparam,lparam); //消息分发
|
||||
function _timeproc_(hwnd,message,wparam,lparam); //定时器消息分发
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 消息分发预处理函数被底层调用 %%
|
||||
|
|
@ -8243,13 +8178,13 @@ begin
|
|||
**}
|
||||
return class(ttimer)._timeproc_(hwnd,message,wparam,lparam);
|
||||
end
|
||||
function controlisCustomPaint(id);
|
||||
function controlisCustomPaint(id);//提供给gtk使用
|
||||
begin
|
||||
wd := class(tUIglobalData).uigetdata("TGlobalValues").getvalue(id);
|
||||
if wd then return wd.isCustomPaint();
|
||||
return false;
|
||||
end
|
||||
function _twinproc_(hwnd,message,wparam,lparam); //消息分发
|
||||
function _twinproc_(hwnd,message,wparam,lparam); //窗口消息分发
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 消息分发预处理函数被底层调用 %%
|
||||
|
|
@ -8272,11 +8207,6 @@ begin
|
|||
("lpcreateparams","intptr",0))),lparam);
|
||||
cid := cpm._getvalue_("lpcreateparams");
|
||||
wdobj := class(tUIglobalData).uigetdata("TGlobalValues").getvalue(cid);
|
||||
{if wdobj is class(TWincontrol) then
|
||||
begin
|
||||
//return wdobj.MainWndProc(hwnd,message,wparam,lparam);
|
||||
//class(TGlobalComponentcache).registerhandle(hwnd,wdobj);
|
||||
end }
|
||||
end
|
||||
end
|
||||
r := 0;
|
||||
|
|
@ -8292,23 +8222,6 @@ begin
|
|||
class(tUIglobalData).uigetdata("TGlobalComponentcache").unregisterhandle(hwnd);
|
||||
end
|
||||
return r;
|
||||
if message in array(1,0x81)then
|
||||
begin
|
||||
obj := new tslcstructureobj(MemoryAlignmentCalculate(array(
|
||||
("lpcreateparams","intptr",0),
|
||||
("hinstance","intptr",0),
|
||||
("hmenu","intptr",0),
|
||||
("hwndparent","intptr",0),
|
||||
("cy","int",0),
|
||||
("cx","int",0),
|
||||
("y","int",0),
|
||||
("x","int",0),
|
||||
("style","int",0),
|
||||
("lpszname","intptr",0),
|
||||
("lpszclass","intptr",0),
|
||||
("dwexstyle","int",0))),lparam);
|
||||
echo tostn(obj._getdata_);
|
||||
end
|
||||
end
|
||||
function _MessgeHook_a(hwnd,message,wparam,lparam);
|
||||
begin
|
||||
|
|
@ -8345,16 +8258,10 @@ begin
|
|||
d := new TtagOFNA(lparam);
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
|
||||
//function GetModuleFileNameA(m:pointer;var buf:string;len:integer):integer;stdcall;external "Kernel32.dll" name "GetModuleFileNameA";
|
||||
//function CallWindowProcA(lpPrevWndFunc:pointer;hWnd:pointer;Msg:integer;wParam:pointer;lParam:pointer):pointer;stdcall;external "User32.dll" name "CallWindowProcA";
|
||||
//function RegisterClassExA(wc:pointer):short;stdcall;external "User32.dll" name "RegisterClassExA";
|
||||
|
||||
//临时文件
|
||||
|
||||
|
||||
//tsl语言中使用动态库函数
|
||||
function TS_EndExecute(id:integer);cdecl;external "TSSVRAPI.dll" name "TS_EndExecute";
|
||||
function TSL_ScriptGo(L:pointer;Content:string;v:pointer):integer;cdecl;external "TSSVRAPI.dll" name "TSL_ScriptGo";
|
||||
function TSL_InterpFreeLWrap(lWrap:pointer);cdecl;external "TSSVRAPI.dll" name "TSL_InterpFreeLWrap";
|
||||
|
|
@ -8366,32 +8273,30 @@ function TSL_FreeObj(L:pointer;v:pointer);cdecl;external {$ifdef linux}"libTSSVR
|
|||
//function TS_ModulePath():string;cdecl;external {$ifdef linux}"libTSSVRAPI.so"{$else}"TSSVRAPI.dll"{$endif} name "TS_ModulePath";
|
||||
//function TS_ExecPath():string;cdecl;external {$ifdef linux}"libTSSVRAPI.so"{$else}"TSSVRAPI.dll"{$endif} name "TS_ExecPath";
|
||||
//function TS_GetAppPath():string;cdecl;external {$ifdef linux}"libTSSVRAPI.so"{$else}"TSSVRAPI.dll"{$endif} name "TS_ExecPath";
|
||||
|
||||
//function TS_GetIniPath(hometype:integer; var IniName:string):string;cdecl;external {$ifdef linux}"libTSSVRAPI.so"{$else}"TSSVRAPI.dll"{$endif} name "TS_GetIniPath";
|
||||
function TSL_Check(func:string;funclen:integer;oResult:pointer):integer;cdecl;external {$ifdef linux}"libTSSVRAPI.so"{$else}"TSSVRAPI.dll"{$endif} name "TSL_Check";
|
||||
procedure tslprocessmessages();begin {echo "\r\n processmessage";}end;
|
||||
function TS_GetUserProfileHome();
|
||||
begin
|
||||
return unit(utslvclauxiliary).TS_GetUserProfileHome();
|
||||
|
||||
end
|
||||
function RunWorkerThreadLoop();
|
||||
function RunWorkerThreadLoop(); //执行工作线程循环
|
||||
begin
|
||||
class(TThreadWorker).dispatch();
|
||||
end
|
||||
//procedure ClearScriptCache();cdecl;external "TSLInterp.dll" name "ClearScriptCache";
|
||||
|
||||
function CreateDirWithFileName(fname);
|
||||
function CreateDirWithFileName(fname);//确保指定文件的文件夹是存在的
|
||||
begin
|
||||
return unit(utslvclauxiliary).CreateDirWithFileName(fname);
|
||||
end
|
||||
|
||||
function DeleteAllFiles(path);
|
||||
function DeleteAllFiles(path);//删除目录所有文件
|
||||
begin
|
||||
return unit(utslvclauxiliary).DeleteAllFiles(path);
|
||||
end
|
||||
|
||||
function LoginTslServer(usr,pwd,addr,port);
|
||||
function LoginTslServer(usr,pwd,addr,port);//登陆服务器
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 登陆服务器 %%
|
||||
|
|
@ -8424,7 +8329,7 @@ function GetCheckStruct();
|
|||
begin
|
||||
return new TCHECK_RESULT();
|
||||
end
|
||||
function CheckTslCode(code,err);
|
||||
function CheckTslCode(code,err);//检查tsl语法
|
||||
begin
|
||||
{**
|
||||
@explan(说明) tsl语法检查 %%
|
||||
|
|
@ -8445,7 +8350,7 @@ begin
|
|||
end
|
||||
return true;
|
||||
end
|
||||
function tslScriptGo(script);
|
||||
function tslScriptGo(script);//执行tsl脚本
|
||||
begin
|
||||
{**
|
||||
@explan(说明)执行tsl脚本 %%
|
||||
|
|
@ -8463,13 +8368,13 @@ begin
|
|||
return tslScriptGo(script);
|
||||
**}
|
||||
ph := gettemppath();
|
||||
name := ph+"tslpengt.tsl";
|
||||
file := ph+"tslpengt.tsl";
|
||||
if ifstring(script)and script then
|
||||
begin
|
||||
tsexe := SysExecName();
|
||||
FileDelete("",name);
|
||||
writefile(rwraw(),"",name,0,length(script),script);
|
||||
r := SysExec(tsexe,format('"%s" "%s"',tsexe,name),nil,0,r,nil);
|
||||
FileDelete("",file);
|
||||
writefile(rwraw(),"",file,0,length(script),script);
|
||||
r := SysExec(tsexe,format('"%s" "%s"',tsexe,file),nil,0,r,nil);
|
||||
end
|
||||
return r;
|
||||
lwrap := TSL_InterpNewLWrap();
|
||||
|
|
@ -8484,7 +8389,7 @@ begin
|
|||
//TSL_InterpFreeLWrap(lwrap);
|
||||
return ret;
|
||||
end
|
||||
function version();
|
||||
function version(); //版本
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 返回版本号 %%
|
||||
|
|
@ -8494,7 +8399,7 @@ begin
|
|||
//return "1.1.1.20200731_beta";
|
||||
//return "1.1.2.20210915_beta";
|
||||
//return "1.1.3.20220210_beta";
|
||||
return "1.1.4.20220310_beta";
|
||||
return "1.1.4.20221010_beta";
|
||||
end
|
||||
|
||||
function ExitMessageLoop();
|
||||
|
|
@ -8506,7 +8411,7 @@ begin
|
|||
return WPI.PostQuitMessage(0);
|
||||
end
|
||||
|
||||
function SysExecWait(handle,exe,cmd,dir,fwait);
|
||||
function SysExecWait(handle,exe,cmd,dir,fwait); //等待执行
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 运行进程 %%
|
||||
|
|
@ -8557,7 +8462,7 @@ begin
|
|||
end
|
||||
return r;
|
||||
end
|
||||
function MessageBoxA(txt,title,flag,wnd);
|
||||
function MessageBoxA(txt,title,flag,wnd);//对话框api
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 提示对话框 %%
|
||||
|
|
@ -8583,7 +8488,7 @@ begin
|
|||
end
|
||||
end
|
||||
end
|
||||
function CopyUsedTslDllToNewDir(npre);
|
||||
function CopyUsedTslDllToNewDir(npre);//windows中使用,拷贝tsl使用的动态库到指定目录
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 拷贝当前的tsl目录中使用的dll到指定目录%%
|
||||
|
|
@ -8616,19 +8521,19 @@ begin
|
|||
end
|
||||
|
||||
////////////////////封装已经移动到其他库的接口为了兼容///////////
|
||||
function TslToHexFormatStr(tsl);
|
||||
function TslToHexFormatStr(tsl);//将tsl数据转换为16进制字符串
|
||||
begin
|
||||
return unit(utslvclauxiliary).TslToHexFormatStr(tsl);
|
||||
end
|
||||
function HexFormatStrToTsl(D);
|
||||
function HexFormatStrToTsl(D);//将16进制字符串还原为tsl数据
|
||||
begin
|
||||
return unit(utslvclauxiliary).HexFormatStrToTsl(d);
|
||||
end
|
||||
function GetTextWidthAndHeightWidthFont(s,f,mul);
|
||||
function GetTextWidthAndHeightWidthFont(s,f,mul);//获得字体的绘制高度宽度
|
||||
begin
|
||||
return unit(utslvclgdi).GetTextWidthAndHeightWidthFont(s,f,mul);
|
||||
end
|
||||
function CallMessgeFunction(f,o,e);
|
||||
function CallMessgeFunction(f,o,e); //执行消息回调
|
||||
begin
|
||||
return unit(utslvclauxiliary).CallMessgeFunction(f,o,e);
|
||||
end
|
||||
|
|
@ -8686,3 +8591,22 @@ Initialization
|
|||
initlib();
|
||||
Finalization
|
||||
end.
|
||||
{
|
||||
if message in array(1,0x81)then
|
||||
begin
|
||||
obj := new tslcstructureobj(MemoryAlignmentCalculate(array(
|
||||
("lpcreateparams","intptr",0),
|
||||
("hinstance","intptr",0),
|
||||
("hmenu","intptr",0),
|
||||
("hwndparent","intptr",0),
|
||||
("cy","int",0),
|
||||
("cx","int",0),
|
||||
("y","int",0),
|
||||
("x","int",0),
|
||||
("style","int",0),
|
||||
("lpszname","intptr",0),
|
||||
("lpszclass","intptr",0),
|
||||
("dwexstyle","int",0))),lparam);
|
||||
echo tostn(obj._getdata_);
|
||||
end
|
||||
}
|
||||
|
|
|
|||
|
|
@ -2748,7 +2748,7 @@ begin
|
|||
end
|
||||
end else //多字节符的非首字节,应为 10xxxxxx
|
||||
begin
|
||||
if((chr .& 0xC0)<> 0x80)then return-1;
|
||||
if((chr .& 0xC0)<> 0x80)then return -1;
|
||||
nBytes--;
|
||||
end
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -5,9 +5,9 @@ unit utslvclgdi;
|
|||
**}
|
||||
interface
|
||||
uses cstructurelib,utslvclmemstruct,utslvclauxiliary,utslvclbase;
|
||||
|
||||
function GetTextWidthAndHeightWidthFont(s,f,mul);
|
||||
function getdrawablebitmap(w,h,bmp);
|
||||
function GetGdipStatus(v);
|
||||
type TGdi = class(TSLUIBASE)
|
||||
private
|
||||
static GDICache;
|
||||
|
|
@ -3019,6 +3019,38 @@ begin
|
|||
return cv;
|
||||
end
|
||||
end
|
||||
function GetGdipStatus(v);
|
||||
begin
|
||||
{**
|
||||
@explan(说明) 获得gdiflat的运行状态说明 %%
|
||||
@param(v)(integer) 状态值 %%
|
||||
@return(string) 状态说明 %%
|
||||
**}
|
||||
vs := static array(
|
||||
"Ok",
|
||||
"GenericError",
|
||||
"InvalidParameter",
|
||||
"OutOfMemory",
|
||||
"ObjectBusy",
|
||||
"InsufficientBuffer",
|
||||
"NotImplemented",
|
||||
"Win32Error",
|
||||
"WrongState",
|
||||
"Aborted",
|
||||
"FileNotFound",
|
||||
"ValueOverflow",
|
||||
"AccessDenied",
|
||||
"UnknownImageFormat",
|
||||
"FontFamilyNotFound",
|
||||
"FontStyleNotFound",
|
||||
"NotTrueTypeFont",
|
||||
"UnsupportedGdiplusVersion",
|
||||
"GdiplusNotInitialized",
|
||||
"PropertyNotFound",
|
||||
"PropertyNotSupported",
|
||||
"ProfileNotFound");
|
||||
return vs[v];
|
||||
end
|
||||
initialization
|
||||
sinitgidplus();
|
||||
class(tcustomimage).sinit();
|
||||
|
|
|
|||
|
|
@ -1643,6 +1643,7 @@ type TcustomTreeCtl = class(TVirtualList)
|
|||
FNodeHierarchyWidth := 20;
|
||||
FMulSelected := false;
|
||||
FMulSelects := array();
|
||||
fnodecreator := class(TcustomTreeCtlNode);
|
||||
end
|
||||
function InsertItem(it,idx);override;
|
||||
begin
|
||||
|
|
@ -1773,6 +1774,7 @@ type TcustomTreeCtl = class(TVirtualList)
|
|||
end}
|
||||
function CreateTreeNode();virtual;
|
||||
begin
|
||||
return createobject(fnodecreator,self(true));
|
||||
r := new TcustomTreeCtlNode(self(true));
|
||||
return r;
|
||||
end
|
||||
|
|
@ -1841,6 +1843,7 @@ type TcustomTreeCtl = class(TVirtualList)
|
|||
FOnSelChanging := nil;
|
||||
FonEmptyNodeExapanding := nil;
|
||||
FNodeHierarchyWidth := 20;
|
||||
//fnodecreator := nil;
|
||||
inherited;
|
||||
end
|
||||
function GetHierarchyByHandle(h);
|
||||
|
|
@ -1878,6 +1881,7 @@ type TcustomTreeCtl = class(TVirtualList)
|
|||
property OnSelChanged:eventhandler read FOnSelChanged write FOnSelChanged;
|
||||
property OnSelChanging:eventhandler read FOnSelChanging write FOnSelChanging;
|
||||
property onEmptyNodeExapanding read FonEmptyNodeExapanding write FonEmptyNodeExapanding;
|
||||
property nodecreator read fnodecreator write setnodecreator;
|
||||
protected
|
||||
function GetRootNode();virtual; //»ñµÃ¸ù½Úµã
|
||||
begin
|
||||
|
|
@ -1889,11 +1893,24 @@ type TcustomTreeCtl = class(TVirtualList)
|
|||
return FRootItem;
|
||||
end
|
||||
private
|
||||
fnodecreator;
|
||||
flockchangedcall;//
|
||||
FOnlyLeafNodeCheckMark;
|
||||
FNodeHierarchyWidth;
|
||||
FMulSelected;
|
||||
FMulSelects;
|
||||
function setnodecreator(nd);
|
||||
begin
|
||||
if (fnodecreator<>nd) and (nd is class(TcustomTreeCtlNode)) then
|
||||
begin
|
||||
fnodecreator := nd;
|
||||
if FRootItem then
|
||||
begin
|
||||
FRootItem.Recycling();
|
||||
FRootItem := nil;
|
||||
end
|
||||
end
|
||||
end
|
||||
function SetNodeHierarchyWidth(v);
|
||||
begin
|
||||
if v >= 0 and FNodeHierarchyWidth <> v then
|
||||
|
|
|
|||
Loading…
Reference in New Issue