Leaderboard

I've created the BUG report: https://quality.embarcadero.com/browse/RSP-33760 Please vote for it. bye Carlo

try var LURI := TURI.Create(AURI); Result := True; except Result := False; end;

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

If the DPR had a syntax error in the last line, wouldn´t do this the trick?

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.

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

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.

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.

@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;

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!

Dear visitors, 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 always 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

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