Jump to content

Al T

Members
 View Profile  See their activity

  • Content Count

    104

  • Joined

  • Last visited

Posts posted by Al T

  2. Posted

    22 hours ago, programmerdelphi2k said:

    the RAD use 2 types of enviroment vars:

    1. O.S. vars, like "PATH"
    2. internal vars, like $(xxxxxxx) on IDE

    then, verify the "ordem on PATH var": who is first: RAD 11 or 2007?

    in your IDE, RAD "catch" the O.S. vars to assign some internal vars. Then, look in Tools->Options-Variables... who is who?

     

    now, for my experience:

    1. always create yourself directory for install your softwares (always that possible)
    2. always install the old-edition before new-editions
    3. after each installation, verify if old-edition still working... after, verify new-edition
    4. in your RAD case, just look on REGISTRY too! if any doubt.

    in your case, I think that is not really problem with RAD, but yeah just "orderm of the configuration" in use!

    The path variables are just fine.

     

    Component -> Install Packages -> Embarcadero Designer IDE Package

     

    ^^ If I change this in the registry.. load Delphi 11.. and look at it again... it shows up but is NOT checked to use.

     

  9. Posted · Edited by Al T
    command prompt output

    On 11/10/2022 at 6:30 AM, Vandrovnik said:

    Could you manually delete the target file and try again? Or try to suspend antivirus software?

    I had to delete target files:

     

    lib/win32/debug/Vcl.Menus.dcu

    lib/win32/debug/Vcl.Themes.dcu

    lib/win32/release/Vcl.Menus.dcu

    lib/win32/release/Vcl.Themes.dcu

    lib/win64/debug/Vcl.Menus.dcu

    lib/win64/debug/Vcl.Themes.dcu

    lib/win64/release/Vcl.Menus.dcu

    lib/win64/release/Vcl.Themes.dcu

     

    in order to complete the patch install

     

      

    Embarcadero PatchTool
Copyright (c) 2020 Embarcadero Technologies, Inc.

Creating backup folder 'C:\Program Files (x86)\Embarcadero\Studio\22.0\_patch-backup\2022-11-29 08.03.27'
Created directory C:\Program Files (x86)\Embarcadero\Studio\22.0\_patch-backup\2022-11-29 08.03.27.
Creating backup of 205 file(s)...
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win32\debug\Vcl.Menus.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win32\debug\Vcl.Themes.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win32\release\Vcl.Menus.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win32\release\Vcl.Themes.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\debug\Vcl.Menus.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\debug\Vcl.Themes.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\de\rtl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\de\vcl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\fmx.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\fmx.bpi not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\fr\rtl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\fr\vcl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\ja\rtl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\ja\vcl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\rtl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\vcl.a not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\Vcl.Menus.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\win64\release\Vcl.Themes.dcu not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\PAServer\PAServer22.0.pkg not found
Warning: C:\Program Files (x86)\Embarcadero\Studio\22.0\source\fmx\FMX.FontGlyphs.iOS.pas not found
185/205 files backed up.
Backup successfully created.
Replacing 205 file(s)...
Replacing bin64/fmx280.bpl
Replacing bin64/rtl280.bpl
Replacing bin64/vcl280.bpl
Replacing binosx64/bplfmx280.dylib
Replacing binosxarm64/bplfmx280.dylib
Replacing bin/CodeGear.Cpp.Targets
Replacing bin/designide280.bpl
Replacing bin/designide280.jdbg
Replacing bin/fmx280.bpl
Replacing bin/fmx280.jdbg
Replacing bin/rtl280.bpl
Replacing bin/rtl280.jdbg
Replacing bin/vcl280.bpl
Replacing bin/vcl280.jdbg
Replacing bin/vcldesigner280.bpl
Replacing bin/vcldesigner280.jdbg
Replacing bin/WelcomePage.Plugin.CreateNew280.bpl
Replacing bin/WelcomePage.Plugin.CreateNew280.jdbg
Replacing bin/WelcomePage.Plugin.GetItFeed280.bpl
Replacing bin/WelcomePage.Plugin.GetItFeed280.jdbg
Replacing bin/WelcomePage.Plugin.Learn280.bpl
Replacing bin/WelcomePage.Plugin.Learn280.jdbg
Replacing bin/WelcomePage.Plugin.OpenRecent280.bpl
Replacing bin/WelcomePage.Plugin.OpenRecent280.jdbg
Replacing bin/WelcomePageIDE280.bpl
Replacing bin/WelcomePageIDE280.jdbg
Replacing lib/android64/debug/fmx.dcp
Replacing lib/android64/debug/FMX.FontGlyphs.Android.dcu
Replacing lib/android64/debug/FMX.FontGlyphs.Android.o
Replacing lib/android64/debug/fmx.o
Replacing lib/android64/debug/libfmx.a
Replacing lib/android64/debug/rtl.dcp
Replacing lib/android64/release/fmx.dcp
Replacing lib/android64/release/FMX.FontGlyphs.Android.dcu
Replacing lib/android64/release/FMX.FontGlyphs.Android.o
Replacing lib/android64/release/fmx.o
Replacing lib/android64/release/libfmx.a
Replacing lib/android64/release/rtl.dcp
Replacing lib/android/debug/fmx.dcp
Replacing lib/android/debug/FMX.FontGlyphs.Android.dcu
Replacing lib/android/debug/FMX.FontGlyphs.Android.o
Replacing lib/android/debug/fmx.o
Replacing lib/android/debug/libfmx.a
Replacing lib/android/debug/rtl.dcp
Replacing lib/android/release/fmx.dcp
Replacing lib/android/release/FMX.FontGlyphs.Android.dcu
Replacing lib/android/release/FMX.FontGlyphs.Android.o
Replacing lib/android/release/fmx.o
Replacing lib/android/release/libfmx.a
Replacing lib/android/release/rtl.dcp
Replacing lib/iosdevice64/debug/fmx.dcp
Replacing lib/iosdevice64/debug/FMX.FontGlyphs.iOS.dcu
Replacing lib/iosdevice64/debug/FMX.FontGlyphs.iOS.o
Replacing lib/iosdevice64/debug/fmx.o
Replacing lib/iosdevice64/debug/libfmx.a
Replacing lib/iosdevice64/debug/rtl.dcp
Replacing lib/iosdevice64/release/fmx.dcp
Replacing lib/iosdevice64/release/FMX.FontGlyphs.iOS.dcu
Replacing lib/iosdevice64/release/FMX.FontGlyphs.iOS.o
Replacing lib/iosdevice64/release/fmx.o
Replacing lib/iosdevice64/release/libfmx.a
Replacing lib/iosdevice64/release/rtl.dcp
Replacing lib/linux64/debug/fmx.dcp
Replacing lib/linux64/debug/rtl.dcp
Replacing lib/linux64/release/fmx.dcp
Replacing lib/linux64/release/rtl.dcp
Replacing lib/osx64/debug/fmx.dcp
Replacing lib/osx64/debug/FMX.FontGlyphs.Mac.dcu
Replacing lib/osx64/debug/FMX.FontGlyphs.Mac.o
Replacing lib/osx64/debug/FMX.Memo.Style.New.dcu
Replacing lib/osx64/debug/FMX.Memo.Style.New.o
Replacing lib/osx64/debug/fmx.o
Replacing lib/osx64/debug/libfmx.a
Replacing lib/osx64/debug/rtl.dcp
Replacing lib/osx64/release/fmx.dcp
Replacing lib/osx64/release/FMX.FontGlyphs.Mac.dcu
Replacing lib/osx64/release/FMX.FontGlyphs.Mac.o
Replacing lib/osx64/release/FMX.Memo.Style.New.dcu
Replacing lib/osx64/release/FMX.Memo.Style.New.o
Replacing lib/osx64/release/fmx.o
Replacing lib/osx64/release/libfmx.a
Replacing lib/osx64/release/rtl.dcp
Replacing lib/osxarm64/debug/fmx.dcp
Replacing lib/osxarm64/debug/FMX.FontGlyphs.Mac.dcu
Replacing lib/osxarm64/debug/FMX.FontGlyphs.Mac.o
Replacing lib/osxarm64/debug/FMX.Memo.Style.New.dcu
Replacing lib/osxarm64/debug/FMX.Memo.Style.New.o
Replacing lib/osxarm64/debug/fmx.o
Replacing lib/osxarm64/debug/libfmx.a
Replacing lib/osxarm64/debug/rtl.dcp
Replacing lib/osxarm64/release/fmx.dcp
Replacing lib/osxarm64/release/FMX.FontGlyphs.Mac.dcu
Replacing lib/osxarm64/release/FMX.FontGlyphs.Mac.o
Replacing lib/osxarm64/release/FMX.Memo.Style.New.dcu
Replacing lib/osxarm64/release/FMX.Memo.Style.New.o
Replacing lib/osxarm64/release/fmx.o
Replacing lib/osxarm64/release/libfmx.a
Replacing lib/osxarm64/release/rtl.dcp
Replacing lib/win32/debug/de/fmx.dcp
Replacing lib/win32/debug/de/rtl.dcp
Replacing lib/win32/debug/de/rtl.lib
Replacing lib/win32/debug/de/vcl.dcp
Replacing lib/win32/debug/de/vcl.lib
Replacing lib/win32/debug/fmx.dcp
Replacing lib/win32/debug/fmx.lib
Replacing lib/win32/debug/FMX.Memo.Style.New.dcu
Replacing lib/win32/debug/fr/fmx.dcp
Replacing lib/win32/debug/fr/rtl.dcp
Replacing lib/win32/debug/fr/rtl.lib
Replacing lib/win32/debug/fr/vcl.dcp
Replacing lib/win32/debug/fr/vcl.lib
Replacing lib/win32/debug/ja/fmx.dcp
Replacing lib/win32/debug/ja/rtl.dcp
Replacing lib/win32/debug/ja/rtl.lib
Replacing lib/win32/debug/ja/vcl.dcp
Replacing lib/win32/debug/ja/vcl.lib
Replacing lib/win32/debug/rtl.dcp
Replacing lib/win32/debug/rtl.lib
Replacing lib/win32/debug/System.Classes.dcu
Replacing lib/win32/debug/Vcl.Controls.dcu
Replacing lib/win32/debug/vcl.dcp
Replacing lib/win32/debug/Vcl.Forms.dcu
Replacing lib/win32/debug/Vcl.ImgList.dcu
Replacing lib/win32/debug/vcl.lib
Replacing lib/win32/debug/Vcl.Menus.dcu
Warning: lib/win32/debug/Vcl.Menus.dcu not found, new file successfully copied
Replacing lib/win32/debug/Vcl.Themes.dcu
Warning: lib/win32/debug/Vcl.Themes.dcu not found, new file successfully copied
Replacing lib/win32/release/de/rtl.lib
Replacing lib/win32/release/de/vcl.lib
Replacing lib/win32/release/fmx.dcp
Replacing lib/win32/release/fmx.lib
Replacing lib/win32/release/FMX.Memo.Style.New.dcu
Replacing lib/win32/release/fr/rtl.lib
Replacing lib/win32/release/fr/vcl.lib
Replacing lib/win32/release/ja/rtl.lib
Replacing lib/win32/release/ja/vcl.lib
Replacing lib/win32/release/rtl.dcp
Replacing lib/win32/release/rtl.lib
Replacing lib/win32/release/System.Classes.dcu
Replacing lib/win32/release/Vcl.Controls.dcu
Replacing lib/win32/release/vcl.dcp
Replacing lib/win32/release/Vcl.Forms.dcu
Replacing lib/win32/release/Vcl.ImgList.dcu
Replacing lib/win32/release/vcl.lib
Replacing lib/win32/release/Vcl.Menus.dcu
Warning: lib/win32/release/Vcl.Menus.dcu not found, new file successfully copied
Replacing lib/win32/release/Vcl.Themes.dcu
Warning: lib/win32/release/Vcl.Themes.dcu not found, new file successfully copied
Replacing lib/win64/debug/de/fmx.dcp
Replacing lib/win64/debug/de/rtl.a
Replacing lib/win64/debug/de/rtl.dcp
Replacing lib/win64/debug/de/vcl.a
Replacing lib/win64/debug/de/vcl.dcp
Replacing lib/win64/debug/fmx.a
Replacing lib/win64/debug/fmx.bpi
Replacing lib/win64/debug/fmx.dcp
Replacing lib/win64/debug/FMX.Memo.Style.New.dcu
Replacing lib/win64/debug/fr/fmx.dcp
Replacing lib/win64/debug/fr/rtl.a
Replacing lib/win64/debug/fr/rtl.dcp
Replacing lib/win64/debug/fr/vcl.a
Replacing lib/win64/debug/fr/vcl.dcp
Replacing lib/win64/debug/ja/fmx.dcp
Replacing lib/win64/debug/ja/rtl.a
Replacing lib/win64/debug/ja/rtl.dcp
Replacing lib/win64/debug/ja/vcl.a
Replacing lib/win64/debug/ja/vcl.dcp
Replacing lib/win64/debug/rtl.a
Replacing lib/win64/debug/rtl.dcp
Replacing lib/win64/debug/System.Classes.dcu
Replacing lib/win64/debug/vcl.a
Replacing lib/win64/debug/Vcl.Controls.dcu
Replacing lib/win64/debug/vcl.dcp
Replacing lib/win64/debug/Vcl.Forms.dcu
Replacing lib/win64/debug/Vcl.ImgList.dcu
Replacing lib/win64/debug/Vcl.Menus.dcu
Warning: lib/win64/debug/Vcl.Menus.dcu not found, new file successfully copied
Replacing lib/win64/debug/Vcl.Themes.dcu
Warning: lib/win64/debug/Vcl.Themes.dcu not found, new file successfully copied
Replacing lib/win64/release/de/rtl.a
Warning: lib/win64/release/de/rtl.a not found, new file successfully copied
Replacing lib/win64/release/de/vcl.a
Warning: lib/win64/release/de/vcl.a not found, new file successfully copied
Replacing lib/win64/release/fmx.a
Warning: lib/win64/release/fmx.a not found, new file successfully copied
Replacing lib/win64/release/fmx.bpi
Warning: lib/win64/release/fmx.bpi not found, new file successfully copied
Replacing lib/win64/release/fmx.dcp
Replacing lib/win64/release/FMX.Memo.Style.New.dcu
Replacing lib/win64/release/fr/rtl.a
Warning: lib/win64/release/fr/rtl.a not found, new file successfully copied
Replacing lib/win64/release/fr/vcl.a
Warning: lib/win64/release/fr/vcl.a not found, new file successfully copied
Replacing lib/win64/release/ja/rtl.a
Warning: lib/win64/release/ja/rtl.a not found, new file successfully copied
Replacing lib/win64/release/ja/vcl.a
Warning: lib/win64/release/ja/vcl.a not found, new file successfully copied
Replacing lib/win64/release/rtl.a
Warning: lib/win64/release/rtl.a not found, new file successfully copied
Replacing lib/win64/release/rtl.dcp
Replacing lib/win64/release/System.Classes.dcu
Replacing lib/win64/release/vcl.a
Warning: lib/win64/release/vcl.a not found, new file successfully copied
Replacing lib/win64/release/Vcl.Controls.dcu
Replacing lib/win64/release/vcl.dcp
Replacing lib/win64/release/Vcl.Forms.dcu
Replacing lib/win64/release/Vcl.ImgList.dcu
Replacing lib/win64/release/Vcl.Menus.dcu
Warning: lib/win64/release/Vcl.Menus.dcu not found, new file successfully copied
Replacing lib/win64/release/Vcl.Themes.dcu
Warning: lib/win64/release/Vcl.Themes.dcu not found, new file successfully copied
Replacing PAServer/PAServer22.0.pkg
Warning: PAServer/PAServer22.0.pkg not found, new file successfully copied
Replacing source/fmx/FMX.FontGlyphs.Android.pas
Replacing source/fmx/FMX.FontGlyphs.iOS.pas
Warning: source/fmx/FMX.FontGlyphs.iOS.pas not found, new file successfully copied
Replacing source/fmx/FMX.FontGlyphs.Mac.pas
Replacing source/fmx/FMX.Memo.Style.New.pas
Replacing source/rtl/common/System.Classes.pas
Replacing source/vcl/Vcl.Controls.pas
Replacing source/vcl/Vcl.Forms.pas
Replacing source/vcl/Vcl.ImgList.pas
Replacing source/vcl/Vcl.Menus.pas
Replacing source/vcl/Vcl.Themes.pas
Patch successfully applied. Backup and log files are in 'C:\Program Files (x86)\Embarcadero\Studio\22.0\_patch-backup\2022-11-29 08.03.27'.

     

  11. Posted

    So Delphi, in order for this issue to become a big deal, more people will have to report this issue:

     

    Sync status from internal system, internal issue closed on Nov 22, 2022 by Marco Cantù with comment:
    While the IDE could provide better errors in such a case, if a component in a third party project shows an AV at every compilation, it seems the issue is in the component code – it doesn't happen with other components, to our knowledge. Please check with the original author (if it's not your code) or ask for someone to check the specific code..

     

    The only way they will accept there is a Access Violation is if this happens to more than just one person and other components.

     

    With any other component, mainly copy my setups in https://en.delphipraxis.net/topic/7842-replicable-w-source-why-do-i-always-get-access-violation-every-time-i-rebuild-any-component-current-solution-is-to-restart-delphi-why/?do=findComment&comment=65699 and I'm sure you'll get a Access Violation with any other component using a single instance of the IDE.

     

    It's going to take more than one person with this issue for it to become a issue.

     

     

  13. Posted · Edited by Al T

    On 11/16/2022 at 11:54 AM, Remy Lebeau said:

    The only HWND available in FMX comes from the TForm itself.  Child controls do not have their own HWNDs.  You can get the Form's HWND by using either WindowHandleToPlatform() or FormToHWND() in the FMX.Platform.Win unit.  Otherwise, if you want a child control that has an HWND, you will have to create it yourself using the Win32 API CreateWindow/Ex() API directly.

    I did find FMX.Controls.Win which isn't in the online documentation.

     

    Here is this:

      

      { TWinControl }
  /// <summary>
  ///  Wrapper for FMX.Controls.TControl for using native controls
  /// </summary>
  TWinControl = class(TControl)
  private
    FWindowProc: TWndMethod;
  private
    FParentWindow: HWND;
    FWinControls: TList;
    FDefWndProc: Pointer;
    FHandle: HWND;
    FObjectInstance: Pointer;
    function PrecedingWindow(const Control: TWinControl): HWND;
    procedure SetParentWindow(const Value: HWND);
    procedure UpdateShowing;
  protected
    /// <summary>
    ///   Return HWND handle to the component
    /// </summary>
    function GetHandle: HWND; virtual;
    /// <summary>
    ///   Set the FMX parent to the component
    /// </summary>
    procedure SetParent(const AParent: TFmxObject); reintroduce; virtual;
    /// <summary>
    ///   Return the parent
    /// </summary>
    function GetParent: TFmxObject; virtual;
    /// <summary>
    ///   WndProc procedure for this control
    /// </summary>
    procedure WndProc(var Message: TMessage); virtual;
    /// <summary>
    ///  Create native WindowHandle for control
    /// </summary>
    procedure CreateHandle; virtual;
    /// <summary>
    ///   Fill the structure using default parameters
    /// </summary>
    procedure CreateParams(var Params: TCreateParams); virtual;
    /// <summary>
    ///   Abstract method that would be call in CreateHandle method
    /// </summary>
    procedure CreateWnd; virtual; abstract;
    /// <summary>
    ///   Destroy the handle and all child handles if it exist
    /// </summary>
    procedure DestroyHandle; virtual;
    /// <summary>
    ///   Call Win API method for destroing handle from window
    /// </summary>
    procedure DestroyWindowHandle; virtual;
    /// <summary>
    ///   Return parents handle if exist. In other case return components handle
    /// </summary>
    function GetTopParentHandle: HWND;
    /// <summary>
    ///   Procedure for calling MakeObjectInstance
    /// </summary>
    procedure MainWndProc(var Message: TMessage);
    /// <summary>
    ///   Pointer to default WndProc
    /// </summary>
    property DefWndProc: Pointer read FDefWndProc write FDefWndProc;
    /// <summary>
    ///   Property for providing acceess to FHandle field
    /// </summary>
    property WindowHandle: HWND read FHandle write FHandle;
    /// <summary>
    ///   Method for sync Bounds between FMX and native control.
    /// </summary>
    procedure DoMatrixChanged(Sender: TObject); override;
    /// <summary>
    ///   Method for process of MouseActivate message
    /// </summary>
    procedure DoMouseActivate; virtual;
    /// <summary>
    ///   method for getting decision about focus setting
    /// </summary>
    procedure DoSetFocus; virtual;
  public
    constructor Create(AOwner: TComponent); overload; override;
    constructor CreateParented(ParentWindow: HWND);
    class function CreateParentedControl(ParentWindow: HWND): TWinControl;
    destructor Destroy; override;
    function HandleAllocated: Boolean;
    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); reintroduce; virtual;
    procedure UpdateControlState;
    property Handle: HWND read GetHandle;
    property ParentWindow: HWND read FParentWindow write SetParentWindow;
    /// <summary>
    ///   Call Win API method update
    /// </summary>
    procedure Update; virtual;
    property WindowProc: TWndMethod read FWindowProc write FWindowProc;
    property Parent: TFmxObject read GetParent write SetParent;
  end;

    Would this work and if so, how do incorporate this into my FMX project?

     

  14. Posted

    On 11/16/2022 at 11:54 AM, Remy Lebeau said:

    The only HWND available in FMX comes from the TForm itself.  Child controls do not have their own HWNDs.  You can get the Form's HWND by using either WindowHandleToPlatform() or FormToHWND() in the FMX.Platform.Win unit.  Otherwise, if you want a child control that has an HWND, you will have to create it yourself using the Win32 API CreateWindow/Ex() API directly.

    I'm starting to get fed up with FMX... since the VCL version works just fine..

     

    I was hoping to convert the VCL to FMX so that I can start using Skia4Delphi....

     

    I've got the component running without errors... but since I used FeditorFormClass.Create(NIL); instead of being able to use FeditorFormClass.CreateParented(HWND(parent)); ........ It just shows a blank screen with no form on it!

     

    I hate to have to figure out CreateWindowEx just so that I can create a parented FMX version 😞

     

    It looks like I've got many more days of scratching my head and beating the walls.

     

    I can only imagine a large project converting from VCL to FMX... the enormous feat that would be.

     

  16. Posted

    okay.. it isn't the value or sNum...

     

    It's FScrollBars[isb]

     

    something about FScrollBars[isb] crashes it... cause I called:

      

    procedure TFormAthenaVST.UpdateEditorParameter(index:integer; dvalue: double);
VAR isb:integer;
    sNum:single;
begin
  WriteLog('TFormAthenaVST.UpdateEditorParameter(index:' + index.ToString + ' dvalue:' + dvalue.ToString);
  for isb:=0 to 2 do
    if index = ID_CUTOFF+isb then
      begin
        WriteLog('FScrollBars[' + isb.ToString + '].Value:=(100*value)');
        //sNum := round(100*dvalue);
        sNum := 100*dvalue;
        WriteLog('FScrollBars[isb].BeginUpdate');
        FScrollBars[isb].BeginUpdate;
        WriteLog('sNum = ' + sNum.ToString);
        FScrollBars[isb].Value:=sNum;
        WriteLog('FScrollBars[isb].EndUpdate');
        FScrollBars[isb].EndUpdate;
        WriteLog('AFTER FScrollBars[isb].Value:=sNum;');
      end;
  WriteLog('TFormAthenaVST.UpdateEditorParameter END');
end;

    It crashes right after WriteLog('FScrollBars[isb].BeginUpdate');

  17. Posted · Edited by Al T

    I'm starting to guess I need to convert Int64 to Single... opps

     

    Is there a directive I need to enable for Delphi to catch that before I compile it??

     

    --okay that isn't what I thought it was... still stumped.

     

    I'm now thinking 

    procedure TFormAthenaVST.UpdateEditorParameter(index:integer;value: double);

    the value needs a rename??

     

  18. Posted · Edited by Al T
    CodeSite Express 

    procedure TFormAthenaVST.UpdateEditorParameter(index:integer;value: double);
VAR isb:integer;
    sNum:single;
begin
  WriteLog('TFormAthenaVST.UpdateEditorParameter(index:' + index.ToString + ' value:' + value.ToString);
  for isb:=0 to 2 do
    if index = ID_CUTOFF+isb then
      begin
        WriteLog('FScrollBars[' + isb.ToString + '].Value:=round(100*value)');
        sNum := round(100*value);
        WriteLog('sNum = ' + sNum.ToString);
        FScrollBars[isb].Value:=sNum;
        WriteLog('AFTER FScrollBars[isb].Value:=sNum;');
      end;
  WriteLog('TFormAthenaVST.UpdateEditorParameter END');
end;

    https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/UAthenaVSTForm.pas#L149-L164

     

    You can find all the source code here: https://github.com/War3Evo/RMSVST3/tree/Delphi-11.0/FMX_AthenaVST3

     

    WriteLog uses CodeSite Express... CakeWalk by BandLabs crashes on FScrollBars[isb].Value:=sNum;

     

    The VCL version does not crash but also uses FScrollBars[isb].Position:=round(100*value);

     

    Your help is much appreciated!

     

  19. Posted

    On 11/16/2022 at 11:51 AM, Remy Lebeau said:

    That will only work for TForm handles (and alternatively, you can use FormToHWND() instead).  In FMX, only a TForm has an actual Win32 HWND assigned, its child control do not have their own HWNDs, like they do in VCL.  FMX child control are custom-drawn directly onto the TForm's window.

    How does FMX TForm know who is the child or parent of a form?

  23. Posted

    The other solution found was to remove the component from https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/UAthenaVSTForm.fmx

     

    then go make changes to the project https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/PianoComponent_Install/PackageComponent_PianoKeyboard.dproj

     

    go back to project https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/Athena.dproj

     

    then now you have to put the component back on the form, align it where you want it on the form, make changes to the component, etc.  So much extra work to get the component right again and Delphi suppose to be fast and efficient programming!

     

    This major bug needs to get fixed ... it's repeatable!

     

    Any ideas or work around that doesn't require removing the component from the project that uses it?

     

    When Delphi saves... I wonder if it saves any linkage to the old code??  when you open it again... there goes the access violation?  Maybe there is a way to force Delphi to reload all components before opening project?

     

  24. Posted

    21 hours ago, Lajos Juhász said:

    Yes you can, before you compile the package uninstall all the packages that depends on that one. That should improve the situation.

     

    Unfortunately this is a "known" issue and impossible to report (as it's hard to make the required test case).

     

    PS. For a project group I even have a situation that some days Access Violation is almost every time triggered when I compile an application without runtime packages.

    It's easy to replicate.

     

    Note: I use right click to clean, right click to build, right click to install, right click to uninstall.  I double left click to select either the Windows 32 bit or Windows 64 bit platforms in the view of the Project Group.

     

    Build both Windows 32 and Windows 64 platforms and install the windows 32 bit version (Delphi won't let you install the 64 bit version) of this component: https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/PianoComponent_Install/PackageComponent_PianoKeyboard.dproj

     

    save all and close the component project

     

    open project https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/Athena.dproj

     

    then open up https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/UAthenaVSTForm.fmx

     

    You should see the piano component is there.

     

    Now ... save all and close all.

     

    Go back to the project and open https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/PianoComponent_Install/PackageComponent_PianoKeyboard.dproj

     

    uninstall the component

     

    now... make changes to line 249 by changing it from https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/PianoComponent_Install/UPianoKeyboard.pas#L249

     

    0: Canvas.Fill.Color := TAlphaColorRec.White;

     

    to

     

    0: Canvas.Fill.Color := TAlphaColorRec.Orange;

     

    after making the changes.. save all, then clean for both the windows 32 bit and windows 64 bit platforms... build both windows 32 bit and windows 64 bit platforms of the project and install this component again from https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/PianoComponent_Install/PackageComponent_PianoKeyboard.dproj

     

    save all and close this project...

     

    go back to the project and open https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/Athena.dproj

     

    now open https://github.com/War3Evo/RMSVST3/blob/Delphi-11.0/FMX_AthenaVST3/UAthenaVSTForm.fmx

     

    You'll get Access Violation every single time!  (It's repeatable)

     

    The only solution I found was to restart Delphi.

     

     

    You'll get Access Violation and the form fmx will not show up, but you'll see the source code.

     

    Proof above it's repeatable.

     

     

  25. Posted · Edited by Al T

    For the replicable w/ source see

     

    This has been happening for every version of Delphi I've ever owned... it still happens in Delphi 11.0 Enterprise.  The only solution is to restart Delphi for every single change made to the component!

     

    Why do I always get Access Violation every time I rebuild a component?

     

    I've tried to uninstall / install after every build to the component...save .. open up a project that uses that component ... access violation ... solution Restart Delphi

    I've tried to just clean.. build... component...save .. open up a project that uses that component ... access violation ... solution Restart Delphi

     

    Why do I need to always restart Delphi (close delphi... then double click delphi to load it again) ... every time I rebuild a component??

     

    Is there something that I can do to stop having to Restart Delphi to fix this issue?

     

    Any ideas?

×