ConstantGardener

TMS Echo

Hello Anders, this work's now for me! Thank You!

Hello Anders, thank's for this great tool! Work's great for me in normal Forms and Frames, but with Ressourcestrings it doesnt. Here is a screenshot, the Name of the resourcestring and the content of the string are not right! Any Idea?

Hi Ian, there is a DEMO TitleBarPanelDemo.dproj in my Installation. TLabel has its Problems in this Container. Try a TPanel instead, maybe with a TLabel inside. And if you want a TMainMenu in the Titlebar use a TActionMainMenuBar and a TActionmanager. A normal TMainMenu doesn't work.

... that was not my point. i think dmitry can handle something. ...some infos

....i think you should have a little faith in this "hobbyist".

...when u use TMS UI Pack try TAdvSmartMessageBox. Stay's on top of the owner form, blend's in and out smooth and so on.

I am far from being an expert, but is'nt this https://www.tmssoftware.com/site/fncpartners.asp a way to archive this?

...for this example you could work without the TTaskAction at all. For me the parameterlist determinate the action!

....as SilverBlack says, but with the exception of Packages from GetIt (Codesite, Konopka Component's).

maybe this ... https://wiert.me/2019/10/03/how-to-properly-cleanup-shutdown-a-delphi-isapi-which-uses-threads-mathias-pannier-programmiert/

procedure CreatePooledConnection; var oParams: TStrings; begin oParams := TStringList.Create; try oParams.Add('Server='+FServerName); oParams.Add('Database='+FDatenbank); oParams.Add('User_Name='+FUsername); oParams.Add('Password='+FPassword); oParams.Add('Port='+FPort.ToString); oParams.Add('Pooled=True'); FDManager.AddConnectionDef(CONN_RAM_Pooled, 'MySQL', oParams); FDManager.Active:=True; finally oParams.Free; end; We use a "PooledConnection" for this! And then in the Thread you only use this Pooled Connection for connecting to the Database, but you must create a new TFDConnection in every thread. AConnection:=TFDConnection.Create(nil); try AConnection.ConnectionDefName:=CONN_RAM_Pooled; try AConnection.Connected:=true; .....

What about a "heartbeat"-request to the server if no real request happens?

exactly!

unit uTempCursor; interface uses Vcl.Controls; type ITempCursor = interface(IInterface) ['{495ADE0F-EFBE-4A0E-BF37-F1ACCACCE03D}'] end; TTempCursor = class(TInterfacedObject, ITempCursor) strict private FCursor: TCursor; public constructor Create(const ACursor: TCursor); destructor Destroy; override; class function SetTempCursor(const ACursor: TCursor = crHourGlass): ITempCursor; end; implementation uses Vcl.Forms; { TTempCursor } constructor TTempCursor.Create(const ACursor: TCursor); begin inherited Create(); FCursor := Screen.Cursor; Screen.Cursor := ACursor; end; destructor TTempCursor.Destroy; begin if Assigned(Screen) then Screen.Cursor := FCursor; inherited Destroy(); end; class function TTempCursor.SetTempCursor(const ACursor: TCursor = crHourGlass): ITempCursor; begin Result := TTempCursor.Create(ACursor); end; end. ...using somthing like this for years (the original idea is from Jeroen Pluimer's i think). Use the SetTempCursor-Function in your code, and when the interface get out of scope, the corsur changes back to the old cursor. uses uTempCursor; procedure LongRun; begin SetTempCursor; // the default is crHourGlass // do the long running stuff end;

...it is dogfooding anyway! It‘s written in JavaScript and Sencha ExJs, one of the latest aquisations of emba.

...and thanks to Stefan for TestInsight!

... in addition to David's comment. If you have plenty of forms, all created at the begin, your Startup-Time is looooong!

TMYForm.execute; Or if TMYFORM.Execute then begin doSomething; end;

TfrmBase = class (TForm) public constructor Create(AOwner: TComponent); override; destructor Destroy; override; class function Execute : boolean; virtual; end; class function TfrmBase.Execute: boolean; var Form: TfrmBase; begin Form:=Create(nil); try Result:=Form.showModal<>mrCancel; finally Form.Release; end; end; Inherit your forms from a BaseClass like this on. If you need an other behavior in the actual class you override the class-function.

@pyscripter in rudy's post?

Look at http://blog.barrkel.com/2010/09/virtual-method-interception.html too.

....i second this!