Jump to content


Popular Content

Showing content with the highest reputation on 04/21/21 in all areas

  1. Carlo Barazzetta

    A BIG and very strange BUG with High-DPI, VCL Style and Form Constraints

    I've created the BUG report: https://quality.embarcadero.com/browse/RSP-33760 Please vote for it. bye Carlo
  2. try var LURI := TURI.Create(AURI); Result := True; except Result := False; end;
  3. Uwe Raabe


    Do you by any chance happen to have Project Magician installed with Auto LibSuffix option active?
  4. TigerLilly

    compiling DCU without creating EXE

    If the DPR had a syntax error in the last line, wouldn┬┤t do this the trick?
  5. It works well. I've managed to build and run my VCL and FMX projects on Android, iOS, Windows and Mac without any problems. Note that both Windows ARM and the way it runs Delphi are still in preview so tread carefully! I can debug Windows and Android no problem. I'm having issues debugging iOS as it's stopping in the IDE but showing the CPU rather than code views. I believe this might be a badly built component I need to re-install rather than an issue with the environment but can't confirm either way at the moment.
  6. malobo

    Delphi 10.4.2 Professional

    Totally agree. I did not give up that it had to be this way with the investment made in equipment. I was obsessed that in my previous PC, much less powerful, the work with D2010 was highly productive compared to the coffee machine that I now had to use. I just couldn't let go...
  7. Anders Melander

    Delphi 10.4.2 Professional

    The feature nobody ever asked for strikes again. I wish they would realize their mistake and make it opt-in instead of opt-out-if-you-know-how-to. Think of all the people that doesn't even know about this and just assume it's because Delphi now suck balls - learn to live with it.
  8. Fr0sT.Brutal

    Delphi 10.4.2 Professional

    @Dany Marmur gentleness and diplomacy of 80 lvl! ­čÖé
  9. Dany Marmur

    Delphi 10.4.2 Professional

    @Fr0sT.Brutal, in that case, my sincere apologies! I want to express my gratitude for pointing out such ignorance. I want the whole world to know that i was utterly unaware of the grave rights-issues that follow such ignorance as my own. Luckily i'm not a politician, had i been i would have blamed my poor eyesight and my too small laptop screen. Thanks!
  10. Uwe Raabe

    compiling DCU without creating EXE

    It is even possible to compile just pas files with dcc<xxx>. So create a unit that uses all of your units and compile that one.
  11. @Dave Novo Dave - many thanks for the heads up. Following your advice, I resorted to RegEx, using the following code, and it works well for me. I posted the code here, in case someone may have the same needs. Thanks again. procedure MyFunkyRegExProcedure; const sUrlRegEx: String = '^'#10 + '(# Scheme'#10 + ' [a-z][a-z0-9+\-.]*:'#10 + ' (# Authority & path'#10 + ' //'#10 + ' ([a-z0-9\-._~%!$&''()*+,;=]+@)? # User'#10 + ' ([a-z0-9\-._~%]+ # Named host'#10 + ' |\[[a-f0-9:.]+\] # IPv6 host'#10 + ' |\[v[a-f0-9][a-z0-9\-._~%!$&''()*+,;=:]+\]) # IPvFuture host'#10 + ' (:[0-9]+)? # Port'#10 + ' (/[a-z0-9\-._~%!$&''()*+,;=:@]+)*/? # Path'#10 + ' |# Path without authority'#10 + ' (/?[a-z0-9\-._~%!$&''()*+,;=:@]+(/[a-z0-9\-._~%!$&''()*+,;=:@]+)*/?)?'#10 + ' )'#10 + '|# Relative URL (no scheme or authority)'#10 + ' ([a-z0-9\-._~%!$&''()*+,;=@]+(/[a-z0-9\-._~%!$&''()*+,;=:@]+)*/? # Relative path'#10 + ' |(/[a-z0-9\-._~%!$&''()*+,;=:@]+)+/?) # Absolute path'#10 + ')'#10 + '# Query'#10 + '(\?[a-z0-9\-._~%!$&''()*+,;=:@/?]*)?'#10 + '# Fragment'#10 + '(\#[a-z0-9\-._~%!$&''()*+,;=:@/?]*)?'#10 + '$'; begin var LRegEx := TRegEx.Create(sUrlRegEx, [roIgnoreCase, roIgnorePatternSpace]); var LMatch := LRegEx.Match(FUrl); end;
  12. The complete VCL package includes more than 750 VCL components including popular packages like LMD DockingPack, GridPack or LMD DialogPack (available for Delphi/C++Builder XE2 and better). Major changes in this release are full rework of core and common packages (made possible by supporting XE2 or better only); better support of newer VCL features (TVirtualImageList DPI scaling support, 32bit glyph support); new controls like TLMDFontImageList with auto dpi support; further improved high dpi and multimonitor support (e.g. DockingPack); many fixes and enhancements based on customer feedback; unified installers for NG and LMD products; new democenter and extensive updates for demo projects (e.g. overworked DB demos); extensive update for NG ConnectionPack (supporting many more Google services). Read the news announcement or find summary of all changes in LMD 2021 release on What's New Page. Check the new trials and compiled Exe-Demos at https://www.lmd.de/downloads All exe-demos were recompiled and digitally signed, for example the LMD DockingPack /AnyLogger or new DemoCenter demos. Feature Matrix of all LMD VCL products: https://www.lmd.de/feature-matrix If you are interested in purchasing check out the order Page: https://www.lmd.de/shopping´╗┐ If any questions are left, please contact us at mail@lmdsupport.com!´╗┐
  13. Dear´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐ visit´╗┐ors,´╗┐ I like to notify ´╗┐you that´╗┐ new version of NextSuite is available. Detailed info can be read on: News Article As Easter is near, we are also offering 35% discount on all our components. Just enter EASTER coupon code while ordering. NextSuite includes al´╗┐ways growing set of VCL components. Most important components are: ´╗┐NextGrid6 (StringGrid/ListView replacement, written from scratch). NextDBGrid6 (Db variant of the grid) NextInspector6´╗┐ - An´╗┐ object inspector component. Next Collection 6 - A set of smaller components that are both useful and easy to use. ´╗┐ ´╗┐ and many more.´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐ ´╗┐´╗┐ Few´╗┐ screenshots: ´╗┐ ´╗┐´╗┐´╗┐´╗┐´╗┐ ´╗┐ ´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐ ´╗┐´╗┐´╗┐´╗┐ Download big demo project from: http://www.bergsoft.net/downloads/vcl/demos/nxsuite6_demo.zip´╗┐´╗┐´╗┐´╗┐´╗┐´╗┐
  14. Quick-And-Dirty ( complete package attached ) unit HideControls; interface procedure Register; implementation uses Vcl.Controls, DesignIntf, DesignEditors; type THideControlsEditor = class(TComponentEditor) private procedure SetDesignVisible(Value: Boolean); public procedure ExecuteVerb(Index: Integer); override; function GetVerb(Index: Integer): string; override; function GetVerbCount: Integer; override; end; procedure Register; begin RegisterComponentEditor(TControl, THideControlsEditor); end; procedure THideControlsEditor.ExecuteVerb(Index: Integer); begin case Index of 0: SetDesignVisible(False); 1: SetDesignVisible(True); end; end; function THideControlsEditor.GetVerb(Index: Integer): string; begin case Index of 0: Result := 'Hide Control(s)'; 1: Result := 'Show Control(s)'; else Result := ''; end; end; function THideControlsEditor.GetVerbCount: Integer; begin Result := 2; end; procedure THideControlsEditor.SetDesignVisible(Value: Boolean); var I: Integer; list: IDesignerSelections; begin list := CreateSelectionList; Designer.GetSelections(list); for I := 0 to list.Count - 1 do if list.Items[I] is TControl then TControl(list.Items[I]).SetDesignVisible(Value); end; end. HideControlsAtDesignTimeDemo.zip