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

编辑器

Browse Source 
将tsl代码树嵌入编辑器左侧
This commit is contained in:
JianjunLiu
2023-03-24 17:15:09 +08:00
parent 16e449ea50
commit 03d73ebec9
4 changed files with 337 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
funcext/tvclib/ugtkinterface.tsf
+5 -5
View File
@@ -6164,12 +6164,12 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object)
scrlsize := 12;
if (fbarshow .& 1)=1 then //v
begin
_wapi.gtk_widget_set_size_request(FHscrollbar,w-scrlsize,scrlsize);
end else _wapi.gtk_widget_set_size_request(FHscrollbar,w,scrlsize);
_wapi.gtk_widget_set_size_request(FHscrollbar,max(0,w-scrlsize),scrlsize);
end else _wapi.gtk_widget_set_size_request(FHscrollbar,max(0,w),scrlsize);
if (fbarshow .& 2)=2 then //h
begin
_wapi.gtk_widget_set_size_request(Fvscrollbar,scrlsize,h-scrlsize);
end else _wapi.gtk_widget_set_size_request(Fvscrollbar,scrlsize,h);
_wapi.gtk_widget_set_size_request(Fvscrollbar,scrlsize,max(0,h-scrlsize));
end else _wapi.gtk_widget_set_size_request(Fvscrollbar,scrlsize,max(0,h));
_wapi.gtk_layout_move( FLayouter,FHscrollbar,0,h-scrlsize);
_wapi.gtk_layout_move( FLayouter,Fvscrollbar,w-scrlsize,0);
if FClientWideget then
@@ -6182,7 +6182,7 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object)
begin
w-=11;
end
_wapi.gtk_widget_set_size_request(FClientWideget,w,h);
_wapi.gtk_widget_set_size_request(FClientWideget,max(0,w),max(0,h));
//inherited widgetsizechanged(h,w);
end //else inherited widgetsizechanged(h,w);
inherited widgetsizechanged(h,w); //clientrect
funcext/tvclib/utslvclauxiliary.tsf
+1 -1
View File
@@ -2265,7 +2265,7 @@ implementation
function iffuncptr(fn);
begin
//return datatype(fn)=7;
return ifobj(fn);
return fn and ifobj(fn);
end
function includestate(u,s);
begin