Jump to content

dwrbudr

Members
  • Content Count

    79
  • Joined

  • Last visited

Posts posted by dwrbudr


  1. 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;

     


  2. 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.


  3. 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'));

     


  4. 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


  5. AdvRichEditor is VERY buggy. We use it in our program and already fixed 50+ issues reported by users. As always TMS rushes to release something that is not even an alpha version. We plan to switch to TRichView at some point.


  6. 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?


  7. 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.

×