diff --git a/TSL语言许可权利和限制.docx b/TSL语言许可权利和限制.docx new file mode 100644 index 0000000..72c2b57 Binary files /dev/null and b/TSL语言许可权利和限制.docx differ diff --git a/designer/tslediter.tsl.about b/designer/tslediter.tsl.about index 7a50326..ae05827 100644 --- a/designer/tslediter.tsl.about +++ b/designer/tslediter.tsl.about @@ -1,3 +1,31 @@ -"tslԱر༭about +tslԱر༭ 汾:1.0.0 -:2022-07-19" +:2022-07-19 +ʹǰĶ +Ȩ +Ƽ޹˾¼ʹóķԡתá޵ɣرЭͼƻĵй涨ƣ;ʹã +(I) +(II) ; +(III) ɵIJƷʹ +(IV) Ķɺҵ;ʹ +ֹΪ +ںҪķΧڸƳʹЭȨ +Ϊ +(I) ɾ޸κγǻרȨκϢ +(II) κηʽṩκεǸõǴµijа̣ +(III) תñЭ򽫳еȨַͻתøκεǸõΪµijа̽Ϊķʹã +(IV) Գз򹤳̡򷴱룬ǷȷɵķΧ +(V) ܰԴ룬ڱЭȷĿ(磬ڿԴ)ݱЭṩԴο޸ġ +Ȩ˵ +(I) ЭδȷȨҪڱЭȷ֮κĿģľ̴Чij֤ +(II) ɷȨ֪ʶȨ +(III) ʹõĵܾжҪʹõʱصĵȨܱЭκơ +(IV) ܸһЩԴ룬ҪرЭԼԴصȨԼЩԴǵģҪصԴȨԼ +Ϣռ +İװԶ¹ܻ̿ṩ̴йЩ̵ݣ԰˽ŻЩ̡ὫЩϢ + +ЩԭṩṩκʽĵܾʾĬʾı֤ڶԡض;ԻȨκĬʾ +κ£÷Ҫ󣬷еκΣʹû޷ʹóɵκһ㡢⡢(ݶʧݱò׼ȷܵʧ޷κһ)ʹó߻ѱ֪𺦵Ŀԡ +ڹ +йijڷɷκصĵسڷɷЩĿͬڹƷɹϽԱЭṩij()κοɽʹãͬдڷɺͷ(Ϊڡ͡Ϊٳڡ涨)ͬ⣬(ֱӲƷ)κݡϢ/ϽֱӻӵΥЩɶڣҲᱻЩɽֹκĿġ + diff --git a/designer/tslvcldesigner.tsf b/designer/tslvcldesigner.tsf index 2e47267..14b5a7b 100644 --- a/designer/tslvcldesigner.tsf +++ b/designer/tslvcldesigner.tsf @@ -499,6 +499,7 @@ type TVclDesigner = class(tvcform) ("type":"menu","caption":"༭ɫ","checked":0,"onclick":thisfunction(showhltcolor)) )), ("type":"menu","caption":"","items":( + ("type":"menu","caption":"","onclick":thisfunction(openabout)), ("type":"menu","caption":"ʹֲ","onclick":thisfunction(OpenHelp), "bitmap":getmanubmpinfo()), ("type":"menu","caption":"ؼ","onclick":thisfunction(OpenHelp), @@ -554,6 +555,25 @@ type TVclDesigner = class(tvcform) end return r; end + function openabout(o,e); + begin + return messageboxa(static editerinfo(),"",0,self.Handle); + + end + function editerinfo(); + begin + s := "tslԽ\r\n汾:1.0.0\r\n:2023-01-19"; + f := tslfilename()+".about"; + if fileexists("",f) then + begin + size := filesize("",f); + if readFile(rwraw(),"",f,0,size,data) then + begin + return data; + end + end + return s; + end function OpenHelp(o,e); //򿪰 begin if not FChmHelper then diff --git a/designer/utslvcldebuger.tsf b/designer/utslvcldebuger.tsf index a9ea11f..341afde 100644 --- a/designer/utslvcldebuger.tsf +++ b/designer/utslvcldebuger.tsf @@ -869,8 +869,13 @@ type TTslDebuga=class(TCustomControl) if not Fdebugedwhandle then Fdebugedwhandle := GetWindowHandleByPID(_wapi.GetProcessId(fdebugproc.Handle),_wapi); if Fdebugedwhandle then - begin + begin + //echo "\r\nSetForegroundWindow===>",Fdebugedwhandle; + //_wapi.ShowWindow(Fdebugedwhandle,SW_SHOW); _wapi.SetForegroundWindow(Fdebugedwhandle); + //_wapi.PostMessageA(Fdebugedwhandle,WM_ACTIVATEAPP,1,systhreadid()); + //_wapi.SetActiveWindow(Fdebugedwhandle); + //_wapi.SendMessageA(Fdebugedwhandle,WM_ACTIVATEAPP,true,systhreadid()); end {$endif} end diff --git a/designer/vcldesigner.tsl.about b/designer/vcldesigner.tsl.about new file mode 100644 index 0000000..c38383d --- /dev/null +++ b/designer/vcldesigner.tsl.about @@ -0,0 +1,31 @@ +tslԱ濪 +汾:1.0.0 +:2023-01-19 +ʹǰĶ +Ȩ +Ƽ޹˾¼ʹóķԡתá޵ɣرЭͼƻĵй涨ƣ;ʹã +(I) +(II) ; +(III) ɵIJƷʹ +(IV) Ķɺҵ;ʹ +ֹΪ +ںҪķΧڸƳʹЭȨ +Ϊ +(I) ɾ޸κγǻרȨκϢ +(II) κηʽṩκεǸõǴµijа̣ +(III) תñЭ򽫳еȨַͻתøκεǸõΪµijа̽Ϊķʹã +(IV) Գз򹤳̡򷴱룬ǷȷɵķΧ +(V) ܰԴ룬ڱЭȷĿ(磬ڿԴ)ݱЭṩԴο޸ġ +Ȩ˵ +(I) ЭδȷȨҪڱЭȷ֮κĿģľ̴Чij֤ +(II) ɷȨ֪ʶȨ +(III) ʹõĵܾжҪʹõʱصĵȨܱЭκơ +(IV) ܸһЩԴ룬ҪرЭԼԴصȨԼЩԴǵģҪصԴȨԼ +Ϣռ +İװԶ¹ܻ̿ṩ̴йЩ̵ݣ԰˽ŻЩ̡ὫЩϢ + +ЩԭṩṩκʽĵܾʾĬʾı֤ڶԡض;ԻȨκĬʾ +κ£÷Ҫ󣬷еκΣʹû޷ʹóɵκһ㡢⡢(ݶʧݱò׼ȷܵʧ޷κһ)ʹó߻ѱ֪𺦵Ŀԡ +ڹ +йijڷɷκصĵسڷɷЩĿͬڹƷɹϽԱЭṩij()κοɽʹãͬдڷɺͷ(Ϊڡ͡Ϊٳڡ涨)ͬ⣬(ֱӲƷ)κݡϢ/ϽֱӻӵΥЩɶڣҲᱻЩɽֹκĿġ +