Anders Melander

So, "paid" shills. My bad for thinking it was something else. I guess I could have just googled it: https://www.embarcadero.com/embarcadero-mvp-program https://community.embarcadero.com/blogs/entry/are-you-asking-about-mvp-1407 LOL

Such as?

Why? I thought it was an honorary title.

Okay then, here's a comment: If you really cared about performance then you would profile your code and direct your efforts at areas that would make an actual difference on a higher level.

Source attached. I use this code in most of my open source/freeware tools. Features: Fades image in/out on show/hide. Can be moved with the mouse. Automatically hidden when deactivated. A text can be displayed on top of the image. Text can be scrolled to create vertical banner. Can play a audio resource while visible. Can also be used as an "About box". Things to note: Splash does not "stay on top" when running in the debugger. This is by design. Doesn't handle HighDPI scaling well (image isn't scaled). SplashDemo.zip

So place a breakpoint on the call to ScreenToClient and see what's going on. Easy Peasy.

So you haven't tried to reproduce the problem with two monitors...? Yes. If you had looked at the source you would have seen that TControl.ClientToScreen calls TControl.GetClientOrigin which ends up calling Winapi.Windows.ClientToScreen(Handle, Result); The ClientToScreen API function returns the coordinates relative to the top left corner of the primary monitor, which is what you'd want.

Nooooooooo! No. No. No. NO. Change the pixelformat to pf32bit Desaturate the RGB: (* Rec. 709 (also used by Gimp) *) // Y = 0.21 × R + 0.72 × G + 0.07 × B const LuminanceMultR = 54; LuminanceMultG = 184; LuminanceMultB = 18; function Desaturate(Color: TColor): TColor; var Luminance: byte; begin Luminance := (((Color and $00FF0000) shr 16 * LuminanceMultR) + ((Color and $0000FF00) shr 8 * LuminanceMultG) + ((Color and $000000FF) * LuminanceMultB)) shr 8; Result := (Color and $FF000000) or (Luminance shl 16) or (Luminance shl 8) or Luminance; end; procedure Desaturate(Bitmap: TBitmap); begin ASSERT(Bitmap.PixelFormat = pf32bit); for var Row := 0 to Bitmap.Height-1 do begin var p := PDword(Bitmap.ScanLine[Row]); var Col := Bitmap.Width; while (Col > 0) do begin p^ := Desaturate(p^); inc(p); dec(Col); end; end; end;

Better now?

Who needs unicorns and rainbows when we now have awesome user interfaces technologies like this: The possibilities seems endless. . .

Bad day? Did someone claim it doesn't work? As far as I can tell he just asked a question.

https://docwiki.embarcadero.com/Libraries/Sydney/en/System.SyncObjs.TSemaphore https://en.wikipedia.org/wiki/Semaphore_(programming)

https://my.embarcadero.com/#downloadsPage

Googling his name reveals that he posted on LinkedIn 2 weeks ago. My guess is that he's simply not using Delphi anymore.

I've got no beef with the content itself. Sure the content could be much better, for me personally there was almost nothing of interest, but I guess that's more a case of what speakers they're able to sign up. The problem I'm talking about is the production of the sessions. I mean how difficult is it to ensure that sessions doesn't run over time, that the sound works and there 's capacity to handle everyone signed up. And when things go wrong we don't need to hear every random thought that goes through the moderators head, spoken out loud as he fumbles with trying to resolve the issues. It's just not professional and it's disrespectful to the audience who has taken time out of their busy schedule to participate. I have no patience for amateurs who don't know they're amateurs. Maybe if the production improved then the content would also improve.

They don't have to answer each and every question here and elsewhere. They just need to issue a statement. Once. After having endured the amateurish execution of the last few webinars I for one will pass on this one. They badly need a professional, grownup to handle these events. After DelphiCon 2021 my client asked me if I could suggest which replays they should watch. I've pretended to forget about that because I'm frankly embarrassed about it.

And this was the easy way?

Wrong conclusion. What is more likely? That there is something wrong with transactions or that there is something wrong with what you're doing? Your method is flawed unless you can guarantee that there will never be more than one transaction active against the database at a time. Consider this: A: Start transaction A: select max(NUMBER) returns 1 B: Start transaction A: Post new row with NUMBER=2 A: Commit B: select max(NUMBER) returns [...drumroll..] 1 B: Post new row with NUMBER=2 B: Commit Like Hans suggested, use a generator. That's what they're there for.

I think you would do everybody a favor if these plugins were completely disassociated from the core product and from Embarcadero. As it is now, being marketed as "official plugins", people expect them to be of a certain quality and to be delivered on schedule with the core product and there's obviously no resources to make that happen. If they were just "some dudes hobby project" then people would know what to expect.

Doesn't the debugger work for you? Just place a breakpoint in the Validate event handler and examine (using Evaluate->Inspect) the properties of the controls in question. It should be easy to see which properties contains the values you need.

If only there were someone at Embarcadero specifically tasked with communicating with the customers...🤔 Maybe @Jim McKeeth knows someone who can tell us what the hell is going on?

SourceTree is made by Atlassian. Any time you spend reporting bugs to them would better spent picking your nose.

Now there are 🙂 Do something like this: uses Horizon.IntegrationTest.API; // Via TApplicationEvents component: procedure TMainForm.ApplicationEventsActionExecute(Action: TBasicAction; var Handled: Boolean); begin {$ifdef DEBUG} TranslationManagerIntegration.TrackControl(Action); {$endif DEBUG} end; // Via the global TScreen instance: procedure TMainForm.OnActiveControlChange(Sender: TObject); begin {$ifdef DEBUG} TranslationManagerIntegration.TrackControl(Screen.ActiveControl); {$endif DEBUG} end; procedure TMainForm.OnActiveFormChange(Sender: TObject); begin {$ifdef DEBUG} TranslationManagerIntegration.TrackForm(Screen.ActiveCustomForm); {$endif DEBUG} end; Note: Remove the DEVEXPRESS define in Horizon.IntegrationTest.API if you're not using that library. As you can see the above only uses the integration in DEBUG builds but since I'm just using WM_COPYDATA for communication it's pretty harmless if the integration is also active in RELEASE builds.

Uploaded a new build: v1.3.8100.37233. I have finally managed to get upload to BitBucket working so it's available here now: https://bitbucket.org/anders_melander/better-translation-manager/downloads/ Changes since build 1.3.8055.21506: HighDPI scaling has been disabled in order to work around scaling problems caused by the DevExpress skinning engine. When these get resolved I will enable Per Monitor v2 scaling. https://bitbucket.org/anders_melander/better-translation-manager/issues/26/handle-highdpi-scaling @Renate Schaaf Automatically show and focus the multi-line editor if the source text contains multiple lines (optional, enabled by default). https://bitbucket.org/anders_melander/better-translation-manager/issues/15/auto-open-text-editor-when-applicable @aehimself Added a translation integration API which allows the application being translated to control BTM. Using this integration, when a form or control is focused in the application, then the corresponding module and property is selected in BTM. The integration API is contained in the file amLocalization.Integration.Tracker.API.pas Properties that have been omitted from the form resource, for example because their current values equals the default value, can now be synthesized so they can be translated. This solves the problem where for example TField.DisplayLabel could not be translated if DisplayLabel and FieldName contained the same value. A lot of minor bug fixed and improvements. See commit log: https://bitbucket.org/anders_melander/better-translation-manager/commits/

https://supportcenter.devexpress.com/ticket/details/t1073008