Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation on 01/20/23 in all areas

  1. programmerdelphi2k

    Select multiples lines at once

    Multi Caret like this... I think that RAD IDE does not do it, then you needs a external plugin as I said above in Lazarus you have it, in Delphi not! https://wiki.freepascal.org/New_IDE_features_since#Multi_Caret
  2. Alexander Sviridenkov

    Regex Catch a first Line only

    It is better to use HTML parser for this.
  3. aehimself

    D11.2 + FireDAC + MySQL 64 bit not working

    You really never heard of amd-x64.google.com or itanium64.en.delphipraxis.net? 😄
  4. Fr0sT.Brutal

    Tlist<T> growth strategy is bad.

    Anyway FastMM internally uses pre-reserve strategy for deallocations making +1 growth not so terrible
  5. Lars Fosdal

    OAuth2 bearer token example?

    I ended up writing a small class around THTTPClient from System.Net.HttpClient. No need for the humongous REST.* classes.
  6. dummzeuch

    Select multiples lines at once

    I'm sure I saw a similar functionality demonstrated in the Delphi IDE. Was it called SyncEdit? https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Sync_Edit_Mode_(Delphi,_C++) An older version of the documentation links to a video: But that's only for identifiers, not for generic text.
  7. programmerdelphi2k

    Animating rectangle position in code using fmx

    hi @xorpas well, if you ok for you, then, it's ok! try my new sample: uMyFrameWithRectangle with your Frame and your rectangles or any others the "Rectangle2" is just of show "green color", not needs it!!! type TMyFrameRectangle = class(TFrame) MyRectangleToMove: TRectangle; FloatAnimation1: TFloatAnimation; Rectangle2: TRectangle; private { Private declarations } public constructor Create(AOwner: TComponent); override; end; implementation {$R *.fmx} constructor TMyFrameRectangle.Create(AOwner: TComponent); begin inherited; // FloatAnimation1.Enabled := false; FloatAnimation1.AutoReverse := false; FloatAnimation1.PropertyName := 'Height'; FloatAnimation1.Duration := 0.5; FloatAnimation1.Trigger := 'IsMouseOver=true'; FloatAnimation1.TriggerInverse := 'IsMouseOver=false'; // FloatAnimation1.StartValue := MyRectangleToMove.Height; FloatAnimation1.StopValue := FloatAnimation1.StartValue + (FloatAnimation1.StartValue * 1.4); // +140% end; var Form1: TForm1; implementation {$R *.fmx} uses uMyFrameWithRectangle; procedure TForm1.Button1Click(Sender: TObject); var MyFrameRectangle: TMyFrameRectangle; begin for var i: integer := 1 to 5 do begin MyFrameRectangle := TMyFrameRectangle.Create(nil); // VertScrollBox1.AddObject(MyFrameRectangle); end; end; initialization ReportMemoryLeaksOnShutdown := true; end.
  8. Brandon Staggs

    Does ChatAI make StackOverflow obsolete ?

    I had better luck with asking it for a programming joke.
×