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

设计器 

修正初始位置问题
This commit is contained in:
JianjunLiu 2022-12-05 15:54:17 +08:00
parent dc16fb9d4e
commit 0bf9fdc972
2 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/tslvcldesigner.tsf
View File

@ -831,6 +831,9 @@ type TVclDesigner = class(tvcform)
FCurrentClikPos := o.ScreenToClient(xy[0],xy[1]); FCurrentClikPos := o.ScreenToClient(xy[0],xy[1]);
//FCurrentClikPos := array(e.lolparam,e.hilparam);//o1.screentoclient(e.lolparam,e.hilparam); //FCurrentClikPos := array(e.lolparam,e.hilparam);//o1.screentoclient(e.lolparam,e.hilparam);
r := CreateComponent(); r := CreateComponent();
o1 := r.Cwnd;
o1.setpublish("left",o1.left,nil);
o1.setpublish("top",o1.top,nil);
end end
return ; return ;
end end

6
funcext/tvclib/ugtkinterface.tsf
View File

@ -2186,7 +2186,6 @@ type tsgtkapi = class(tgtkapis)
r := gtk_clipboard_wait_for_text(c); r := gtk_clipboard_wait_for_text(c);
if r then r := GtkStringToTsl(r); if r then r := GtkStringToTsl(r);
//echo "\r\ncop wire:",writefile(rwraw(),"","/tmp/test12.txt",0,length(r),r); //echo "\r\ncop wire:",writefile(rwraw(),"","/tmp/test12.txt",0,length(r),r);
return r; return r;
end end
function setclipboardtext(clbd,s); function setclipboardtext(clbd,s);
@ -2215,13 +2214,11 @@ type tsgtkapi = class(tgtkapis)
begin begin
global g_gtk_ttimer_cache; global g_gtk_ttimer_cache;
if not ifarray(g_gtk_ttimer_cache) then g_gtk_ttimer_cache := array(); if not ifarray(g_gtk_ttimer_cache) then g_gtk_ttimer_cache := array();
obj := new ttmstruct(nil);//tslcstructure(sc); sc := array((0,"int",0),(1,"int",0)); obj := new ttmstruct(nil);//tslcstructure(sc); sc := array((0,"int",0),(1,"int",0));
rt := g_timeout_add(uElapse,lpTimerFunc,obj._getptr_() ); rt := g_timeout_add(uElapse,lpTimerFunc,obj._getptr_() );
g_gtk_ttimer_cache[rt] := obj; g_gtk_ttimer_cache[rt] := obj;
obj._setvalue_(0,rt); obj._setvalue_(0,rt);
return rt; return rt;
end end
class function KillTimer(hWnd:pointer; nIDEvent:pointer):integer; class function KillTimer(hWnd:pointer; nIDEvent:pointer):integer;
begin begin
@ -2233,12 +2230,9 @@ type tsgtkapi = class(tgtkapis)
return true; return true;
end end
//////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////
function GetOpenFileNameA(LPOPENFILENAMEA:pointer):integer; function GetOpenFileNameA(LPOPENFILENAMEA:pointer):integer;
begin begin
r := GetSaveFileNameA(LPOPENFILENAMEA); r := GetSaveFileNameA(LPOPENFILENAMEA);
return r; return r;
end end
function GetSaveFileNameA(LPOPENFILENAMEA:pointer):integer; function GetSaveFileNameA(LPOPENFILENAMEA:pointer):integer;