liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity
tslediter/designer/utslvcldpropertytypes.tsf

4551 lines
119 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

unit utslvcldpropertytypes;
interface
{**
@explan(说明) 设计器属性编辑库,继承该库,定义属性编辑类 %%
**}
uses utslvclauxiliary,utslvclbase,utslvclgdi,uvcpropertytypespersistence,tslvcl,utslvcldcomponents,UTslSynMemo;
function registereditpropertytodesigner(cls);
type TGCellRender = class(TSLUIBASE) //属性编辑器单元格对象基类
{**
@explan(说明) gridcell渲染器 %%
**}
private
FActivate;
public
function CreateEditer(AOwner);
begin
return createobject(self(true).classinfo(1),AOwner);
end
function Create(AOwner);override;
begin
{**
@explan(说明) 构造编辑器 %%
**}
class(TSLuibase).create();
end
function CelldbClick(grid,e,d);virtual; //双击
begin
end
function CellClick(grid,e,d);virtual; //点击
begin
{**
@explan(说明) 格子点击 %%
**}
FActivate := true;
end
function CellDraw(grid,e,d);virtual; //绘制
begin
{**
@explan(说明) 绘制格子 %%
**}
end
function CellLeave(grid);virtual; //离开
begin
{**
@explan(说明) 离开编辑格子 %%
**}
FActivate := false;
end;
property Activated read FActivate;
end
type TGridPropertyRender = class(TGCellRender) //属性编辑添加owner
function Create(AOwner);
begin
inherited;
Owner := AOwner;
end
Owner ;
end
type TGridCellEditWithButton = class(TGridPropertyRender) //带按钮的单元格编辑
{**
@explan(说明) 带有按钮的格子%
**}
private
FRbuttonWidth; //按钮宽度
FUpRect;
FDownRect;
protected
function ptinrect(pt,rec);//区域中判断
begin
return (pt[0]>rec[0] and pt[0]<=rec[2]) and (pt[1]>rec[1] and pt[1]<=rec[3]);
end
function splitrect(r,rs);virtual;//拆分区域
begin
rs := array();
src := r;
wd := FRbuttonWidth?FRbuttonWidth:20;
src[0] := src[2]-wd;
src[1]+=3;
src[3]-=3;
rs[0] := src;
src := r;
src[2]-=wd;
rs[1] := src;
end
public
function GetPopRectByHeight(h); //获得弹出区域
begin
{**
@explan(说明)根据格子获得弹出的区域 %%
**}
if not(h>10) then h:= 100;
dn := GetPopRect();
if dn[3]-dn[1]<h then
begin
dna := dn;
dn := GetPopRect(1);
if dn[3]-dn[1]>=h then
begin
dn[1]:= dn[3]-h;
end else
begin
dn := dna;
end
end
return dn;
end
function GetPopRect(f); //获得弹出区域
begin
{**
@explan(说明) 获得弹出区域%%
@param(f)(bool) ture获得上方弹出区域,false 获得下方 %%
**}
if f then return FUpRect;
return FDownRect;
end
function DrawButton(dc,src,d);//绘制按钮
begin
{**
@explan(说明) 绘制按钮%%
**}
dc.Draw("framecontrol",array(src[0:1],src[2:3]),DFC_SCROLL,DFCS_SCROLLDOWN);
end
Function Create(AOwner);override;
begin
inherited;
ButtonWidth := 20;
end
function CellDraw(grid,e,d);override;
begin
rec := e.SubItemRect;
dc := e.canvas;
splitrect(rec,rs);
DrawButton(dc,rs[0],d);
CellDrawLabel(dc,rs[1],d);
end
function CellDrawLabel(dc,rect,d);override;//绘制其他部分
begin
{**
@explan(说明) 绘制标签 %%
**}
if ifarray(d) then
begin
//dc.drawtext(self(true).EditType(),rect);
end
end
function CellClick(grid,e,d);override;//点击
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
i := e.iitem;
j := e.isubitem;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
splitrect(rec,rs);
btr := rs[0];
lr := rs[1];
x1y1 := grid.ClientToScreen(rec[0],rec[1]);
x2y2 := grid.ClientToScreen(rec[2],rec[3]);
src := _wapi.GetScreenRect();
FUpRect := array(x1y1[0],src[1],x2y2[0],x1y1[1]);
FDownRect := array(x1y1[0],x2y2[1],x2y2[0],src[3]);
if ptinrect(pt,btr) then
begin
ButtonClick(grid,e,d);
end else if ptinrect(pt,lr) then
begin
LabelClick(grid,e,d);
end
end
function CelldbClick(grid,e,d);override;//双击处理
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
i := e.iitem;
j := e.isubitem;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
splitrect(rec,rs);
btr := rs[0];
lr := rs[1];
x1y1 := grid.ClientToScreen(rec[0],rec[1]);
x2y2 := grid.ClientToScreen(rec[2],rec[3]);
src := _wapi.GetScreenRect();
FUpRect := array(x1y1[0],src[1],x2y2[0],x1y1[1]);
FDownRect := array(x1y1[0],x2y2[1],x2y2[0],src[3]);
if ptinrect(pt,lr) then
begin
//LabelClick(grid,e,d);
end
end
function ButtonClick(grid,e,d);virtual;//按钮处点击
begin
{**
@explan(说明) 按钮被点击 %%
**}
end
function LabelClick(grid,e,d);virtual;//非按钮处点击
begin
{**
@explan(说明)标签被点击 %%
**}
ButtonClick(grid,e,d);
end
function CellLeave(grid);override; //离开
begin
{**
@explan(说明) 离开编辑格子 %%
**}
inherited;
end;
property ButtonWidth read FRbuttonWidth write FRbuttonWidth;
{**
@param(ButtonWidth)(integer) 按钮宽度 %%
**}
end
type TGCellBoolRender=class(TGCellRender) //bool类型
class Function EditType();override;
begin
return "bool";
end
function CellClick(o,e,d);override;
begin
if not ifarray(d)then return;
i := e.iitem;
j := e.isubitem;
pt := e.ptaction;
indexs := 1;
o.getdata(i,j,cp,indexs);
dv := d["value"];
o.setvalue(indexs union array("value"),not dv);
rec := o.GetSubItemRect(i,j);
o.InvalidateRect(rec,true);
end
function CellDraw(o,e,d);override;
begin
dc := e.canvas;
DrawBoolButton(dc,e.SubItemRect,d["value"]);
end
function DrawBoolButton(dc,srca,v);
begin
FRbuttonWidth := 20;
src := srca;
src[0]:= src[2]-FRbuttonWidth-10;
src[2]-= 10;
src[1]+= 3;
src[3]-= 3;
//_wapi.DrawFrameControl(dc.Handle,src,DFC_BUTTON,v?DFCS_CHECKED:DFCS_BUTTONCHECK);
dc.Draw("framecontrol",array(src[0:1],src[2:3]),DFC_BUTTON,v?DFCS_CHECKED:DFCS_BUTTONCHECK);
end
end
type TGridCellEditList = class(TGridCellEditWithButton)
protected
Fi;
fj;
FGrid;
private
FDataList;
function GetDataList();virtual;
begin
return FDataList;
end
function SetDataList(v);virtual;
begin
FDataList:=v;
end
public
function create(AOwner);override;
begin
inherited;
end
function GetItemValue(v);virtual;
begin
return v;
end
function CellDrawLabel(dc,rect,d);override;
begin
v := d["value"];
dc.DrawText(v,rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
function nameFilter();virtual;
begin
return nil;
end
function ButtonClick(grid,e,d);override;
begin
{**
@explan(说明) 按钮被点击 %%
**}
FGrid := grid;
i := e.iitem;
FI := I;
j := e.isubitem;
FJ := J;
dlist := DataList;
if dlist then
begin
try
dlist.filter := nameFilter();
except
end ;
dn := GetPopRectByHeight(250);
dlist.width := dn[2]-dn[0];
dlist.height := 250;
dlist.left := dn[0];
dlist.top := dn[1];
dlist.OnClickSelected := thisfunction(OnvSelected);
dlist.SetSelectedByValue(d["value"]);
//dlist.visible := true;
dlist.show();
end
end
function OnvSelected(o);
begin
sv:=GetItemValue(o.SelectedValue);
Fgrid.CellChanged(fi,fj,"value",sv);
o.visible := false;
end
property DataList read GetDataList write SetDataList;
end
type TGridCellEventHandleEdit = class(TGridCellEditList,TPropertyTypeEvent)
public
function create(owner);override;
begin
inherited;
end
function LabelClick(grid,e,d);override;
begin
end
function CelldbClick(grid,e,d);virtual;
begin
FGrid := grid;
i := e.iitem;
FI := I;
j := e.isubitem;
FJ := J;
//处理双击添加回调函数
end
end
type TGridCellVariableEdit = class(TGridCellEditList,TPropertyVarible)
public
function create(owner);override;
begin
inherited;
end
function nameFilter();virtual;
begin
return nil;
end
function GetItemValue(v);override;
begin
try
if v then return v.name;
except
end ;
return v;
end
end
type TListVariable = class(TGridList)
{**
@explan(说明) 变量选择 %%
**}
private
FOnClickSelected;
public
function show(f);override;
begin
inherited;
if ifnil(f) or f then
begin
//echo "width:",Width-11;
SetColumnWidth(0,Width-11);
end
end
function create(AOwner);override;
begin
inherited;
WsPopUp := true;
OnActivate := thisfunction(GridActivate);
ColumnHeader := false;
Columns := array(
("text":"variable","width":180)
);
end
function SetSelectedByValue(v);override;
begin
if ifnil(v) then return inherited;
vi := nil;
for i := 0 to List.count-1 do
begin
if v=list[i].name then
begin
vi := list[i];
break;
end
end
inherited SetSelectedByValue(vi);
end
function additem(v);override;
begin
if not(v is class(TDComponent)) then exit;
inherited;
end
function ClickedGridItem(o,e);override;
begin
id := e.iitem;
inherited;
if id<0 or (SelectedValue is class(tnone)) or (SelectedValue = "(none)") then
begin
UnSelected();
end
calldatafunction(FOnClickSelected,o);
o.visible := false;
end
function GridActivate(o,e);virtual;
begin
if e.wparam = WA_INACTIVE then O.Visible := false;
end
function DoDrawSubItem(o,e);override;
begin
{**
@explan(说明) 绘制子项 %%
**}
dc := e.canvas;
if not dc.Handle then exit;
j := e.subitemid;
if j = 0 then
begin
i := e.itemid;
src := e.subItemRect;
dc.DrawText(List[i].name,src,DT_VCENTER .| DT_SINGLELINE);
end
end
property OnClickSelected read FOnClickSelected write FOnClickSelected;
end
type TListStr = class(TListVariable)
function create(AOwner);override;
begin
inherited;
Columns := array(("text":"打开编辑器","width":160));
end
function additem(v);override;
begin
if ifstring(v) then class(TGridList).additem(v);
end
function SetSelectedByValue(v);override;
begin
return class(TGridList).SetSelectedByValue(v);
end
function DoDrawSubItem(o,e);override;
begin
{**
@explan(说明) 绘制子项 %%
**}
dc := e.canvas;
if not dc.Handle then exit;
j := e.subitemid;
if j = 0 then
begin
i := e.itemid;
src := e.subItemRect;
dc.DrawText(List[i],src,DT_VCENTER .| DT_SINGLELINE);
end
end
end
type TListVariableFilter = class(TListVariable)
private
FVlist;
FFilter;
FFirst;
type ttypefilter = class
FStyle;
function filter(o);
begin
if o is class(TDComponent) then
begin
if not FStyle then return true;
return o.dclassname() =FStyle ;
end
end
end
function SetFilter(v);
begin
FFilter.FStyle:=v;
dofilter();
return ;
end
public
function clean();
begin
class(TListVariable).clean();
FVlist.clean();
FFirst := true;
end
function deletebyvalue(v);override;
begin
idx := FVlist.indexof(v);
if idx>=0 then
begin
FVlist.deli(idx);
inherited;
end
end
function cleandestroy();//销毁不存在的控件
begin
id := 0;
while id<FVlist.Count-1 do
begin
oa := FVlist[id];
if oa.name then
begin
id++;
end else
begin
FVlist.deli(id);
end
end
end
function dofilter();
begin
class(TListVariable).clean();
cleandestroy();
vs := array();
for i:= 0 to FVlist.count-1 do
begin
vi := FVlist[i];
if FFilter.filter(vi) then
begin
vs[length(vs)] := vi;
end
end
additems(array(new tnone()) union vs);
end
function create(AOwner);override;
begin
inherited;
FDesigner := AOwner;
FFilter := new ttypefilter();
FVlist := new TFpList();
clean();
end
function delitem(v);override;
begin
for i := 0 to FVlist.Count-1 do
begin
if v=FVlist[i] then return FVlist.deli(i);
end
end
function additem(v);override;
begin
if not(v is class(TDComponent)) then exit;
FFirst := true;
for i := 0 to FVlist.Count-1 do
begin
if v=FVlist[i] then return ;
end
FVlist.add(v);
FDesigner.AddusesFromEdit(v.libs());
FDesigner.AddFiledFromEdit(v.name+":"+v.dclassname);
FDesigner.EditerCodeChanged();
end
property Filter Write SetFilter;
function getlistds();
begin
r := array();
for i := 0 to FVlist.Count-1 do r[i] := FVlist[i];
return r;
end
function setlistds(d);
begin
FVlist.clean();
for i,v in d do FVlist.add(v);
end
private
FDesigner;
end
type TPropGrid = class(TTSLDataGrid)
{**
@explan(说明)属性编辑器 %%
**}
protected
FDesigner;
private
FCellEditers;
FCurrentEditer;
FCurrentIndex;
FEventEditer;
FVariabeEditer;
static FCellRenders;
function GetCellEditer(n);
begin
r := FCellEditers[n];
if not r then
begin
t := GetRegCellRender(n) ;//GetPropertyType(n);
if not ifobj(t) then exit;
r := t.CreateEditer(self(true));
FCellEditers[n] := r;
end
if r is class(TGridCellVariableEdit) then
begin
r.DataList := FVariabeEditer;
//r.FVariabeEditer := FVariabeEditer;
end else
if r is class(TGridCellEventHandleEdit) then
begin
r.DataList := FEventEditer;
FEventEditer.ColumnHeader := true;
FEventEditer.OnColumnClick := thisfunction(clickediter);
//r.FEventEdit := FEventEditer;
end
return r;
return FCellEditers[n];
end
function clickediter(o,e);
begin
return FDesigner.openclassfile();//
if FComponent then
FDesigner.AddAndOPenEvent(FComponent.TreeNode);//DBLClickComponent();
end
function currentLeave();
begin
if FCurrentEditer is class({TGridCellEdit}TGridPropertyRender) then
begin
FCurrentEditer.CellLeave(self(true));
FCurrentIndex := nil;
FCurrentEditer := nil;
end
end
protected
FComponent;
function SetComponent(v);virtual;
begin
FComponent := v;
currentLeave();
end
public
class function RegCellRender(t);
begin
if not ifarray(FCellRenders) then FCellRenders := array();
FCellRenders[t.EditType()] := t;
end
class function GetRegCellRender(n);
begin
if not(FCellRenders and ifstring(n)) then return ;
return FCellRenders[n];
end
private
FInsetvalue;
public
function CellChanged(i,j,index,d);virtual;
begin
indexs := 1;
if FInsetvalue then exit;
FInsetvalue := true;
try
od := getdata(i,j,cp,indexs);
if not ifarray(od) then exit;
if od[index]<>d then
begin
SetValue(indexs union array(index),d);
rec := GetSubItemRect(i,j);
InvalidateRect(rec,true);
end
currentLeave();
except
end;
FInsetvalue := false;
end
function SetValue(indexs,d); virtual;//修改对象
begin
{**
@explan(说明) 修改格子的内容,已经控件的内容%%
**}
if not (FComponent is class(TDComponent)) then exit;
n := indexs[0];
{rfocus := false;
if n in array("left","top","width","height") then
begin
ccwnd := FComponent.Cwnd;
if ccwnd is class(TWincontrol) then
begin
if Designer then
begin
Designer.setcomponentfocus(ccwnd,false);
rfocus := true;
end
end
end
//inherited;
if (n="visible" and not(d)) or (n="wspopup" and d) or (n="align") then
begin
if Designer then
begin
Designer.setcomponentfocus(FComponent.Cwnd,false);
end
end }
if FComponent.SetComponentProperties(n,d) then
begin
//echo "\r\ntrue";
inherited;
end
{if (n="visible" and d) or (n="wspopup" and not(d)) then
begin
if Designer then
begin
Designer.setcomponentfocus(FComponent.Cwnd,true);
end
end }
end
function Notification_rename(o,op);override;
begin
inherited;
if {HandleAllocated() and} ifarray(op) and (op["type"]="possize") and (FComponent is class(TDComponent)) and (FComponent.Cwnd = o) then
begin
dt := TSLData;
flg := op["flag"];
if ifarray(dt) then
begin
for i,v in mrows(dt,1) do
begin
if (flg .& 1) and v="left" then
begin
CellChanged(i,1,"value",op["data"][0]);
end
if (flg .& 2) and v="top" then
begin
CellChanged(i,1,"value",op["data"][1]);
end
if (flg .& 4) and v="width" then
begin
CellChanged(i,1,"value",op["data"][2]);
end
if (flg .& 8) and v="height" then
begin
CellChanged(i,1,"value",op["data"][3]);
end
end
return 1;
end
end
end
function SetGridValue(index,d,o);
begin
if (FComponent is class(TDComponent)) and FComponent.Cwnd = o then
begin
dt := TSLData;
if ifarray(dt) then
begin
for i,v in mrows(dt,1) do
begin
if v=index then
begin
CellChanged(i,1,"value",d);
return 1;
end
end
end
end
//return o.SetPublish(index,d);
end
function WMMove(o,e):WM_MOVE;override;
begin
inherited;
currentLeave();
end
function CellClick(o,e);virtual;
begin
i := e.iitem;
j := e.isubitem;
cellid := array(i,j);
if not( i>=0 and j>=0) then
begin
return currentLeave();
end
index := 1;
d := getdata(i,j,cp,index);
if ifarray(d) and d["type"]="object" then
begin
editer := GetCellEditer(d["class"]);
if (cellid<>FCurrentIndex ) then
begin
currentLeave();
end
if ifobj( editer) then
begin
FCurrentEditer := editer;
FCurrentIndex := cellid;
editer.CellClick(o,e,d);
end
end else
begin
if (cellid<>FCurrentIndex) then
begin
currentLeave();
FCurrentIndex := cellid;
end
end
end
function create(AOwner);override;
begin
inherited;
ColumnHeader := false;
color := rgb(255,255,255);
onclick := thisfunction(CellClick);
ColumnWidth := 150;
FCellEditers := array();
//OndblClick := nil;
FDesigner := AOwner;
OnMouseWheel := function(o,e)begin
currentLeave();
end
end
function Recycling();override;
begin
FDesigner := nil;
inherited;
end
function CNMEASUREITEM(O,E):CN_MEASUREITEM;override;
begin
e.height := 26;
end
function DoDrawSubItem(o,e);override;
begin
j := e.subitemid;
dc := e.canvas;
dc.font := font;
if j=0 then return inherited;
i := e.itemid;
d := getdata(i,j);
if ifstring(d) or ifnumber(d) then
begin
return inherited;
end else
if ifnil(d) then return ;
src :=e.SubItemRect;
if not(ifarray(d) and (d["type"] = "object" )) then exit;
edit := GetCellEditer(d["class"]);
if not(edit)then return inherited;
edit.CellDraw(o,e,d);
dc.pen.color := 0xe0e0f0;
dc.pen.width := 1;
dc.moveto(src[array(0,3)]-1);
dc.LineTo(src[array(2,3)]-1);
dc.LineTo(src[array(2,1)]-1);
end
property EventEditer write FEventEditer;
property VariabeEditer write FVariabeEditer;
property Component read FComponent write SetComponent;
property Designer read FDesigner;
{**
@param(Component)(TDComponent) 控件设计对象 %%
@param(Designer)(TVclDesigner) 设计器 %%
**}
end;
implementation
type TTSLDataGrid=class(TDrawGrid)
{**
@ignore(忽略) %%
@explan(说明)TSL数组和对象展示 %%
**}
private
FCols;
Fdata;
FObjectData;
FMRWD;
FGridControl;
FRows;
FShowTwo;
FCControls;
FColumnWidth;
FRowHeader;
static FGCellRender;
FCanEditStr;
FEditStr;
FControlIndex;
FStringAlign;
FNumberAlign;
FDefAlign;
function SetStringAlign(v);
begin
if v <> FStringAlign then
begin
FStringAlign := v;
InvalidateRect(nil,true);
end
end
function SetNumberAlign(v);
begin
if v <> FNumberAlign then
begin
FNumberAlign := v;
InvalidateRect(nil,true);
end
end
function SetdefAlign(v);
begin
if v <> FDefAlign then
begin
FDefAlign := v;
InvalidateRect(nil,true);
end
end
function GetTSLData();
begin
if FObjectData then return FObjectData;
return FData;
end
function CreateFedit();
begin
if not FEditStr then
begin
FEditStr := new tedit(self);
FEditStr.onkeypress := thisfunction(EditKeyPress);
FEditStr.onkillfocus := thisfunction(EditKillFocus);
FEditStr.visible := false;
FEditStr.parent := self;
end
return FEditStr;
end
function StrToNumber(s);
begin
if pos(".",s)then
begin
return StrToFloatDef(s,0);
end else
begin
return StrToIntDef(s,0);
end
end
public
function GetCellRender(n);
begin
if not ifarray(FGCellRender)then
begin
FGCellRender := array();
end
return FGCellRender[n];
end
private
function SetRowHeader(v);
begin
nv := v?true:false;
if FRowHeader <> nv then
begin
FRowHeader := nv;
FD := FData;
SetData(array());
SetData(FD);
end
end
function SetTwoD(v);
begin
if parent is class(TTSLDataGrid)then exit;
nv := v?true:false;
if nv <> FShowTwo then
begin
FD := FData;
SetData(array());
FShowTwo := nv;
SetData(FD);
end
end
function setdatap();
begin
if not Fdata then exit;
FCols := nil;
FRows := mrows(Fdata,1);
FCL := mcols(Fdata,1);
allFCL := true;
for i,v in FData do
begin
if not ifarray(v)then
begin
allFCL := false;
break;
end
end
fcs := array();
wd := 80;
ftwidth := font.width;
for i,v in FRows do
begin
if ifstring(v)then
begin
wd := max(wd,length(v) * ftwidth+3);
if wd>200 then break;
end
end
if RowHeader then
begin
fcs[0]:= array("text":" ","width":min(200,wd));
end
if FCL and allFCL and FShowTwo then
begin
FCols := FCl;
for i,v in FCols do
begin
fcs[length(fcs)]:= array("text":ifstring(v)?v:inttostr(v),"width":FMRWD);
end
end else
begin
fcs[length(fcs)]:= array("text":" ","width":ColumnWidth>20?ColumnWidth:100);
end
Columns := fcs;
ItemCount := length(FRows);
end
function objecttoarray(d);
begin
if dep<0 then return 0;
if not ifobj(d)then return 0;
try
di := d.classinfo();
except
return 0;
end;
da := array();
inhs := array();
for i,v in di["inherited"] do
begin
inhs[v]:= findclass(v,d);
end
if inhs then da["inherited"]:= inhs;
k := 0;
for i,v in di["members"] do
begin
if(v["access"]in array(0,1,4))then
begin
vn := v["name"];
da[vn]:= invoke(d,vn);
end
end
for i,v in di["properties"] do
begin
if v["access"]in array(0,1,4)then
begin
vn := v["name"];
if not(v["read"])then continue;
da[vn]:= invoke(d,vn);
end
end
return da;
end
function SetData(data,f);
begin
if Fdata=data then return;
DeleteAllColumns();
if ifobj(data)then
begin
FObjectData := data;
r := objecttoarray(data);
return SetData(r,1);
end
if not ifarray(data)then return;
if f then FObjectData := nil;
FData := data;
setdatap();
end
function itemishow(r,r2);
begin
return r[2]<r2[0]or r[0]>r2[2];
end
function getitemcontrol(d,p,i,j,tp,cp,idexs);
begin
idx := format("%d*%d",i,j);
o := FCControls[idx];
if tp="grid" then
begin
if not o then
begin
o := new TTSlDataGrid(self);
o.ControlIndexs(idexs);
o.height := 500;
o.width := 500;
o.Twodimensional := Twodimensional;
O.CanEditStr := CanEditStr;
o.Visible := false;
o.wspopup := true;
o.WsSysMenu := true;
o.WsSizeBox := true;
o.parent := self;
o.onclose := thisfunction(ShowDataClose);
FCControls[idx]:= o;
end
o.Twodimensional := Twodimensional;
if o.wspopup then p := ClientToScreen(p[0],p[1]);
o.left := p[0];
o.top := p[1];
o.caption := cp;
o.TSLdata := d;
o.show();
end
end
public
function create(AOwner);override;
begin
inherited;
FCControls := array();
FRowHeader := true;
FixedColumns := 1;
caption := "";
FMRWD := 100;
FShowTwo := false;
//OndblClick := thisfunction(GridCellDblClick);
OnClick := thisfunction(CellClick);
RegisterRender(new TGCellBoolRender());
FNumberAlign := AL9_CENTERRIGHT;
FStringAlign := AL9_CENTERLEFT;
FDefAlign := AL9_CENTER;
end
function InitializeWnd();override;
begin
inherited;
end
procedure Notification(AComponent:TComponent;Operation:TOperation);override;
begin
if Operation=opRemove then
begin
for i,v in FCControls do
begin
if v=AComponent then
begin
reindex(FCControls,array(i:nil));
break;
end
end
end
inherited;
end
function getdata(i,j,cp,indexs);
begin
{**
@explan(说明) 获取数据
**}
if not FRows then return nil;
if j=0 and FRowHeader then return FRows[i];
r := FRows[i];
if FCols and FShowTwo then
begin
if FRowHeader then c := FCols[j-1];
else c := FCols[j];
d := FData[r][c];
if cp then cp := "["+tostn(r)+"]";
if cp then cp += "["+tostn(c)+"]";
if indexs then indexs := array(r,c);
end else
begin
d := FData[FRows[i]];
if cp then cp := "["+tostn(r)+"]";
if indexs then indexs := array(r);
end
return d;
end
function DoDrawSubItem(o,e);override;
begin
inherited;
if e.skip then exit;
dc := e.canvas;
i := e.itemid;
j := e.subitemid;
d := getdata(i,j);
src := e.SubItemRect;
if j=0 and FRowHeader then
begin
//_wapi.DrawFrameControl(dc.Handle,src,DFC_BUTTON,DFCS_BUTTONPUSH);
dc.Draw("framecontrol",array(src[0:1],src[2:3]),DFC_BUTTON,DFCS_BUTTONPUSH);
end
ds := "";
dc.font.color := 0;
if ifarray(d)then
begin
if d["type"]="object" then
begin
rd := GetCellRender(d["class"]);
if rd is class(TGCellRender)then
begin
rd.CellDraw(o,e,d);
end
end else
begin
ds := format("<Array[%d]>",length(d));
//dc.drawtext(ds,src);
class(TLabel).CanvasDrawAlignText(dc,src,ds,FDefAlign);
end
end else
if ifstring(d)then
begin
ds := d;
//dc.drawtext(ds,src);
class(TLabel).CanvasDrawAlignText(dc,src,ds,FStringAlign);
end else
if ifobj(d)then
begin
//dc.drawtext("<TSL Object>",src);
class(TLabel).CanvasDrawAlignText(dc,src,"<TSL Object>",FDefAlign);
end else
begin
ds := tostn(d);
if d<0 then dc.font.color := rgb(200,0,0);
if ifnumber(d)and j>0 then
begin
//dc.drawtext(ds,src,DT_RIGHT);
class(TLabel).CanvasDrawAlignText(dc,src,ds,FNumberAlign);
end else
begin
//dc.drawtext(ds,src);
if not ifnil(d)then class(TLabel).CanvasDrawAlignText(dc,src,ds,FStringAlign);
end
end
end
function DoDrawItem(o,e);override;
begin
dc := e.canvas;
rc := e.rcitem;
{if SelectedRow = e.id then
if ifnumber(SelectRowColor) then dc.brush.color := SelectRowColor;
else
dc.brush.color := rgb(150,150,150);
else }
if color then dc.brush.color := color; //
else dc.brush.color := rgb(255,255,255);
dc.fillrect(rc);
inherited;
end
function CellClick(o,e);virtual;
begin
i := e.iitem;
j := e.isubitem;
cellid := array(i,j);
if not(i >= 0 and j >= 0)then
begin
exit;
end
d := getdata(i,j);
if ifarray(d)and d["type"]="object" then
begin
rd := GetCellRender(d["class"]);
if rd is class(TGCellRender)then
begin
return rd.CellClick(o,e,d);
end
end else
if ifnumber(d)or ifstring(d)or ifnil(d)then
begin
CreateFedit();
if not CanEditStr then exit;
onShowEdit(e);
end
end
function GridCellDblClick(o,e);virtual;
begin
cp := 1;
cl := e.isubitem;
if cl<1 and FRowHeader then exit;
indexs := 1;
d := getdata(e.iitem,cl,cp,indexs);
p := e.ptaction;
if ifarray(d)then
begin
if d["type"]="object" then
begin
rd := GetCellRender(d["class"]);
if r then return r.CelldbClick(o,e,d);
end
getitemcontrol(d,p,e.iitem,cl,"grid",cp,indexs);
end else
if ifobj(d)then
begin
return getitemcontrol(d,p,e.iitem,cl,"grid",cp,indexs);
end
end
function ShowDataClose(o,e);
begin
o.show(false);
o.TSLdata := array();
e.skip := true;
o.Recycling();
end
function Recycling();override;
begin
FCols := nil;
Fdata := nil;
inherited;
end
function SetValue(index,val);virtual;
begin
if ifobj(FObjectData)then
begin
p := index[0];
if ifstring(p)then
begin
try
invoke(FObjectData,p,1,val);
except
end
end
end
if not ifarray(FData)then exit;
r := magicsetarray(FData,index,val);
if FControlIndex then
begin
if parent is class(TTSLDataGrid)then
begin
parent.SetValue(FControlIndex,FData);
end
end
return r;
idx := "FData";
for i,v in index do
begin
if ifnumber(v)then idx += format("[%d]",v);
else if ifstring(v)then
begin
idx += format('["%s"]',v);
end
end
if length(idx)>5 then
begin
vals := idx+":="+tostn(val)+";"; //FData["c"]["value"]:=0;
try
eval(&vals);
except
//echo "===errr";
end;
end
end
function ControlIndexs(dx);
begin
{**
@ignore(忽略) %%
**}
if dx then FControlIndex := dx;
return FControlIndex;
end
function RegisterRender(it);
begin
if it is class(TGCellRender)then
begin
if not ifarray(FGCellRender)then FGCellRender := array();
FGCellRender[it.EditType()]:= it;
end else
if ifarray(it)then
begin
for i,v in it do call(thisfunction,v);
end
end
function EditKeyPress(o,e);
begin
k := e.wparam;
if k=VK_ESCAPE or k=13 then
begin
info := o._tag;
if ifarray(info)then
begin
v := o.text;
v2 := info[2];
if ifnumber(v2)then
begin
vi := StrToNumber(v);
if v2 <> vi then
begin
SetValue(info[3],vi);
end
end else
begin
if v2 <> v then
begin
SetValue(info[3],v2);
end
end
end
o.visible := false;
end
end
function EditKillFocus(o,e);
begin
o.visible := false;
end
function onShowEdit(e);
begin
{**
@explan(说明) 显示编辑框 %%
**}
i := e.iitem;
j := e.isubitem;
rc := GetSubItemRect(i,j);
FEditStr.SetBoundsRect(rc);
indexs := 1;
v := getdata(i,j,nil,indexs);
FEditStr._tag := array(i,j,v,indexs);
vs := "";
if ifstring(v)then vs := v;
else if ifnumber(v)then v := tostn(v);
FEditStr.text := v;
FEditStr.show();
xy := e.ptaction;
pt := makelong(xy[0]-rc[0],xy[1]-rc[1]);
FEditStr._send_(WM_LBUTTONDOWN,0,pt,0);
end
property Twodimensional:bool read FShowTwo write SetTwoD;
property TSLdata:variable read GetTSLData write SetData;
property ColumnWidth:integer read FColumnWidth write FColumnWidth;
property RowHeader:bool read FRowHeader write SetRowHeader;
property CanEditStr:bool read FCanEditStr write FCanEditStr;
property StringAlign:AlignStyle9 read FStringAlign write SetStringAlign;
property NumberAlign:AlignStyle9 read FNumberAlign write SetNumberAlign;
property DefAlign:AlignStyle9 read FDefAlign write SetdefAlign;
{**
@param(Twodimensional)(BOOL) 是否二维强制二维展示 %%
@param(TSLdata)(array) tsl数据 %%
**}
end
type TGridList = class(TListView)
{**
@explan(说明) 用tlistview 模拟 list %%
**}
function clean();
begin
DeleteAllItems();
end
function CheckItem(v);override;
begin
{**
@explan(说明) 检查项目 %%
**}
return List.indexof(v)<0;
end
function additem(v);virtual;
begin
appenditem(v);
end
function additems(v);virtual;
begin
appenditems(v);
end
function create(AOwner);override;
begin
inherited;
end
function DoDrawSubItem(o,e);override;
begin
dc := e.canvas;
if not dc.Handle then exit;
j := e.subitemid;
if j = 0 then
begin
i := e.itemid;
src := e.subItemRect;
_wapi.DrawFrameControl(dc.Handle,src,DFC_BUTTON,DFCS_BUTTONPUSH);
dc.DrawText(inttostr(i),src,DT_VCENTER .| DT_SINGLELINE);
end
end
end
//**********属性编辑类***************
/////////////////////////////////////////////////////////////////////////
type TGridCellNaturalEdit = class(TGridPropertyRender,TPropertyNatural)
FRow;
FCol;
FGrid;
FEdit;
public
function create(AOwner);override;
begin
inherited;
FGrid := AOwner;
end
function numbertotext(num);virtual;
begin
if ifnumber(num) then return inttostr(num);
return "";
end
function textonumber(txt);virtual;
begin
return strtointdef(txt,0);
end
function Ched(o,e);
begin
v := textonumber(o.TEXT);
if flastvalue = v then return ;
flastvalue := v;
FGrid.CellChanged(FRow,FCol,"value",v);
//o.parent.CallChanged(o.parent,nil);
end
function EditKeyPress(o,e);virtual;
begin
if 13 = e.wparam then
begin
try
ched(o);
o.visible := false;
except
end ;
end else
begin
if not(e.wparam >= ord("0") and e.wparam<= ord("9") or e.wparam = VK_BACK) then
e.skip := true;
end
end
function CellClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
i := e.iitem;
j := e.isubitem;
Frow := i;
FCol := j;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
if d["class"]=EditType() and (FGrid is class(TDrawGrid)) then
begin
if not(FEdit is class(TWincontrol)) then
begin
FEdit := new TPopEditCtrl(FGrid);
FEdit.visible := false;
FEdit.OnKeyPress := thisfunction(EditKeyPress);
FEdit.parent := FGrid;
FEdit.OnChanged := thisfunction(Ched);
end
FEdit.SetBoundsRect(rec);//FEdit.SetBoundsRect(FGrid.clienttoscreen(rec[0],rec[1]) union FGrid.clienttoscreen(rec[2],rec[3]));
FEdit.text := numbertotext(d["value"]);
FEdit.parent := grid;
FEdit.SetFocus();
FEdit.visible := true;
end
end
function CellDraw(grid,e,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
if FGrid is class(TDrawGrid) then
e.canvas.drawtext(numbertotext(d["value"]),e.subItemRect,DT_CENTER .| DT_VCENTER .| DT_SINGLELINE);
end
function CellLeave(grid);virtual;
begin
{**
@explan(说明) 离开编辑格子 %%
**}
if not(FEdit is class(TPopEditCtrl)) then exit;
//FEdit.text := "";
FEdit.visible := false;
inherited;
end;
private
flastvalue;
end
type TGridCellIntegerEdit = class(TGridCellNaturalEdit)
{**
@explan(说明) 整数编辑 %%
**}
function EditType();override;
begin
return "integer";
end
function FormatEdit(d,modify);override;
begin
{**
@explan(说明)控件数据转换为修改表格数据 %%
**}
r := inherited;
r["class"] := EditType();
if not ifnil(d) then
begin
r["value"] := d;
end
return r;
end
public
function Create(AOwner);override;
begin
inherited;
end
function EditKeyPress(o,e);override;
begin
if e.wparam = ord("-") then
begin
end else inherited;
end
end
type TGridCellStringEdit = class(TGridCellNaturalEdit)
{**
@explan(说明) 整数编辑 %%
**}
function EditType();override;
begin
return "string";
end
function FormatEdit(d,modify);override;
begin
{**
@explan(说明)控件数据转换为修改表格数据 %%
**}
r := inherited;
r["class"] := EditType();
if not ifnil(d) then
begin
r["value"] := d?:"";
end
return r;
end
public
function Create(AOwner);override;
begin
inherited;
end
function textonumber(txt);override;
begin
return txt;
end
function numbertotext(num);override;
begin
return num;
end
function EditKeyPress(o,e);override;
begin
if e.wparam <>13 then
begin
end else inherited;
end
end
type TPopEditCtrl = class(TCustomControl)
private
FEdit;
FOnChanged;
FOnKeyPress;
function GetText();
begin
return FEdit.Text;
end
function SetText(v);
begin
FEdit.Text := v;
end
public
function dosetfocus();override;
begin
FEdit.SetFocus;
end
function WMACTIVATE(o,e):WM_ACTIVATE;override;
begin
if e.wparam = 0 then
begin
CallChanged(o,e);
end
end
function CallChanged(o,e);
begin
o.visible := false;
CallDataFunction(FOnChanged,o,e);
//O.text := "";
end
function create(AOwner);override;
begin
inherited;
//WsPopUp := true;
WsDlgModalFrame := false;
FEdit := new tedit(self);
width := FEdit.Width+2;
height := FEdit.Height +2;
FEdit.align := alClient;
FEdit.onkillfocus := function(o,e)begin
self.visible := false;
end
FEdit.parent := self;
FEdit.OnKeyPress := function(o,e)begin
CallDataFunction(FOnKeyPress,self,e);
end
end
function ReCycling();override;
begin
FOnChanged := nil;
FOnKeyPress := nil;
inherited;
end
property Text read GetText write SetText; //文本
property OnKeyPress read FOnKeyPress write FOnKeyPress; //按下
property OnChanged read FOnChanged write FOnChanged; //改变
end
type TGridCellColorEdit = class(TGridCellEditWithButton,TPropertyColor)
{**
@explan(说明) color edit
**}
private
Fcpok ;
FColorChoose;
public
function create(AOwner);override;
begin
inherited;
FRbuttonWidth := 20;
end
function ButtonClick(grid,e,d);override;
begin
Fcpok := true;
if not(FColorChoose) then
begin
FColorChoose := new TColorChooseADlg(grid);
FColorChoose.Parent := grid;
end
FColorChoose.Result := d["value"];
if FColorChoose.OpenDlg() and Fcpok then
begin
grid.CellChanged(e.iitem,e.isubitem,"value",FColorChoose.Result);
end
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
dc.brush.color := d["value"];
dc.fillrect(rect);
end
function CellLeave();override;
begin
Fcpok := false;
inherited;
end
end
type TGridCellDirectoryEdit = class(TGridCellEditWithButton,TPropertyDirectory)
{**
@explan(说明) color edit
**}
private
Fcpok ;
FColorChoose;
public
function create(AOwner);override;
begin
inherited;
end
function ButtonClick(grid,e,d);override;
begin
Fcpok := true;
if not(FColorChoose) then
begin
FColorChoose := new TFolderChooseADlg(grid);
FColorChoose.Parent := grid;
end
if FColorChoose.OpenDlg() and Fcpok then
begin
grid.CellChanged(e.iitem,e.isubitem,"value",FColorChoose.Folder);
end
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
if ifarray(d) then
begin
dc.drawtext(d["value"],rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function CellLeave();override;
begin
Fcpok := false;
inherited;
end
end
type TGridCellFileNameEdit = class(TGridCellEditWithButton,TPropertyFileName)
{**
@explan(说明) color edit
**}
private
Fcpok ;
FColorChoose;
public
function create(AOwner);override;
begin
inherited;
end
function ButtonClick(grid,e,d);override;
begin
Fcpok := true;
if not(FColorChoose) then
begin
FColorChoose := new TOpenFileADlg(grid);
FColorChoose.Parent := grid;
end
if FColorChoose.OpenDlg() and Fcpok then
begin
grid.CellChanged(e.iitem,e.isubitem,"value",FColorChoose.FileName);
end
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
if ifarray(d) then
begin
dc.drawtext(d["value"],rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function CellLeave();override;
begin
Fcpok := false;
inherited;
end
end
type TGridCellFontEdit = class(TGridCellEditWithButton,TPropertyFont)
{**
@explan(说明) font edit
**}
private
Fcpok ;
FColorChoose;
fparser;
public
function create(AOwner);override;
begin
inherited;
end
function ButtonClick(grid,e,d);override;
begin
Fcpok := true;
if not(FColorChoose) then
begin
FColorChoose := new TFontChooseADlg(grid);
FColorChoose.Parent := grid;
end
FColorChoose.fontinfo := d["value"];
if FColorChoose.OpenDlg() and Fcpok then
begin
i := e.iitem;
j := e.isubitem;
grid.CellChanged(i,j,"value",FColorChoose.fontinfo);
end
end
function CellDrawLabel(dc,rect,d);override;
begin
dc.SaveDC();
dc.font := d["value"];
dc.drawtext("tfont",rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
dc.RestoreDC();
end
function CellLeave();override;
begin
Fcpok := false;
inherited;
end
end
type TGridCellhotkeyEdit = class(TGridPropertyRender,TPropertyHotkey)
{**
@explan(说明) 自然数编辑
**}
FRow;
FCol;
FGrid;
FEdit;
function hotchange(o,e);
begin
if e.wparam = 13 then
begin
e.skip := true;
FGrid.CellChanged(FRow,FCol,"value",FEdit.hotkey);
end
end
public
function create(AOwner);override;
begin
inherited;
FGrid := AOwner;
end
function CellClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
i := e.iitem;
j := e.isubitem;
Frow := i;
FCol := j;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
if d["class"]=EditType() and (FGrid is class(TDrawGrid)) then
begin
if not(FEdit is class(TEdit)) then
begin
FEdit := new thotkey(FGrid);
FEdit.visible := false;
FEdit.parent := FGrid;
FEdit.onkeydown := thisfunction(hotchange);
end
FEdit.SetBoundsRect(rec);
FEdit.hotkey := d["value"];
FEdit.parent := grid;
FEdit.SetFocus();
FEdit.visible := true;
end
end
function CellDraw(grid,e,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
if FGrid is class(TDrawGrid) then
if ifarray(d) then
e.canvas.drawtext(class(thotkey).hotkeytostr(d["value"]),e.subItemRect,DT_CENTER .| DT_VCENTER .| DT_SINGLELINE);
end
function CellLeave(grid);override;
begin
{**
@explan(说明) 离开编辑格子 %%
**}
if not(FEdit is class(thotkey)) then exit;
FEdit.visible := false;
inherited;
FGrid.CellChanged(FRow,FCol,"value",FEdit.hotkey);
end;
end
type TGridCellBoolEdit = class(TGridPropertyRender,TPropertyBool)
{**
@explan(说明) boolcell编辑
**}
private
FRbuttonWidth;
function DrawButton(dc,srca,v);
begin
src := srca;
src[0] := src[2]-FRbuttonWidth;
src[1]+=3;
src[3]-=3;
_wapi.DrawFrameControl(dc.Handle,src,DFC_BUTTON,v?DFCS_CHECKED:DFCS_BUTTONCHECK);
end
public
function create(AOwner);override;
begin
inherited;
FRbuttonWidth := 20;
end
function CellClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
if not( grid is class(TDrawGrid)) then exit;
i := e.iitem;
j := e.isubitem;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
if pt[0]<(rec[2]-FRbuttonWidth) then exit;
if d["class"]="bool" then
begin
grid.CellChanged(i,j,"value",not(d["value"]));
end
end
function CellDraw(grid,e,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
src := e.SubItemRect;
dv := d["value"];
dc := e.canvas;
if src[2]-src[0]>50 then
begin
src1 := src;
src1[2]-=FRbuttonWidth;
dc.drawtext(dv?"TRUE":"FALSE",src1,DT_CENTER .| DT_VCENTER .| DT_SINGLELINE);
end
DrawButton(dc,src,dv);
end
end
type TGridCellSysCursorEidt=class(TOneSelectCell,TPropertyTypeSysCursor)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyTypeSysCursor).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end //属性编辑表格
type TGridCellVariableTactionEdit = class(TGridCellVariableEdit)
function nameFilter();override;
begin
return EditType();
end
function IfComponent();virtual;
begin
{**
@explan(说明) 是否为控件%%
**}
return true;
end
Function EditType();override;
begin
return "taction";
end
function CellDrawLabel(dc,rect,d);override;
begin
v := d["value"];
if v is class(tcomponent) then
begin
dc.DrawText(v.name,rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end else inherited;
end
function create(owner);override;
begin
inherited;
end
end
type TGridCellVariableTrayEdit = class(TGridCellVariableTactionEdit)
Function EditType();override;
begin
return "ttray";
end
function create(owner);override;
begin
inherited;
end
end
type TGridCellVariabletpopupmenuEdit = class(TGridCellVariableTactionEdit)
Function EditType();override;
begin
return "tpopupmenu";
end
function create(owner);override;
begin
inherited;
end
end
type TGridCellVariabletmainmenuEdit = class(TGridCellVariableTactionEdit)
Function EditType();override;
begin
return "tmainmenu";
end
function create(owner);override;
begin
inherited;
end
function FormatTMF(d);override;
begin
if d is class(tcomponent) then
begin
r := d.name;
if r then return r;
end
return false;
end
function GetItemValue(V);override;
begin
if v is class(TDComponent) then r := v.GetTrueComponent();
return r;
end
end
type TGridCellVariabletimagelistEdit = class(TGridCellVariableTactionEdit)
Function EditType();override;
begin
return "tcontrolimagelist";
end
function CellDrawLabel(dc,rect,d);override;
begin
v := d["value"];
if v is class(tcomponent) then
begin
dc.DrawText(v.name,rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function FormatTMF(d);override;
begin
if d is class(tcomponent) then
begin
r := d.name;
if r then return r;
end
return false;
end
function GetItemValue(V);override;
begin
if v is class(TDComponent) then r := v.GetTrueComponent();
return r;
end
function create(owner);override;
begin
inherited;
end
end
type TGridCellVariablehgtEdit = class(TGridCellVariabletimagelistEdit)
Function EditType();override;
begin
return "thighlighter";
end
function create(owner);override;
begin
inherited;
end
end
type TBtnCellDrawVTtype = class(TGridCellEditWithButton)
function Create(AOwner);override;
begin
inherited;
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制标签 %%
**}
if ifarray(d) then
begin
dc.drawtext(self(true).EditType(),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
end
type TGridCellImagesEdit = class(TBtnCellDrawVTtype,TPropertyImagesData)
private
FGrid;
FEdit;
FImageEditer;
function GetImagesEdit();
begin
if not FImageEditer then
begin
FImageEditer := new TIconsEditer(FGrid);
FImageEditer.parent := FGrid;
end
FImageEditer.clean();
return FImageEditer;
end
public
function CellDrawLabel(dc,rect,d);override;
begin
if not(d and ifarray(d)) then exit;
dv := d["value"];
if ifarray(dv) and dv["type"]="bmps" then
begin
its := dv["items"];
if ifarray(its) then
dc.DrawText("imgs:"+inttostr(length(its)),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
FRbuttonWidth := 20;
FGrid := AOwner;
end
function ButtonClick(grid,e,d);override;
begin
GetImagesEdit();
if FImageEditer then
begin
FImageEditer.seticons(d["value"]["items"]);
FImageEditer.showmodal();
if self.Activated then
begin
dd := FImageEditer.GetIcons();
//echo tostn(dd);
grid.CellChanged(e.iitem,e.isubitem,"value",array("type":"bmps","items":dd));
end
end
end
end
type TGridCellBitmapEdit = class(TBtnCellDrawVTtype,TPropertyBitmap)
private
FGrid;
FEdit;
FImageEditer;
function GetImagesEdit();
begin
if not FImageEditer then
begin
FImageEditer := new TOpenFileADlg(FGrid);
FImageEditer.parent := FGrid;
end
return FImageEditer;
end
public
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
if ifarray(d) and (d["value"] is class(TcustomBitmap) )then inherited;
end
function create(AOwner);override;
begin
inherited;
FRbuttonWidth := 20;
FGrid := AOwner;
end
function ButtonClick(grid,e,d);override;
begin
i := e.iitem;
j := e.isubitem;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
GetImagesEdit();
if FImageEditer.opendlg() then
begin
inherited;
bmp := new tbitmap();
bmp.id := FImageEditer.FileName;
if bmp.HandleAllocated() then
grid.CellChanged(i,j,"value",bmp);
else grid.CellChanged(i,j,"value",nil);
end
else grid.CellChanged(i,j,"value",nil);
end
end
type TGridCellIconEdit = class(TBtnCellDrawVTtype,TPropertyIcon)
private
FGrid;
FEdit;
FImageEditer;
function GetImagesEdit();
begin
if not FImageEditer then
begin
FImageEditer := new TOpenFileADlg(FGrid);
FImageEditer.parent := FGrid;
end
return FImageEditer;
end
public
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
if ifarray(d) and (d["value"] is class(tcustomicon)) then inherited;
end
function create(AOwner);override;
begin
inherited;
FRbuttonWidth := 20;
FGrid := AOwner;
end
function ButtonClick(grid,e,d);override;
begin
i := e.iitem;
j := e.isubitem;
pt := e.ptaction;
rec := grid.getSubItemRect(i,j);
GetImagesEdit();
if FImageEditer.opendlg() then
begin
inherited;
ic := new Ticon();
ic.id := FImageEditer.FileName;
if ic.HandleAllocated() then
grid.CellChanged(i,j,"value",ic);
else grid.CellChanged(i,j,"value",nil);
end
else grid.CellChanged(i,j,"value",nil);
end
end
type TGridCellStatusItemsEdit = class(TBtnCellDrawVTtype,TPropertyStatusItems)
private
FGrid;
FStatus;
function GetWnd();
begin
if (not FStatus) and (FGrid is class(TWincontrol)) then
begin
FStatus := new TListStatusEdit(FGrid);
FStatus.parent := FGrid;
end
return FStatus;
end
public
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) and ifarray(d["value"]) then
begin
dc.DrawText("item:"+inttostr(length(d["value"])),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(owner);override;
begin
inherited;
FGrid := owner;
end
function OnApplay(o,e);virtual;
begin
o.EndModalCode := true;
o.EndModal();
end
function ButtonClick(grid,e,d);override;
begin
if GetWnd() then
begin
inherited;
FStatus.OnApplay := thisfunction(OnApplay);
FStatus.setitems(d["value"]);
FStatus.EndModalCode := false;
if FStatus.showmodal() then
begin
grid.CellChanged(e.iitem,e.isubitem,"value",FStatus.ListControl.ListValues);
end
end
end
end
type TGridCellFileFilterEdit = class(TGridCellEditWithButton,TPropertyFileFilter)
private
FGrid;
FStatus;
function GetWnd();
begin
if (not FStatus) and (FGrid is class(TWincontrol)) then
begin
FStatus := new TListStatusEdit2(FGrid);
FStatus.SetLable(0,"显示");
FStatus.SetLable(1,"条件");
FStatus.SetColoumn(1,"文本");
FStatus.SetColoumn(2,"筛选");
FStatus.parent := FGrid;
FStatus.FCheckNumber := false;
end
return FStatus;
end
public
function create(owner);override;
begin
inherited;
FGrid := owner;
end
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) and ifarray(d["value"]) then
begin
dc.DrawText("item:"+inttostr(length(d["value"])),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function OnApplay(o,e);virtual;
begin
o.EndModalCode := true;
o.EndModal();
end
function ButtonClick(grid,e,d);override;
begin
if GetWnd() then
begin
inherited;
FStatus.OnApplay := thisfunction(OnApplay);
dv := array();
dvi := 0;
for i,v in d["value"] do
begin
dv[dvi]["width"] := i;
dv[dvi++]["text"] := v;
end
FStatus.setitems(dv);
FStatus.EndModalCode := false;
if FStatus.showmodal() then
begin
vs := FStatus.ListControl.ListValues;
dv := array();
for i,v in vs do
begin
dv[v["width"]] := v["text"];
end
grid.CellChanged(e.iitem,e.isubitem,"value",dv);
end
end
end
end
type TGridCellLazyIntegerEdit = class(TGridCellIntegerEdit)
function EditType();override;
begin
return "lazyinteger";
end
function LazyProperty();override;
begin
return true;
end
function create(AOwner);override;
begin
inherited;
end
end
type TGridCellLazystrEdit = class(TGridCellStringEdit) //后处理信息
function EditType();override;
begin
return "lazystr";
end
function LazyProperty();override;
begin
return true;
end
function create(AOwner);override;
begin
inherited;
end
end
//*****************选择list*******************************************
type UniCheckList = class(TTreeView) //单选
private
Fdata;
FOnSelChanged;
public
function Create(AOwner);override;
begin
inherited;
hasline := false;
Fdata := array();
OnActivate := function(o,e)
begin
if e.lowparam = WA_INACTIVE then
begin
Visible := false;
end
end ;
end
function DoOnSelChang(v);
begin
Calldatafunction(FOnSelChanged,self(true),v);
end
function MouseUp(o,e);override;
begin
it := CurrentNode;
nit := GetItemIndexByYpos(e.ypos);
if nit >=0 then
begin
inherited;
if CurrentNode and CurrentNode<>nit then
begin
DoOnSelChang(CurrentNode._tag);
end
end
else
begin
DoOnSelChang(nil);
end
end
function hasFocus();override;
begin
return true;
end
function SetList(lst);
begin
clean(); //清空
rnd := RootNode;
Fdata := array();
for i,v in lst do
begin
nd := CreateTreeNode(self);
nd.Caption := v[0];
nd._tag := v[1];
nd.Parent := rnd;
Fdata[v[1]] := nd;
end
end
function SetSelValue(v);
begin
for i,vi in FData do
begin
if vi._tag = v then return SetSel(vi);
end
end
property OnSelChanged read FOnSelChanged write FOnSelChanged;
end
//*************zh**property*******************************
type tGridCellAlignPos3BoxEdit=class(TOneSelectCell ,TPropertyAlign3)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyAlign3).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type tGridCelllistseltypeEdit=class(TOneSelectCell ,TPropertylistseltype)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertylistseltype).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type tGridCellDayOfWeekBoxEdit=class(TOneSelectCell,TPropertyDayOfWeek)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyDayOfWeek).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type TGridCellPairIntEdit=class(TGridPropertyRender,TPropertyPairInt)
private
FGrid;
FeditWindow;
Fi;
Fj;
type PairWindow=class(tpanel)
private
ts1;
ts2;
edit1;
edit2;
btn;
ari;
FonOK;
function is_valid_int(str);begin
arr:=array('0','1','2','3','4','5','6','7','8','9');
if r:=length(str) then begin
if r=1 then
return not (r='-');
if str[1] in arr or str[1]='-' then begin
for i:=2 to r do
if not(str[i] in arr) then
return 0;
return 1;
end
end
return 0;
end
public
function initializewnd();override;begin
inherited;
ts1.caption:="下限：";
ts2.caption:="上限：";
ts1.left:=8;
ts1.top:=8;
ts2.left:=8;
ts2.top:=40;
edit1.top:=8;
edit1.left:=50;
edit2.top:=40;
edit2.left:=50;
btn.top:=68;
btn.left:=30;
btn.caption:="确定";
ts1.parent:=self;
ts2.parent:=self;
edit1.parent:=self;
edit2.parent:=self;
btn.parent:=self;
end
function create(aowner);override;begin
inherited;
height:=132;
width:=152;
caption:="设置";
wscaption := true;
wssysmenu := true;
wspopup := true;
visible := false;
ari:=array(0,0);
ts1:=new tstext(self);
ts2:=new tstext(self);
edit1:=new tedit(self);
edit2:=new tedit(self);
btn:=new tbtn(self);
btn.onclick:=function(o,e)begin
if(is_valid_int(edit1.text) and is_valid_int(edit2.text)) then begin
i:=strtoint(edit1.text);
j:=strtoint(edit2.text);
if i<=j then begin
ari:=array(i,j);
calldatafunction(FonOK,o,e);
visible:=0;
setarr(array("",""));
return;
end
end
_wapi.MessageBoxA(self.handle,"非法范围","错误",0);
end
end
function WMCLOSE(o,e):WM_CLOSE;override;
begin
o.visible := false;
e.skip := true;
inherited;
end
function getarr();begin
return ari;
end
function setarr(ari);begin
edit1.text:=ari[0];
edit2.text:=ari[1];
end
property onOK read FonOK write FonOK;
end
type Tstext = class(TGraphicControl)
FCaption ;
function create(owner);
begin
inherited;
FCaption := "tstext";
height:=16;
width:=50;
end
procedure Paint(); override;
begin
rect := clientrect;
Canvas.font.height := 16;
// Canvas.font.SetValues(array("height":-18,"width":0,"escapement":0,"orientation":0,"weight":400,"italic":0,"underline":0,"strikeout":0,"charset":134,"outprecision":3,"clipprecision":2,"quality":1,"pitchandfamily":2,"facename":"宋体","color":0));
Canvas.drawtext(FCaption,rect);
end
function SetCaption(v);override;
begin
inherited;
if not(ifstring(v) and (FCaption<>v)) then exit;
FCaption := v;
end
property caption read FCaption write SetCaption;
end
public
function create(AOwner);override;begin
inherited;
FGrid := AOwner;
FeditWindow:=nil;
end
function CellClick(grid,e,d);override;begin
Fi := e.iitem;
Fj := e.isubitem;
if ifnil(FeditWindow) then begin
FeditWindow:=new PairWindow(FGrid);
FeditWindow.onOK:=function(o,e)begin
Fgrid.CellChanged(Fi,Fj,"value",FeditWindow.getarr());
end
end
if ifnil(FeditWindow.parent) then begin
FeditWindow.parent :=FGrid;
end
rec := grid.getSubItemRect(Fi,Fj);
r:=grid.ClientToScreen(rec[0],rec[3]);
FeditWindow.left:=r[0];
FeditWindow.top:=r[1];
FeditWindow.show();
end
function CellDraw(grid,e,d);override;begin
{**
@explan(说明) 绘制格子 %%
**}
if FGrid is class(TDrawGrid) then begin
str:=inttostr(d["value"][0])+":"+inttostr(d["value"][1]);
e.canvas.drawtext(str,e.subItemRect,DT_CENTER.|DT_VCENTER);
end
end
function CellLeave(grid);override;begin
{**
@explan(说明) 离开编辑格子 %%
**}
_wapi.PostMessageA(FeditWindow.handle,WM_CLOSE,0,0);
end
end
type TGridCellPairSpliterTypeEdit=class(TOneSelectCell,TPropertySpliterType)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertySpliterType).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type TGridCellTreeViewDataEdit=class(TGridCellEditWithButton,TPropertyTreeViewData)
private
FeditWindow;
Fgrid;
fi;
fj;
FnodeNum;
type tPopupEditorWindow=class(tpanel)
private
FtreeViewBox;
FnewItemBtn;
FnewSubItemBtn;
FmoveUpBtn;
FmoveDownBtn;
FdeleteBtn;
FclearBtn;
Fstatictxt0;
Fstatictxt1;
Fstatictxt2;
Fedit0;
Fedit1;
Fedit2;
Fokbtn;
Fcancelbtn;
mok;
editingNode;
function setwindow(window,l,t,w,h);begin
if l then window.left:=l;
if t then window.top:=t;
if h then window.height:=h;
if w then window.width:=w;
window.parent:=self;
end
type TreeViewEditorClass=class(TTreeView)
private
currentSelection;
counter;
fSelectionChanged;
function createNode(aname,img,selimg);begin
n:=new TTreeNode(self);
n.caption:=aname;
n.imgid:=img;
n.selimgid:=selimg;
return n;
end
type nameCounter=class
private
countNumber;
countUp;
public
function create();begin
countNumber:=0;
countUp:=0;
end
function getName();begin
if countUp<>1000000 then begin
++countNumber;
return "项目"+inttostr(countUp++);
end
return "项目";
end
function deleteName(n);begin
if "项目"+inttostr(countUp-1)=n then
--countUp;
--countNumber;
end
function reset(n);begin
countNumber:=n?:0;
countUp:=n?:0;
end
end
function getlastnode(node);begin
t:=node.itemcount;
if t then
return getlastnode(node.indexof(t-1));
return node;
end
function setCurrentSelection(n,b);begin
if b then
currentSelection:=n;
else
setsel(n);
end
function getCurrentSelection();begin
if ifnil(currentSelection) then
currentSelection:=rootItem;
return currentSelection;
end
public
function initializewnd();override;begin
inherited;
getCurrentSelection();
end
function create(aOwner);override;begin
inherited;
// counter:=new nameCounter();
self.OnSelChanged:=function(o,e)begin
if e.itemnew is class(tTreeNode) then begin
setCurrentSelection(e.itemnew,1);
calldatafunction(fSelectionChanged,getCurrentSelection());
end
end
end
function addNewItem();begin
//添加新项
// if not currentSelection then currentSelection := RootItem;
if getCurrentSelection()=RootItem then
return addNewSubItem();
// d:=createNode(counter.getName(),-1,-1);
d:=createNode("item",-1,-1);
// p:=currentSelection.parent;
getCurrentSelection().insertsibling(d);
setCurrentSelection(d);
end
function addNewSubItem();begin
//添加新子项
// d:=createNode(counter.getName(),-1,-1);
d:=createNode("item",-1,-1);
getCurrentSelection().insertNode(d);
setCurrentSelection(d);
end
function move(b);begin
//0下移，1上移。
if getCurrentSelection()=RootItem then
return;
t:=getCurrentSelection();
if b then
getCurrentSelection().moveUp();
else
getCurrentSelection().moveDown();
setCurrentSelection(t);
end
function deleteThis();begin
if getCurrentSelection()=RootItem then
return;
// t:=currentSelection.getsibling(-1)?:currentSelection.parent;
getCurrentSelection().recycling();
if RootItem.ItemCount<1 then setCurrentSelection(nil,1);
// setCurrentSelection(t);
end
function clear();begin
clean();
// counter.reset();
setCurrentSelection(nil,1);
end
function setTreeviewFigureData(arr,n);begin
lazyitems:=arr;
// counter.reset(n);
setCurrentSelection(nil,1);
end
property selectionChanged read fSelectionChanged write fSelectionChanged;
property selectedNode read currentSelection;
end
function flushInfo(n);begin
if n then begin
Fedit0.text:=n.caption;
Fedit1.text:=tostn(n.imgid);
Fedit2.text:=tostn(n.selimgid);
return;
end
Fedit0.text:="";
Fedit1.text:="";
Fedit2.text:="";
end
function charProc(o,e)begin
ac:=e.wparam;
if ac=VK_RETURN then
return 1;
if not((ac>=48 and ac<58) or ac=VK_BACK or (not length(o.text) and ac=45)) then
e.skip:=1;
return 0;
end
function saveEditingNode(o,e);begin
editingNode:=FtreeViewBox.selectedNode;
end
public
function create(aOwner);override;begin
inherited;
caption:="TreeViewEditor";
left:=300;
top:=300;
FtreeViewBox:=new TreeViewEditorClass(self);
FtreeViewBox.selectionChanged:=function(n)begin
flushInfo(n);
end
FnewItemBtn:=new tbtn(self);
FnewItemBtn.onclick:=function(o,e)begin
FtreeViewBox.addNewItem();
end
FnewSubItemBtn:=new tbtn(self);
FnewSubItemBtn.onclick:=function(o,e)begin
FtreeViewBox.addNewSubItem();
end
FmoveUpBtn:=new tbtn(self);
FmoveUpBtn.onclick:=function(o,e)begin
FtreeViewBox.move(1);
end
FmoveDownBtn:=new tbtn(self);
FmoveDownBtn.onclick:=function(o,e)begin
FtreeViewBox.move();
end
FdeleteBtn:=new tbtn(self);
FdeleteBtn.onclick:=function(o,e)begin
FtreeViewBox.deleteThis();
end
FclearBtn:=new tbtn(self);
FclearBtn.onclick:=function(o,e)begin
FtreeViewBox.clear();
flushInfo(nil);
end
Fedit0:=new tedit(self);
Fedit0.onSetFocus:=thisfunction(saveEditingNode);
// Fedit0.onKillFocus:=function(o,e)begin
// if editingNode then
// editingNode.caption:=o.text;
// end
FEdit0.onkeypress:=function(o,e)begin
if e.wparam=VK_RETURN then
if editingNode then
editingNode.caption:=o.text;
end
Fedit1:=new tedit(self);
Fedit1.onSetFocus:=thisfunction(saveEditingNode);
// Fedit1.onKillFocus:=function(o,e)begin
// if editingNode then
// editingNode.ImgId:=strtoint(o.text);
// end
FEdit1.onkeypress:=function(o,e)begin
if call("charProc",o,e) then
editingNode.ImgId:=strtoint(o.text);
end
// Fedit1.onkeypress:= thisfunction(charProc);
Fedit2:=new tedit(self);
Fedit2.onSetFocus:=thisfunction(saveEditingNode);
// Fedit2.onKillFocus:=function(o,e)begin
// echo "[KillFocus]\n";
// if editingNode then
// editingNode.SelImgId:=strtoint(o.text);
// end
Fedit2.onkeypress:=function(o,e)begin
if call("charProc",o,e) then
editingNode.SelImgId:=strtoint(o.text);
end
// Fedit2.onkeypress:=thisfunction(charProc);
Fokbtn:=new tbtn(self);
Fokbtn.onclick:=function(o,e)begin
calldatafunction(mok,o,e);
_send_(WM_CLOSE,0,0);
end
Fcancelbtn:=new tbtn(self);
Fcancelbtn.onclick:=function(o,e)begin
_send_(WM_CLOSE,0,0);
end
Fstatictxt0:=new TLabel(self);
Fstatictxt1:=new TLabel(self);
Fstatictxt2:=new TLabel(self);
height:=358;//经过计算的完美尺寸。
width:=570;
wscaption := true;
wssysmenu := true;
wspopup := true;
visible := false;
end
function initializewnd();override;begin
inherited;
setwindow(FtreeViewBox,24,24,216,280);
setwindow(FnewItemBtn,270,24,112);
FnewItemBtn.caption:="新建项";
setwindow(FnewSubItemBtn,270,73,112);
FnewSubItemBtn.caption:="新建子项";
setwindow(FmoveUpBtn,270,122,112);
FmoveUpBtn.caption:="选中项上移";
setwindow(FmoveDownBtn,270,171,112);
FmoveDownBtn.caption:="选中项下移";
setwindow(FdeleteBtn,270,220,112);
FdeleteBtn.caption:="删除选中项";
setwindow(FclearBtn,270,270,112);
FclearBtn.caption:="删除所有项";
Fstatictxt0.caption:="name:";
setwindow(Fstatictxt0,400,24,128,20);
setwindow(Fedit0,400,47,128);
Fstatictxt1.caption:="imageid:";
setwindow(Fstatictxt1,400,78,128,20);
setwindow(Fedit1,400,101,128);
Fstatictxt2.caption:="selimageid:";
setwindow(Fstatictxt2,400,132,128,20);
setwindow(Fedit2,400,155,128);
Fokbtn.caption:="确定";
setwindow(Fokbtn,400,269,65);
Fcancelbtn.caption:="取消";
setwindow(Fcancelbtn,475,269,65);
end
function WMCLOSE(o,e):WM_CLOSE;override;
begin
o.visible:=false;
e.skip:=1;
inherited;
end
function getlazyitems();begin
n:=FtreeViewBox.lazyitems;
// echo ">>Origin Lazyitems:",tostn(n);
if ifnil(n) then return array("type":"treenodes");
return n;
end
function updateEditorData(arr,n);begin
if ifnil(arr) then
arr:=array("type":"treenodes");
//echo ">>UPDATENUM:",n,"\n";
FtreeViewBox.setTreeviewFigureData(arr,n);
flushInfo(nil);
end
property ok read mok write mok;
end
function getnodenum(arr);begin
r:=mrows(arr);
for i:=0 to r-1 do
if arr[i]["nodes"] then
r+=getnodenum(arr[i]["nodes"]["items"]);
return r;
end
public
function create(AOwner);override;begin
inherited;
Fgrid:=aOwner;
FeditWindow:=nil;
end
function CellClick(grid,e,d);override;begin
Fi := e.iitem;
Fj := e.isubitem;
inherited;
end
function CellLeave(grid);override;begin
if FeditWindow then
_wapi.PostMessageA(FeditWindow.handle,WM_CLOSE,0,0);
end
function ButtonClick(grid,e,d);override;begin
if ifnil(FeditWindow) then begin
FeditWindow:=new tPopupEditorWindow(FGrid);
FeditWindow.ok:=function(o,e)begin
t := FeditWindow.getlazyitems();
Fgrid.CellChanged(Fi,Fj,"value",t);
end
end
if ifnil(FeditWindow.parent) then begin
FeditWindow.parent :=FGrid;
end
rec := grid.getSubItemRect(Fi,Fj);
FeditWindow.updateEditorData(d["value"],ifnil(FnodeNum)?0:FnodeNum);
FeditWindow.show();
end
function CellDrawLabel(dc,rect,d);override;
begin
// FnodeNum:=getnodenum(d["value"]["items"]);
// str:="itemstats:"+(ifnil(d["value"])?"0":inttostr(FnodeNum));
str:="itemstrings";
dc.drawtext(str,rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
type tGridCellAlignPosBoxEdit = class(TOneSelectCell,TPropertyAlign9)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyAlign9).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
//////////////////////多选list//////////////////////////////
type TMultiSelList = class(TCustomControl)
function Create(AOwner);
begin
inherited;
FList := new TListBox(self);
FList.Multisel := 2;
//FList.Appenditems(array("a","b","c"));
FList.setCurrentSelection(array(0,1));
FList.parent := self;
FOkBtn := new TBTN(self);
FBtnWidth := 80;
FOkBtn.width := FBtnWidth;
FOkBtn.caption := "确定";
FOkBtn.parent := self;
FCanceBtn := new TBTN(self);
FCanceBtn.width := FBtnWidth;
FCanceBtn.caption := "取消";
FCanceBtn.parent := self;
FCanceBtn.onclick := thisfunction(CancelClick);
FOkBtn.onclick := thisfunction(okClick);
end
function GetSelectdata();
begin
idx := FList.getSelectedIndexes();
r := array();
for i,v in idx do
begin
r[i] := Fdata[v,1];
end
return r;
end
function SetSelectData(d);
begin
idxs := array();
for i,v in d do
begin
for j,vj in Fdata do
begin
if v=vj[1] then
begin
idxs[i] := j;
break;
end
end
end
FList.setCurrentSelection(idxs);
end
function SetListData(d);
begin
if ifarray(d) then
begin
FList.SetData(d[:,0]);
Fdata := d;
end
end
function Recycling();override;
begin
fOnokclick := 0;
FOnCancelclick := 0;
Fdata := 0;
FBtnWidth:=0;
FList:=0;
FOkBtn:=0;
FCanceBtn:=0;
end
function DoControlAlign();override;
begin
if FList and FOkBtn AND FCanceBtn then
begin
r := ClientRect;
h := FOkBtn.height;
c := r;
c[3]-=h+4;
FList.SetBoundsRect(c);
bt := r[3]-h-1;
FOkBtn.Top := bt;
FOkBtn.Left := r[2]-FBtnWidth-5;
FCanceBtn.top := bt;
FCanceBtn.Left := r[2]-FBtnWidth-FBtnWidth-10;
end
end
function CancelClick(o,e);
begin
calldatafunction(FOnCancelclick,self(true),e);
end
function okClick(o,e);
begin
calldatafunction(fOnokclick,self(true),e);
end
property OnCancelclick read FOnCancelclick write FOnCancelclick;
property Onokclick read FOnokclick write fOnokclick;
private
fOnokclick;
FOnCancelclick;
Fdata;
FBtnWidth;
FList;
FOkBtn;
FCanceBtn;
end
type TMultiSelectCell = class(TGridCellEditWithButton)
FListSel;
private
FPanel;
FI;
FJ;
FCellv;
function GetSelPanel();virtual;
begin
if not FPanel then
begin
FPanel := new TMultiSelList(Owner);
FPanel.OnCancelclick := function(o,e)begin
o.visible := false;
end
FPanel.wspopup := true;
FPanel.SetListData(SelPalRange());
FPanel.Onokclick := thisfunction(SelChanged);
FPanel.parent := Owner;
end
end
function SelPalRange();virtual;
public
function SelChanged(o,e);
begin
if fi>=0 and fj>=0 and ifarray(FCellv) then
begin
o.visible := false;
v := o.GetSelectdata();
Owner.CellChanged(FI,FJ,"value",V);
end
end
function create(AOwner);override;
begin
inherited;
end
function ButtonClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
fi := e.iitem;
fj := e.isubitem;
FCellv := array();
GetSelPanel();
rec := GetPopRectByHeight(160);
rec[3] := rec[1]+160;
FPanel.SetBoundsRect(rec);
FPanel.SetSelectData(FListSel);
FPanel.Show();
end
function CellLeave(grid);override;
begin
{**
@explan(说明) 离开编辑格子 %%
**}
if FPanel then
FPanel.visible := false;
end;
end
//************red**propery**********************************
type TOneSelectCell = class(TGridCellEditWithButton)
private
FPanel;
FI;
FJ;
FCellv;
function GetSelPanel();virtual;
begin
if not FPanel then
begin
FPanel := new UniCheckList(Owner);
FPanel.wspopup := true;
FPanel.SetList(SelPalRange());
FPanel.OnSelChanged := thisfunction(SelChanged);
FPanel.parent := Owner;
end
end
function SelPalRange();virtual;
public
function SelChanged(o,v);
begin
if fi>=0 and fj>=0 and ifarray(FCellv) then
begin
o.visible := false;
Owner.CellChanged(FI,FJ,"value",v);
end
end
function create(AOwner);override;
begin
inherited;
end
function ButtonClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
fi := e.iitem;
fj := e.isubitem;
FCellv := array();
GetSelPanel();
rec := GetPopRectByHeight(160);
rec[3] := rec[1]+160;
FPanel.SetBoundsRect(rec);
FPanel.Show();
end
end
type TGridCellAnchorsEdit = class(TMultiSelectCell,TPropertyAnchors)
{**
@explan(说明)设置align属性%%
**}
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
FListSel := d["value"];
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyAnchors).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type TGridCellAlignEdit = class(TOneSelectCell,TPropertyAlign)
{**
@explan(说明)设置align属性%%
**}
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyAlign).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type TGridCellTabAlignEdit = class(TOneSelectCell,TPropertyTabAlign)
{**
@explan(说明)设置align属性%%
**}
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyTabAlign).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type TtextEditor = class(tpanel)
{**
@explan(说明)memo编辑器%%
**}
protected
btn1;
btn2;
function SetItemStr(v);virtual;
begin
memo.text := v;
end
function GetItemStr();virtual;
begin
memo.text;
end
public
itemData;
memo;
function DoControlAlign();override;
begin
if btn1 and btn2 and memo then
begin
rc := ClientRect;
rc2 := rc;
rc2[3]-=38;
memo.SetBoundsRect(rc2);
btop := rc[3]-34;
rt := rc[2]-5;
btn2.top := btop;
btn1.Top := btop;
btn2.Left := rc2[0]+(rt-btn2.width);
btn1.Left := rc2[0]+(rt-btn2.width*2-20);
end
end
function create(AOwner);override;
begin
inherited;
height := 400;
width := 400;
left := 500;
top := 200;
wspopup := true;
wscaption := true;
wssysmenu := true;
caption := "text Editor Dialog";
memo := new tmemo(self);
memo.autogutterwidth := true;
memo.OnKeyPress := thisfunction(MemoKeyPress);
memo.parent :=self;
btn1 := new tbtn(self);
btn1.parent := self;
btn2 := new tbtn(self);
btn2.parent := self;
btn1.caption := "取消";
btn2.caption := "确认";
btn1.onclick := thisfunction(cancelEdit);
btn2.onclick := thisfunction(comfirmEdit);
itemData:= "";
end
function MemoKeyPress(o,e);virtual;
begin
end
function textonumber(v);virtual;
begin
return v;
end
function comfirmEdit(o,e);virtual;
begin
itemData := memo.text;
EndModalCode := 1;
return EndModal();
end
function WMClose(o,e):WM_CLOSE;override;
begin
memo.text := " ";
e.skip := true;
EndModalCode := 0;
o.EndModal();
end
function cancelEdit(o,e);virtual;
begin
//把memo上的数据清除，同时记录的数据设置到memo
//关闭editor
memo.text := " ";
EndModalCode := 0;
return EndModal();
end
property ItemStr read GetItemStr write SetItemStr;
end
type TGridCellTextEdit = class(TGridCellEditWithButton,TPropertyText)
{**
@explan(说明)编辑字符串文本属性%%
**}
private
isShow;
FRbuttonWidth;
screenbottom;
protected
Fowner;
Fpanel;
rowNum;
colNum;
Fgrid;
public
function create(AOwner);override;
begin
inherited;
Fowner := AOwner;
Fpanel := nil;
FRbuttonWidth := 20;
screenArr := _wapi.getscreenrect();
screenbottom := screenArr[3];
isShow := true;
end
function createEditObj();virtual;
begin
Fpanel := new TtextEditor(Fowner);
end
function ButtonClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
rowNum := e.iitem;
colNum := e.isubitem;
Fgrid := grid;
pt := e.ptaction;
rec := grid.getSubItemRect(rowNum,colNum);
if pt[0]>=(rec[2]-FRbuttonWidth) then
begin
if ifnil(Fpanel) then begin
createEditObj();
Fpanel.parent := Fowner;
Fpanel.OnActivate := function(o,e)
begin
if e.lowparam = WA_INACTIVE then
begin
CellLeave(Fgrid);
end
end;
end
clickToText(d);
if Fpanel.showmodal()=1 then
begin
textChange1(Fpanel.itemData);
end
end
end
function clickToText(d);virtual;
begin
if d["value"] <> " " then
begin
Fpanel.ItemStr := d["value"];
end
end
function CellName();virtual;
begin
return "text";
end
function textChange1(data);virtual;
begin
Fgrid.CellChanged(rowNum,colNum,"value",data);
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
dc.drawtext(cellName(),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
type TGridCellStringsEdit = class(TGridCellTextEdit)
{**
@explan(说明)编辑字符串数组属性%%
**}
protected
function createEditObj();override;
begin
Fpanel := new TstringsEditor(Fowner);
end
function clickToText(d);override;
begin
if length(d["value"]) = 0 then Fpanel.ItemStr := "";
else Fpanel.ItemStr := Array2Str(d["value"],"\r\n");
end
function CellName();Override;
begin
return "<ARRAY>";
end
public
function EditType();override;
begin
return "strings";
end
function Create(AOwner);
begin
inherited;
end
end
type TGridCelltslEdit = class(TGridCellEditWithButton,tpropertytsl)
{**
@explan(说明)编辑字符串文本属性%%
**}
private
isShow;
FRbuttonWidth;
screenbottom;
protected
Fowner;
Fpanel;
rowNum;
colNum;
Fgrid;
public
function create(AOwner);override;
begin
inherited;
Fowner := AOwner;
Fpanel := nil;
FRbuttonWidth := 20;
screenArr := _wapi.getscreenrect();
screenbottom := screenArr[3];
isShow := true;
end
function createEditObj();virtual;
begin
Fpanel := new ttslediter(Fowner);
end
function ButtonClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
rowNum := e.iitem;
colNum := e.isubitem;
Fgrid := grid;
pt := e.ptaction;
rec := grid.getSubItemRect(rowNum,colNum);
if pt[0]>=(rec[2]-FRbuttonWidth) then
begin
if ifnil(Fpanel) then begin
createEditObj();
Fpanel.parent := Fowner;
Fpanel.OnActivate := function(o,e)
begin
if e.lowparam = WA_INACTIVE then
begin
CellLeave(Fgrid);
end
end;
end
clickToText(d);
if Fpanel.showmodal()=1 then
begin
textChange1(Fpanel.itemData);
end
end
end
function clickToText(d);virtual;
begin
Fpanel.ItemStr := tostn(d["value"]);
end
function CellName();virtual;
begin
return "tsl";
end
function textChange1(data);virtual;
begin
Fgrid.CellChanged(rowNum,colNum,"value",data);
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
dc.drawtext(cellName(),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
type TGridCelllazytslEdit = class(TGridCellEditWithButton,tpropertylazytsl)
{**
@explan(说明)编辑字符串文本属性%%
**}
private
isShow;
FRbuttonWidth;
screenbottom;
protected
Fowner;
Fpanel;
rowNum;
colNum;
Fgrid;
public
function create(AOwner);override;
begin
inherited;
Fowner := AOwner;
Fpanel := nil;
FRbuttonWidth := 20;
screenArr := _wapi.getscreenrect();
screenbottom := screenArr[3];
isShow := true;
end
function createEditObj();virtual;
begin
Fpanel := new ttslediter(Fowner);
end
function ButtonClick(grid,e,d);override;
begin
{**
@explan(说明) 格子点击 %%
**}
inherited;
rowNum := e.iitem;
colNum := e.isubitem;
Fgrid := grid;
pt := e.ptaction;
rec := grid.getSubItemRect(rowNum,colNum);
if pt[0]>=(rec[2]-FRbuttonWidth) then
begin
if ifnil(Fpanel) then begin
createEditObj();
Fpanel.parent := Fowner;
Fpanel.OnActivate := function(o,e)
begin
if e.lowparam = WA_INACTIVE then
begin
CellLeave(Fgrid);
end
end;
end
clickToText(d);
if Fpanel.showmodal()=1 then
begin
textChange1(Fpanel.itemData);
end
end
end
function clickToText(d);virtual;
begin
Fpanel.ItemStr := tostn(d["value"]);
end
function CellName();virtual;
begin
return "lazytsl";
end
function textChange1(data);virtual;
begin
Fgrid.CellChanged(rowNum,colNum,"value",data);
end
function CellDrawLabel(dc,rect,d);override;
begin
{**
@explan(说明) 绘制格子 %%
**}
dc.drawtext(cellName(),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
type ttslediter = class(TtextEditor)
function create(AOwner);
begin
inherited;
caption := "tsl";
hg := new TTslSynHighLighter(self);
memo.Highlighter := hg;
end
protected
function comfirmEdit(o,e);override;
begin
itemData := nil;
s := memo.text;
try
itemData := eval(&s);
except
end
EndModalCode := 1;
return EndModal();
end
end
type TstringsEditor = class(TtextEditor)
{**
@explan(说明)memo编辑器%%
**}
protected
function textonumber(v);override;
begin
return v;
end
function comfirmEdit(o,e);override;
begin
itemData := array();
linecount := memo.getlinecount();
if linecount > 0 then begin
for i:= 1 to linecount do
begin
str := memo.getline(i);
itemData[i-1] := textonumber(str);
end
end
EndModalCode := 1;
return EndModal();
end
public
function create(AOwner);override;
begin
inherited;
caption := "Strings Editor Dialog";
end
end
type TGridCellIntegersEdit = class(TGridCellStringsEdit)
{**
@explan(说明)编辑整形数组属性%%
**}
protected
function createEditObj();override;
begin
Fpanel := new TIntegersEditor(Fowner);
end
function CellName();override;
begin
return "integers";
end
public
function Create(AOwner);override;
begin
inherited;
end
function EditType();override;
begin
return "integers";
end
end
type TIntegersEditor = class(TstringsEditor)
{**
@explan(说明)memo编辑器%%
**}
protected
function textonumber(txt);override;
begin
return strtointdef(txt,0);
end
function MemoKeyPress(o,e);override;
begin
if e.wparam = ord("-") then
begin
end else begin
if not(e.wparam >= ord("0") and e.wparam<= ord("9") or e.wparam = VK_BACK or e.wparam = 13) then
e.skip := true;
end
end
public
function create(AOwner);override;
begin
inherited;
caption := "Integers Editor Dialog";
end
end
type TGridCellEsAlignEdit = class(TOneSelectCell,TPropertyEsAlign)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyEsAlign).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type TGridCellColorBoxEdit = class(TOneSelectCell,TPropertyColorList)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertyColorList).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type tGridCellMbbtnstyleEdit=class(TOneSelectCell,TPropertymbbtnstyle)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertymbbtnstyle).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end
type tGridCellMbiconstyleEdit=class(TOneSelectCell,TPropertymbicostyle)
function CellDrawLabel(dc,rect,d);override;
begin
if ifarray(d) then
begin
dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
end
end
function create(AOwner);override;
begin
inherited;
class(TPropertymbicostyle).Create();
end
private
function SelPalRange();virtual;
begin
return SelRange;
end
end //属性编辑表格
type TListEidter = class(TPanel)
{**
@explan(说明) list编辑器 %%
**}
private
FListControl;
FBadd;
FBdelete;
FBup;
FBdown;
FBAplay;
FOnApplay;
FListWidth;
public
function WMCLOSE(o,e):WM_CLOSE;override;
begin
e.skip := true;
inherited;
end
function ListCheck(v);virtual;
begin
{**
@explan(说明) 检查 list类型 %%
@param(v)(TWincontrol) %%
**}
return v is class(TGridList);
end
function SetListControl(v);
begin
if ifnil(v) then
begin
if FListControl then
begin
FListControl.Recycling();
FListControl:= nil;
end
end
if ifnil(FListControl) and (ListCheck(v))
and v.parent = self then
begin
FListControl := v;
DoControlAlign();
end
end
function SetListWidth(v);
begin
if v>100 and v<> FListWidth then
begin
FListWidth := v;
DoControlAlign();
end
end
function Buttons();virtual;
begin
{**
@explan(说明) 右侧 按钮 %%
**}
return array(FBadd,FBdelete,FBup,FBdown,FBAplay);
end
function DoControlAlign();override;
begin
if not HandleAllocated() then exit;
sz := clientrect;
if FListControl and FListControl.parent = self then
begin
sz[2] := FListWidth;
FListControl.SetBoundsRect(sz);
BTS := Buttons();
y := 30;
x := FListWidth+10;
for i,v in BTS do
begin
if v and (v is class(tcontrol)) and (v.parent=self) and v.visible then
begin
v.left := x;
v.top := y;
y+=v.height+10;
end
end
end
end
function create(AOwner);override;
begin
inherited;
caption := "Imagelist Editer";
minmaxbox := false;
left := 400;
height := 600;
width := 350;
FListWidth:=250;
WsCaption := true;
WsPopUp := true;
WsSysmenu := true;
wsSizeBox := false;
FBadd := new tbtn(self);
FBup := new tbtn(self);
FBdown := new tbtn(self);
FBAplay := new tbtn(self);
FBdelete := new tbtn(self);
FBadd.caption := "添加";
FBup.caption := "上移";
FBdown.caption := "下移";
FBAplay.caption := "应用";
FBdelete.caption := "删除";
FBAplay.onclick := thisfunction(applay);
FBadd.parent := self;
FBup.parent := self;
FBdown.parent := self;
FBAplay.parent := self;
FBadd.onclick := thisfunction(addclick);
FBdelete.onclick := thisfunction(delselect);
FBup.onclick := thisfunction(moveup);
FBdown.onclick := thisfunction(movedown);
for i,v in Buttons() do
begin
if (v is class(tcontrol)) and v.visible then
v.parent := self;
end
end
function moveup(o,e);virtual;
begin
if FListControl then
FListControl.moveup();
end
function movedown(o,e);virtual;
begin
if FListControl then
FListControl.movedown();
end
function delselect(o,e);virtual;
begin
if FListControl then
FListControl.deleteselect();
end
function addclick(o,e);virtual;
begin
end
function applay(o,e);virtual;
begin
calldatafunction(OnApplay,self(true));
end
property ListWidth read FListWidth write SetListWidth;
property OnApplay read FOnApplay write FOnApplay;
property ListControl read FListControl write SetListControl;
{**
@param(OnApplay)(function[TListEidter]) 应用按钮回调 %%
**}
end
//*************设计器*********************************
type TBitmapGrid = class(TGridList)
{**
@explan(说明) imagelist编辑 %%
**}
public
function CheckItem(v);override;
begin
return (v is class(TcustomBitmap)) and inherited;
end
function create(AOwner);override;
begin
inherited;
cls := array((
"text":"id",
"width":30
),
(
"text":"bmp",
"width":60
),
(
"text":"size",
"width":100
));
Columns := cls;
end
function CNMEASUREITEM(O,E):CN_MEASUREITEM;override;
begin
e.height := 40;
end
function DoDrawSubItem(o,e);override;
begin
dc := e.canvas;
if not dc.Handle then exit;
i := e.itemid;
j := e.subitemid;
src := e.subItemRect;
it := List[i];
if not it then exit;
if j = 0 then
begin
return inherited;
end else
begin
dc.pen.color := 0xe0e0f0;
dc.pen.width := 1;
dc.moveto(src[array(0,3)]-1);
dc.LineTo(src[array(2,3)]-1);
dc.LineTo(src[array(2,1)]-1);
if j = 1 and it.HandleAllocated() then
begin
src[2] := src[0]+40;
dc.StretchDraw(src,it);
end else
if j = 2 then
begin
if it.HandleAllocated() then
begin
dc.DrawText(format("%d*%d",it.bmwidth, it.bmheight),src,DT_VCENTER .| DT_SINGLELINE);
end
end
end
end
end
type tnone = class()
function create();
begin
name := "(none)";
end
name;
end
type TListStatusbarItem = class(TGridList)
public
FCheckNumber;
function create(AOwner);override;
begin
inherited;
Columns := array(
("text":"id","width":40),
("text":"width","width":60)
,("text":"text","width":100)
);
end
function CheckItem(v);override;
begin
if FCheckNumber then
r := ifarray(v) and (v["width"]>0) and ifstring(v["text"]);
else r := true;
return r;
end
function MouseUp(o,e);override;
begin
inherited;
y := GetRowIndexByPos(e.ypos);
if y<0 then
begin
UnSelected();
CallDataFunction(self.SelectedChanged,self,e);
end
end
function DoDrawSubItem(o,e);override;
begin
{**
@explan(说明) 绘制子项 %%
**}
dc := e.canvas;
if not dc.Handle then exit;
j := e.subitemid;
if j = 0 then
begin
return inherited;
end
else
begin
i := e.itemid;
src := e.subItemRect;
di := list[i];
if j=1 then
begin
wd := di["width"];
if ifstring(wd) then
begin
di := wd;
end else di := tostn(wd);
end
else di := di["text"];
dc.DrawText(di,src,DT_VCENTER .| DT_SINGLELINE);
dc.pen.color := 0xe0e0f0;
dc.pen.width := 1;
dc.moveto(src[array(0,3)]-1);
dc.LineTo(src[array(2,3)]-1);
dc.LineTo(src[array(2,1)]-1);
end
end
end
type TListStatusEdit = class(TListEidter)
{**
@explan(说明) 函数编辑器 %%
**}
private
FEDITS;
e1;
e3;
ed;
e2;
e4;
public
FCheckNumber;
function clean();
begin
if ListControl then
ListControl.clean();
end
function setitems(v);
begin
if not ListControl then exit;
ListControl.clean();
ListControl.additems(v);
end
function Buttons();override;
begin
if FEDITS then
return FEDITS union inherited;
return inherited;
end
function addclick(o,e);virtual;
begin
if not ListControl then exit;
v1 := FEDITS[1].text;
FCurrentIndx := -1;
if FCheckNumber then
begin
ListControl.FCheckNumber := true;
v1 := StrToIntDef( v1,0) ;
if not(v1>0) then
begin
return _wapi.MessageBoxA(self.Handle,"宽度错误!","错误",0);
end
end else ListControl.FCheckNumber := false;
v2 := FEDITS[3].text ;
FEDITS[1].text := "";
FEDITS[3].text := "";
ListControl.additem(array("width":v1,"text":v2));
end
function Create(AOwner);override;
begin
inherited;
caption := "statusbar 编辑器";
top := 300;
height := 400;
width := 430;
FCheckNumber := true;
ed := new TListStatusbarItem(self);
e1 := new TGraphicControl(self);
e1.caption := "宽度:";
e2 := new TEdit(self);
e2.Width := 150;
e3 := new TGraphicControl(self);
e3.caption := "文本:";
e4 := new Tedit(self);
e4.Width := 150;
FEDITS := array(e1,e2,e3,e4);
for i,v in FEDITS do v.parent := self;
ed.parent := self;
ListControl := ed;
ListControl.SelectedChanged := thisfunction(onlistchanged);
e2.OnChange := thisfunction(EditChanged);
e4.OnChange := thisfunction(EditChanged);
end
function EditChanged(o,e);
begin
if not(FCurrentIndx>=0) then return ;
if o=e4 then
begin
ListControl.SetsubItem(FCurrentIndx,"text", formatText1(O.text));
end else
if o= e2 then
begin
ListControl.SetsubItem(FCurrentIndx,"width",formatText2(o.text));
end
end
function formatText1(txt);virtual;
begin
return txt;
end
function formatText2(txt);virtual;
begin
return strtointdef(txt,100);
end
function onEditClick(o,e);virtual;
begin
if not ListControl then exit;
end
function onlistchanged(o,e);
begin
v := o.SelectedValue;
if ifarray(v) and v then
begin
FCurrentIndx := -1;
e2.text := ifstring(v["width"])?v["width"]:tostn(v["width"]);
e4.text :=v["text"];
FCurrentIndx := o.SelectedId;
end else
begin
FCurrentIndx := -1;
end
end
function SetColoumn(i,v);
begin
ed.SetColumnText(i,v);
end
function SetLable(id,v);
begin
if id =0 then
begin
e1.caption := v;
end else e3.caption := v;
end
FCurrentIndx;
end
type TListStatusEdit2 = class(TListStatusEdit)
function Create(AOwner);
begin
inherited;
end
function formatText2(txt);override;
begin
return txt;
end
end
type TIconsEditer = class(TListEidter)
private
FFileopen;
FIcons;
FImage;
public
function clean();
begin
if not ListControl then exit;
ListControl.clean();
end
function Create(AOwner);override;
begin
inherited;
top := 400;
left := 300;
height := 400;
ListWidth := 230;
FFileopen := new TOpenFileADlg(self);
FFileopen.wndowner := self;
FFileopen.filter := array("all":"*.bmp;*.ico;*.png;*.jpg;*.jpeg","bmp":"*.bmp","ico":"*.ico","png":"*.png");;
list := New TBitmapGrid(self);
List.parent := self;
List.border := true;
ListControl := list;
FImage := new timage();
end
function addclick(o,e);override;
begin
if not ListControl then exit;
if FFileopen.ChooseDlg() then
begin
fn := FFileopen.FileName;
r := FImage.LoadFromFile(fn);
if r=0 then
begin
ico := new tbitmap();
ico.handle := FImage.ToHBitmap;
ListControl.additem(ico);
end else _wapi.MessageBoxA(self.Handle,"打开文件失败","类型错误",0);
end
end
function seticons(icons);
begin
//if FIcons=icons then exit;
FIcons := icons;
ListControl.clean();
for i,v in icons do
begin
ListControl.additem(v);
end
end
function GetIcons();
begin
r := ListControl.ListValues;
return r;
end
function showmodal();override;
begin
inherited;
return 1;
end
function applay(o,e);override;
begin
WMCLOSE(self,e);
end
function WMCLOSE(o,e):WM_CLOSE;override;
begin
e.skip := true;
o.visible := false;
o.EndModal();
end
end
function registereditpropertytodesigner(cls);
begin
{**
@explan(说明) 注册编辑属性 %%
@param(cls)(TDComponent) 设计控件 %%
**}
if ifarray(cls) then return registerproperties(cls);
return registerproperties(array(cls));
end
function registerproperties(ps);
begin
o := class(TPropGrid);
for i,v in ps do
begin
it := createobject( v,0);
o.RegCellRender(it);
end
end
function staticinit();
begin
psi := (array(
class(TGridCellBoolEdit),
class(TGridCellColorEdit),
class(TGridCellDirectoryEdit),
class(TGridCellFileNameEdit),
class(TGridCellNaturalEdit),
class(TGridCellIntegerEdit),
class(TGridCellLazyIntegerEdit),
class(TGridCellLazystrEdit),
class(TGridCellStringEdit),
class(TGridCellEventHandleEdit),
class(TGridCellVariableEdit),
class(TGridCellVariableTactionEdit),
class(TGridCellVariableTrayEdit),
class(TGridCellVariabletimagelistEdit),
class(TGridCellVariablehgtEdit),
class(TGridCellVariabletmainmenuEdit),
class(TGridCellVariabletpopupmenuEdit),
class(TGridCellImagesEdit),
class(TGridCellBitmapEdit),
class(TGridCellIconEdit),
class(TGridCellFontEdit),
class(TGridCellhotkeyEdit),
class(TGridCellSysCursorEidt),
class(TGridCellStatusItemsEdit),
class(TGridCellFileFilterEdit),
class(TGridCellEsAlignEdit),
class(TGridCellTextEdit),
class(TGridCellAlignEdit),
class(TGridCellAnchorsEdit),
class(TGridCellTabAlignEdit),
class(TGridCellStringsEdit),
class(TGridCellIntegersEdit),
class(TGridCellColorBoxEdit),
class(tGridCellMbbtnstyleEdit),
class(tGridCellMbiconstyleEdit),
class(tGridCellDayOfWeekBoxEdit),
class(TGridCellPairIntEdit),
class(tGridCelllistseltypeEdit),
class(TGridCellPairSpliterTypeEdit),
class(tGridCellAlignPosBoxEdit),
class(TGridCellTreeViewDataEdit),
class(TGridCelltslEdit),
class(TGridCelllazytslEdit)
));
registerproperties(psi);
end
initialization
staticinit();
end.
Reference in New Issue View Git Blame Copy Permalink