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

界面库

Browse Source 
优化
This commit is contained in:
JianjunLiu
2022-08-23 16:52:01 +08:00
parent 76fa95bd22
commit 1042970ffe
4 changed files with 33 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/tslvcldesigner.tsf
+10 -10
View File
@@ -667,7 +667,7 @@ type TDVirutalWindow = class(TCustomControl)
function paint();override;
begin
//canvas.draw("polyline",array((0,0),(20,0),(20,20),(0,20)));
canvas.StretchDraw(array(0,0,30,30),GetBitmap());
canvas.StretchDraw(array(1,1,width-3,height-3),GetBitmap());
end
function GetBitmap();
begin
@@ -702,7 +702,7 @@ type TDVirutalWindow = class(TCustomControl)
r := FBindComponent.GetPublishEvents();
return r;
end
if not r then return array(1:nil);
if not r then return array();//array(1:nil);
return r;
end
function GetChangedPublish();override;
@@ -2157,7 +2157,7 @@ type TDFileWindow = class(TDVirutalWindow)
end
function GetPublishEvents();override;
begin
return array(1:nil);
return array();//array(1:nil);
end
function bitmapinfo();override;
begin
@@ -2176,7 +2176,7 @@ type TDFileSaveWindow = class(TDVirutalWindow)
end
function GetPublishEvents();override;
begin
return array(1:nil);
return array();//array(1:nil);
end
function bitmapinfo();override;
begin
@@ -2196,7 +2196,7 @@ type TDInputQuerysWindow = class(TDVirutalWindow)
function GetPublishEvents();override;
begin
return array();
//return array(1:nil);
//return array();//array(1:nil);
end
function bitmapinfo();override;
begin
@@ -2216,7 +2216,7 @@ type TDColorChooseWindow = class(TDVirutalWindow)
end
function GetPublishEvents();override;
begin
return array(1:nil);
return array();//array(1:nil);
end
function bitmapinfo();override;
begin
@@ -2235,7 +2235,7 @@ type TDFontChooseWindow = class(TDVirutalWindow)
end
function GetPublishEvents();override;
begin
return array(1:nil);
return array();//array(1:nil);
end
function bitmapinfo();override;
begin
@@ -2254,7 +2254,7 @@ type TDFolderChooseWindow = class(TDVirutalWindow)
end
function GetPublishEvents();override;
begin
return array(1:nil);
return array();//array(1:nil);
end
function bitmapinfo();override;
begin
@@ -7092,7 +7092,7 @@ type TPropEditGrid = class(TPropGrid)
TSLData := v.GetPublishProperties();
end else
begin
TSLData := array(NIL);
TSLData := array();//array(NIL);
end
inherited;
end
@@ -8409,7 +8409,7 @@ type TDMessageboxWindow = class(TDVirutalWindow)
end
function GetPublishEvents();override;
begin
return array(1:nil);
return array();//array(1:nil);
end
function bitmapinfo();override;
begin