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

33
designer/utslvcldpropertytypes.tsf
View File

@ -850,6 +850,11 @@ type TPropGrid = class(TTSLDataGrid)
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;
@ -4125,16 +4130,23 @@ type TBitmapGrid = class(TGridList)
begin
return inherited;
end else
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
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
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
@ -4208,6 +4220,11 @@ type TListStatusbarItem = class(TGridList)
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