liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Update utslvcldpropertytypes.tsf 

美化设计器
This commit is contained in:
JianjunLiu 2022-11-22 17:08:25 +08:00
parent e8ef5109ef
commit f266623015
1 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
designer/utslvcldpropertytypes.tsf
View File

@ -844,13 +844,18 @@ type TPropGrid = class(TTSLDataGrid)
return inherited; return inherited;
end else end else
if ifnil(d) then return ; if ifnil(d) then return ;
src :=e.SubItemRect; src :=e.SubItemRect;
if not(ifarray(d) and (d["type"] = "object" )) then exit; if not(ifarray(d) and (d["type"] = "object" )) then exit;
edit := GetCellEditer(d["class"]); edit := GetCellEditer(d["class"]);
if not(edit)then return inherited; if not(edit)then return inherited;
edit.CellDraw(o,e,d); 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 end
property EventEditer write FEventEditer; property EventEditer write FEventEditer;
property VariabeEditer write FVariabeEditer; property VariabeEditer write FVariabeEditer;
@ -4125,16 +4130,23 @@ type TBitmapGrid = class(TGridList)
begin begin
return inherited; return inherited;
end else end else
if j = 1 and it.HandleAllocated() then begin
begin dc.pen.color := 0xe0e0f0;
src[2] := src[0]+40; dc.pen.width := 1;
dc.StretchDraw(src,it); dc.moveto(src[array(0,3)]-1);
end else dc.LineTo(src[array(2,3)]-1);
if j = 2 then dc.LineTo(src[array(2,1)]-1);
begin if j = 1 and it.HandleAllocated() then
if it.HandleAllocated() then
begin begin
dc.DrawText(format("%d*%d",it.bmwidth, it.bmheight),src,DT_VCENTER .| DT_SINGLELINE); 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
end end
@ -4208,6 +4220,11 @@ type TListStatusbarItem = class(TGridList)
end end
else di := di["text"]; else di := di["text"];
dc.DrawText(di,src,DT_VCENTER .| DT_SINGLELINE); 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 end
end end