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

界面库 

优化
This commit is contained in:
JianjunLiu 2022-09-09 10:59:37 +08:00
parent 96374a02c0
commit eb2b6a7a44
4 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/tslvcldesigner.tsf
View File

@ -2382,7 +2382,7 @@ type TGraphicsplitterWindow = class(TDVirutalWindow)
width := BindComp.width;
height := BindComp.Height;
color := BindComp.color;
WindowFileds := array("left","top","width","height","color","visible","enabled","align");
WindowFileds := array("left","top","width","height","color","parentcolor","visible","enabled","border","align");
end
function DesigningSizer();override;

3
designer/udesignerproject.tsf
View File

@ -486,7 +486,8 @@ type TProjectView = class(TVCForm) //
begin
n := cn.FPath;
CreateDirWithFileName(FCProjectPath+n+fio+"1.txt");
_wapi.WinExec('cmd.exe /C start "" "'+FCProjectPath+n,1);
//_wapi.WinExec('cmd.exe /C start "" "'+FCProjectPath+n,1);
_wapi.openresourcemanager(FCProjectPath+n);
end else
begin
OpenFileByName(cn.FName);

12
funcext/tvclib/tcustomsplitter.tsf
View File

@ -10,6 +10,18 @@ type tcustomsplitter = class(tgraphiccontrol)
Width := 6;
Height := 100;
end
function paint();override;
begin
inherited;
if Border then
begin
r := ClientRect;
dc := Canvas;
dc.pen.color := 0;
dc.pen.Width := 2;
dc.draw("polygon",array(r[0:1],r[array(2,1)],r[array(2,3)],r[array(0,3)],r[0:1]));
end
end
function SetAlign(a);override;
begin
inherited;

2
funcext/tvclib/tslvcl.tsf
View File

@ -2516,7 +2516,7 @@ type tsplitter = class(tcustomsplitter)
end
function publishs();override;
begin
return array("name","enabled","border","left","top","width","height","color","transparent","visible","align");
return array("name","enabled","border","left","top","width","height","color","parentcolor","transparent","visible","align");
end
end