Jump to content

ŁukaszDe

Members
  • Content Count

    101
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by ŁukaszDe

  1. ŁukaszDe

    ANN: DDevExtensions is now on GitHub

    Can someone prepare version 2.89 for Delphi 11?
  2. ŁukaszDe

    10.4.2 IDE Compilation Memory leak

    Maybe same problem: https://quality.embarcadero.com/browse/RSP-32793
  3. ŁukaszDe

    Project always opens with .dpr file..

    @emailx45 it will not work for new project or existed but without *.dsk file. I asked about it here:
  4. ŁukaszDe

    Delphi 10.4.1 and the IDE FIx Pack

    @Marco Cantu Project with 1,5 milion line of code. Compilation in 10.3.3 with IdeFixPack = 38s: I do one test, I turned off only patch UnitFindByAlias. Time of compilation = 1.55min Commands to test it for others: Option in Project > Options > Building > Delphi Compiler > Unit Aliases is empty in my project.
  5. ŁukaszDe

    Delphi 10.4.1 and the IDE FIx Pack

    1,5M lines of code. I'm still on 103.3 😞 @jbg: From IdeFixPack probably we need just these patches Compiler.Optimization Compiler.BackgroundCompilerFileExists Compiler.DirectorySearch; Compiler.UnitFindByAlias Compiler.CacheControl Compiler.CompareFileName
  6. ŁukaszDe

    Delphi 10.4.1 and the IDE FIx Pack

    You are not alone... report in topic: https://quality.embarcadero.com/browse/RSP-30910
  7. One more, add const for argument aName.
  8. I have unit in subfolder Forms. In this unit on beginnig I have {$Include ../definitions} File definitions.pas is in main folder. Should I use '..\' in directive Include or not? Is it help to faster find file definitions.pas by compiler? It works with and without. RadStudio accept '..\definitions' and '../definitions' too but Pascal Analyzer only '..\definitions'.
  9. ŁukaszDe

    Should I use path in $Include file or not

    http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/compdirsincludefile_xml.html There is also written: So should be a path to included file?
  10. ŁukaszDe

    Should I use path in $Include file or not

    Because it is Lagacy Code... and has nothing to do with the question... 🙂
  11. ŁukaszDe

    Should I use path in $Include file or not

    File definitions.pas is only one in project in main folder but another units in subfolders including it.
  12. ŁukaszDe

    IDE plugin to remove Explicit* from .dfm files

    Yes, I need it too to 10.4 version...
  13. ŁukaszDe

    When will we have an updated Delphi roadmap?

    Mini roadmap is here: https://community.idera.com/developer-tools/b/blog/posts/c-builder-and-platforms-support
  14. Something about the topic from Embarcadero:
  15. ŁukaszDe

    Can Rio and Sydney co-exist?

    I have XE2, 10.3.3 and now 10.4. Those versions are working but I don't use multi-platform.
  16. Similar topic: https://quality.embarcadero.com/browse/RSP-29165
  17. ŁukaszDe

    License key system

    Hi, What do you use to protect the application? I mainly mean licensing system and time limiting applications. Will you recommend something?
  18. https://community.idera.com/developer-tools/b/blog/posts/get-ready-for-the-10-4-beta-with-update-subscription
  19. ŁukaszDe

    IDE Fix pack for Rio

    I have today error: Access violation at address 0B94D029 in module 'IDEFixPack.dll'. Write of address 5006291A. It was first appeared. Details: [0B94D029]{IDEFixPack.dll} FastMove.SmallBackwardMove_10 (Line 411, "FastMove.pas" + 101) + $0 [142C3BDF]{dcc32260.dll} Unknown function at CallNextUnitFreeHookEx + $B0F7 [1971CC73]{CompilerSpeedPack32.dll} CompilerOptimization.UnitFindByAlias (Line 2806, "CompilerOptimization.pas" + 22) + $20 [142C3BDF]{dcc32260.dll} Unknown function at CallNextUnitFreeHookEx + $B0F7 [1971CC73]{CompilerSpeedPack32.dll} CompilerOptimization.UnitFindByAlias (Line 2806, "CompilerOptimization.pas" + 22) + $20 [0B954E30]{IDEFixPack.dll} FastFilePathStrFunctions.InnerFastExtractRelativePath (Line 292, "FastFilePathStrFunctions.pas" + 13) + $1B [50063253]{rtl260.bpl } System.@UStrSetLength (Line 30610, "System.pas" + 74) + $0 [0B954D16]{IDEFixPack.dll} FastFilePathStrFunctions.StrAppend (Line 256, "FastFilePathStrFunctions.pas" + 4) + $8 [0B954EE5]{IDEFixPack.dll} FastFilePathStrFunctions.InnerFastExtractRelativePath (Line 319, "FastFilePathStrFunctions.pas" + 40) + $C [0B954F9D]{IDEFixPack.dll} FastFilePathStrFunctions.FastExtractRelativePath (Line 349, "FastFilePathStrFunctions.pas" + 2) + $9 [2091E8B4]{coreide260.bpl} UIUtils.MakeRelativeDir (Line 1886, "UIUtils.pas" + 23) + $7 [20936FB8]{coreide260.bpl} CodeMgr.TCustomFileEntry.GetWriteFileName (Line 3502, "CodeMgr.pas" + 4) + $19 [20935989]{coreide260.bpl} CodeMgr.TUsesEntry.GetWriteFileName (Line 2970, "CodeMgr.pas" + 4) + $6 [20937D28]{coreide260.bpl} CodeMgr.TCustomFileEntry.WriteToProject (Line 3734, "CodeMgr.pas" + 3) + $19 [2241663D]{delphide260.bpl} DelphiProject.TDelphiCodeIWin32Project.SaveFileInfo (Line 378, "DelphiProject.pas" + 15) + $28 [21D91C6C]{delphicoreide260.bpl} PasMgr.TPascalProjectUpdater.Modified (Line 10865, "PasMgr.pas" + 3) + $1 [21D0636F]{delphicoreide260.bpl} BaseDelphiProject.TDelphiProjectModuleHandler.Modified (Line 4644, "BaseDelphiProject.pas" + 1) + $5 [2090A8D7]{coreide260.bpl} DocModul.TCodeIDocModule.NotifyModifiedEvent (Line 2459, "DocModul.pas" + 2) + $5 [2103C645]{designide260.bpl} ToolUtils.ForEach (Line 99, "ToolUtils.pas" + 5) + $F [2090A972]{coreide260.bpl} DocModul.TCodeIDocModule.NotifyModified (Line 2467, "DocModul.pas" + 2) + $B [20907E3D]{coreide260.bpl} DocModul.TDocModule.Modified (Line 1304, "DocModul.pas" + 6) + $0 [20679E8D]{coreide260.bpl} ProjectModule.TBaseProject.Modified (Line 1444, "ProjectModule.pas" + 1) + $2 [21D0420D]{delphicoreide260.bpl} BaseDelphiProject.TBaseDelphiProject.Modified (Line 3793, "BaseDelphiProject.pas" + 1) + $2 [20908702]{coreide260.bpl} DocModul.TDocModule.SourceModified (Line 1534, "DocModul.pas" + 0) + $2 [20909E49]{coreide260.bpl} DocModul.TCodeIDocModule.SourceModified (Line 2186, "DocModul.pas" + 0) + $5 [207F5E9C]{coreide260.bpl} EditorBuffer.TEditBuffer.SourceModified (Line 3492, "EditorBuffer.pas" + 1) + $11 [207F87B2]{coreide260.bpl} EditorBuffer.TEditView.EditorChanged (Line 4942, "EditorBuffer.pas" + 4) + $0 [2085380F]{coreide260.bpl} EditorControl.TCustomEditControl.UpdateStatus (Line 7143, "EditorControl.pas" + 7) + $19 [2084B43E]{coreide260.bpl} EditorControl.TCustomEditControl.EdRefresh (Line 2940, "EditorControl.pas" + 6) + $11 [208488AC]{coreide260.bpl} EditorControl.DisposeKeyContext (Line 1503, "EditorControl.pas" + 8) + $4 [2086909B]{coreide260.bpl} KbClient.HandleKey (Line 578, "KbClient.pas" + 12) + $19 [2086933B]{coreide260.bpl} KbClient.TIDEKBDFrameAPI.ProcessKeyStroke (Line 723, "KbClient.pas" + 141) + $1 [5005FE0F]{rtl260.bpl } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0 [50D15292]{vcl260.bpl } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6 [5005FE0F]{rtl260.bpl } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0 [13679252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A [50067A1C]{rtl260.bpl } System.@IntfClear (Line 38276, "System.pas" + 10) + $0 [13678D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7 [50067A1C]{rtl260.bpl } System.@IntfClear (Line 38276, "System.pas" + 10) + $0 [5006404C]{rtl260.bpl } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0 [50D197BC]{vcl260.bpl } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48 [2086A0D0]{coreide260.bpl} KbClient.TIDEKBDChildAPI.ProcessKeyStroke (Line 1368, "KbClient.pas" + 14) + $16 [20854B1E]{coreide260.bpl} EditorControl.TCustomEditControl.DoKeyDown (Line 7859, "EditorControl.pas" + 18) + $18 [20849C3A]{coreide260.bpl} EditorControl.TCustomEditControl.CNKeyDown (Line 2159, "EditorControl.pas" + 17) + $4 [50D15292]{vcl260.bpl } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6 [21013DA6]{designide260.bpl} DeskUtil.SetFocusHook (Line 463, "DeskUtil.pas" + 4) + $C [5005FE0F]{rtl260.bpl } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0 [13679252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A [50067A1C]{rtl260.bpl } System.@IntfClear (Line 38276, "System.pas" + 10) + $0 [13678D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7 [50067A1C]{rtl260.bpl } System.@IntfClear (Line 38276, "System.pas" + 10) + $0 [5006404C]{rtl260.bpl } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0 [136B25EE]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106 [50D197BC]{vcl260.bpl } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48 [50D19D47]{vcl260.bpl } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6 [50D19314]{vcl260.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6 [50179C9C]{rtl260.bpl } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2 [50E6EA00]{vcl260.bpl } Vcl.Forms.TApplication.IsKeyMsg (Line 10655, "Vcl.Forms.pas" + 25) + $12 [50E6EA9A]{vcl260.bpl } Vcl.Forms.TApplication.IsHintMsg (Line 10676, "Vcl.Forms.pas" + 3) + $2 [50E6ECAB]{vcl260.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10741, "Vcl.Forms.pas" + 17) + $31 [50E6ED12]{vcl260.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10777, "Vcl.Forms.pas" + 1) + $4 [50E6F045]{vcl260.bpl } Vcl.Forms.TApplication.Run (Line 10915, "Vcl.Forms.pas" + 26) + $3 [0051D06E]{bds.exe } bds.bds (Line 214, "" + 7) + $7
  20. Hi all, Is possible to set code formatter in CnPack to get: if ... then begin ... end else if ... then begin ... end else begin ... end; I want 'else' behind 'end' and 'if' in new line.
  21. ŁukaszDe

    Code formatter in CnPack

    Yes I tried. No effect. Ok, I will add tasks to sourceforge.
  22. ŁukaszDe

    [Bug] Line breaks - Local procedures

    When selected option is on than two spaces before local procedure/function are missing. Tested on GExperts 1.3.15 build 84 version.
  23. ŁukaszDe

    Code formatter in CnPack

    I added a task, but unfortunately no response. I try GExperts but works same. @dummzeuch is is possible?
  24. Hello In application I need to know is pressed any key on keyboard. On keyboard we have two keys INSERT. one normal and another on Numpad. The second one is working when Num Lock is turned on and need Shift Key pressed. The problem is with INSERT on Numpad. When you press SHIFT and 0 on numpad then GetKeyState(VK_INSERT) result is ok, key pressed. But when you release SHIFT then above function still result is wrong because now preseed is 0, no INSERT. Function result is < 0, which means the key is still pressed. If you try react in FormKeyUp and FormKeyDown then will not appear event for KeyUp(Key = 45) INSERT... Key 45 (INSERT) left pressed, even when we release numPad 0. Example code: program keytest; {$APPTYPE CONSOLE} {$R *.res} uses Windows, System.SysUtils; var Key: Integer; begin try repeat if (GetKeyState(VK_INSERT) < 0) then Writeln('INSERT') else Writeln('0'); until True; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
  25. ŁukaszDe

    No KeyUp for numpad keys after relese Shift

    No. You can close application and run again and will be information that INSERT is pressed.
×