

dwrbudr
-
Content Count
79 -
Joined
-
Last visited
Posts posted by dwrbudr
-
-
In Inspector, change the Top value of the panel you want to move. For example if you want the panel to be last, set its Top value to be higher than the Top value of the last panel.
-
You can place only descendants of TWinControl, such as TButton or TStaticText, and not descendants ot TGraphicControl such as TLabel, TImage.
-
I have this record and loop through it to find the name, there might be other values that you have to add.
const FontCharsets: array[0..9] of TIdentMapEntry = ( (Value: 238; Name: 'East European'), (Value: 204; Name: 'Cyrillic'), (Value: 0; Name: 'Western'), (Value: 161; Name: 'Greek'), (Value: 162; Name: 'Turkish'), (Value: 177; Name: 'Hebrew'), (Value: 178; Name: 'Arabic'), (Value: 186; Name: 'Baltic'), (Value: 222; Name: 'Thai'), (Value: 222; Name: 'OEM'));
-
Delphi has improved its styles support over the years, but there are still cases where VCL Style Utils helps.
For example system dialogs and old component packages lacking VCL styles support.
It does that by using DDetours library hooking into some WinAPI drawing related functions.Still there are places where not all is OK, for example the Open File dialog has some artifacts, especially on newer OS.
If your code does not compile, then post the error here.
We've been using VCL Styles Utils for ages, currently under Delphi 12.3 -
Add
Vcl.Styles.Hooks
in the project uses list.
-
-
Do not use search paths. Add the modified VCL units first in the .dpr file like:
Vcl.Dialogs in '..\Delphi Fixes\Vcl.Dialogs.pas',
-
Could you please share your PostBuild script and the entire sequence copying those files to the sub-folders.
I've done something similar, but on many libraries msbuild fails under 64-bit mode while compiling the .dproj files under command-line using a bat file.
In Delphi IDE all is OK, but msbuild fails building some 64-bit libraries.
build.bat:call "C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\rsvars.bat" msbuild /t:rebuild /p:Config=Release /p:platform=Win32 MyPackage.dproj msbuild /t:rebuild /p:Config=Debug /p:platform=Win32 MyPackage.dproj
64bit build.bat:call "C:\Program Files (x86)\Embarcadero\Studio\23.0\bin64\rsvars64.bat" msbuild /t:rebuild /p:Config=Release /p:platform=Win64 MyPackage.dproj msbuild /t:rebuild /p:Config=Debug /p:platform=Win64 MyPackage.dproj
This is my postbuild event:.\..\copyres.bat "$(PROJECTDIR)\..\" "$(PROJECTDIR)\$(Platform)\$(Config)"
copyres.bat:
@echo off for /r %1 %%x in (*.res) do @copy "%%x" %2 /Y > NUL for /r %1 %%x in (*.dfm) do @copy "%%x" %2 /Y > NUL for /r %1 %%x in (*.dcr) do @copy "%%x" %2 /Y > NUL
The bigger problem I have is that I need to set some component packages Library path to point to their \Source\ folder (instead of to the precompiled Win32\ and Win64\ .dcu folders) if my program overrides some of the Delphi files like Vcl.Forms.pas/Vcl.Controls.pas, etc.
So my question is: Is there anyway to recompile a component package using custom Vcl.Forms, Vcl.Controls? -
VCL spinner
in VCL
TActivityIndicator
maybe?
-
"Sync Prototypes" broken a year ago in the IDE is still not fixed. What a lame dev team.
-
If still not working, I have a solution for synchronizing two tree views that I could post.
The difference is that I override the tree WndProc and process those messages:
WM_VSCROLL, WM_NCLBUTTONUP, WM_KEYDOWN, WM_LBUTTONUP, WM_MOUSEWHEEL -
Try using RegisterPowerSettingNotification in combination with GUID_MONITOR_POWER_ON power setting GUID
-
Check your project options for all kind of configurations, Debug, Release, etc.
-
Yes, EMB screwed up again. I have not found a way to fix that. To they test before release at all?!
Sync prototypes still not working, lamers.
-
Adding \\?\ does not automatically bypas MAX_PATH, unless some other extra steps are being made, e.g. modifing the manifest file and a setting in the registry.
-
TMS AdvStringGrid and NextGrid both have support for checkboxes and comboboxes
-
You could try DwmGetWindowAttribute along with DWMWA_CAPTION_BUTTON_BOUNDS to get the title bar height
-
If all or most of the comboboxes need to be populated with the same items, then cache the Items of one combobox to a TStringList.
Then use ColorBox1.Items := CachedColorItems instead of setting its Style. On my side it increases the performance from 20ms to 15ms
-
Announced yesterday and still not available in my.embarcadero.com
-
Why they've annouced the patch on their blog while it is still not available to download is beyond my imagination.
-
-
On my side, Sync Prototypes is not working in Delphi 12, very frustrating.
Ctrl+Click also don't work or if it works it takes more than 10-15 sec.
Auto-completion also don't work... so another buggy release.
Compilation does not work as well - random internal compiler errors or some error and the IDE points to a line after the end. in some unit, so I have to Build the project every time which is quite time consuming.
-
Use the same calculations for Left and Top. 96 is the default screen pixels per inch at 100% scaling, e.g. Screen.DefaultPixelsPerInch
Check your display options in Windows to see what screen scaling you're using, probably 125% or 150%
-
Try
pnlRuntime.Height := MulDiv(350, Screen.PixelsPerInch, 96);
Shadow underneath Form does not always appear (CS_DROPSHADOW)
in Windows API
Posted
procedure TFormPopup.CreateParams(var Params: TCreateParams); var ClassRegistered: boolean; TempClass: TWndClass; begin inherited CreateParams(Params); ClassRegistered := GetClassInfo(Params.WindowClass.hInstance, Params.WinClassName, TempClass); if ClassRegistered then begin Winapi.Windows.UnregisterClass(Params.WinClassName, Params.WindowClass.hInstance); end; If FIsBorderlessPopup then begin Params.Style := WS_POPUP; Params.WindowClass.style := Params.WindowClass.style or CS_DROPSHADOW; Params.ExStyle := WS_EX_TOPMOST; end; end;