-
Content Count
67 -
Joined
-
Last visited
-
Days Won
2
Achim Kalwa last won the day on August 24
Achim Kalwa had the most liked content!
Community Reputation
61 ExcellentTechnical Information
-
Delphi-Version
Delphi 11 Alexandria
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
Must be rocket science to fix that...
-
The problem is IMHO: SaveSettings() is called only from the Destructor; that is when the IDE is closed. In case of the Code Librarian, the font size and splitter position issues could be solved by calling SaveSettings() during FormHide(), and calling LoadSettings() during FormShow(). Optionally call SaveSettings() when returning from the Configuration dialog.
-
Since I am affected of eye floaters for some years, I now prefer the dark mode; and I am working on making GExperts look good in that dark mode. Most changes are already done but not published yet. There are so many dialogs/forms that have to be modifies in the one or other way. Stay tuned 😉
-
Same here when compiling GExperts and switch from Debug to Release mode or vice versa. The number in last part "Found version" changes randomly. I've reported this months ago as https://quality.embarcadero.com/browse/RSP-42675 During the webinar "What's coming in RAD Studio 12.1" in the Q & A session I asked for an update to this bug; and Marco Cantù replied by email: Also make sure that each build configuration uses a separate DCU output folder in the project options, like ".\$(Platform)\$(Config)".
-
Firebird 5.0 with dbExpress (Delphi 12): unknown ISC error 0
Achim Kalwa replied to Achim Kalwa's topic in Databases
-
Firebird 5.0 with dbExpress (Delphi 12): unknown ISC error 0
Achim Kalwa posted a topic in Databases
Hello *, our application still uses Firebird 3.0.x with dbExpress for data access. We would like to use Firebird 5.0 in the near future. Some first tests throws an exception "unknown ISC error 0" when executing this simple SQL query: select * from MON$DATABASE Looks like dbExpress can't handle the new "TIMESTAMP WITH TIMEZONE" data type. Is there any switch or parameter to make dbExpress work with Firebird 5? Or do we need to change all the code to use FireDAC? TIA Achim -
Weird error on latest SVN source release build with D12 (fix versio)
Achim Kalwa replied to Tommi Prami's topic in GExperts
It is a bug in Delphi 12 (and also Patch 1): https://quality.embarcadero.com/browse/RSP-42675, reported 3 month ago. You need to unload the project and load it again when switching from debug to release or vice versa. -
This one is also related to integer division (currency), but I am not sure if its the same cause: https://quality.embarcadero.com/browse/RSP-42753 D12 is currently not usable for me.
-
Very strange; none of the source files tries to include a resource file My.RC. Perhaps somewhere in the include path? Do you compile on the command line or from the Delphi IDE? Regarding the missing GExperts_manifest.res: Please try to remove the line {$R 'GExperts_manifest.res' '..\..\Source\GExperts_manifest.rc'} from the end of then GExpertsRS120.dpr file and compile again. I've no idea why the GExperts_manifest.rc is NOT compiled if the $R directive is below the uses list. If I move the $R to the top of the DPR file; just below the {$E dll}, the rc file is compiled into a res file; if compiled from the IDE. I'm going to remove that manifest thing from the D120 source for now until I find a reliable solution.
-
I can not confirm with TNumberbox (VCL) ; both Delphi 11.3 and 12.0: Ctrl+A then Delete clear the edit field; and I can type the new value. Which are your values for MinValue and MaxValue? Any non-default property settings?
-
StringGrid: how to get the column number via right-click
Achim Kalwa replied to JohnLM's topic in VCL
Hi, Use the Grid's OnMouseUp event: procedure TForm4.gridMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var ACol, ARow: Integer; begin if Button = TMouseButton.mbRight then begin grid.MouseToCell(X, Y, ACol, ARow); ShowMessage('Col: ' + ACol.ToString); end; end; HTH -
It is not your code, it is the IDE's form designer which ignores the color. Please try Tools->Options->User Interface->Form Designer and uncheck the "Enable VCL Styles" option.
-
Hello alogrep, let me answer your 2nd question first: This dialog is somewhat misleading IMHO; read carefully. It tells you that the previous version will be uninstalled if you click "uninstall". The Yes/No-selection in the dialog is about removing stored data from the registry. "No" means "keep all settings", which includes library/search path, toolbar configuration, installed packages and much more. Which leads to your 1st question: No. If you decide to keep the registry settings by choosing "no" (see above), all your own and/or 3rd-party components will be availabel in V11.3. This because V11.2 and V11.3 are binary compatible. HTH
-
Delphi beta testing a "premium" privilege?
Achim Kalwa replied to Brandon Staggs's topic in Tips / Blogs / Tutorials / Videos
Don't panic; Uwe is right. I have reliable information that users with normal Update Subscription will also be invited to the beta test, but only a few days/weeks later. Merry Christmas to you all. -
If you want to see the TextHint even if the TEdit control has the focus, you need to send EM_SETCUEABANNER to the control: https://learn.microsoft.com/en-us/windows/win32/controls/em-setcuebanner like this: uses ... WinApi.CommCtrl, ... procedure TForm1.FormShow(Sender: TObject); begin SendTextMessage(Edit1.Handle, EM_SETCUEBANNER, WParam(True), 'please type here'); end; WParam(True): if the cue banner (text hint) should show even when the edit control has focus. Be aware that VCL controls sometimes gets recreated, resulting in a new handle value and losing previous settings. A better way would be to inherit from TEdit and overwrite the protected DoSetTextHint() method like this: Interface uses ... WinApi.CommCtrl, Vcl.Themes, ...; type TMyEdit = class(TEdit) protected procedure DoSetTextHint(const Value: string); override; end; TEdit = class(TMyEdit); ... Implementation procedure TMyEdit.DoSetTextHint(const Value: string); begin if CheckWin32Version(6, 1) // Windows 7 and up and StyleServices(Self).Enabled and HandleAllocated then SendTextMessage(Handle, EM_SETCUEBANNER, WPARAM(True), Value) else inherited; end; HTH