Jump to content

Attila Kovacs

Members
  • Content Count

    1977
  • Joined

  • Last visited

  • Days Won

    26

Everything posted by Attila Kovacs

  1. Just press ctrl+shift+v instead of ctrl+v.
  2. Attila Kovacs

    Removing arrows from TRzTrackBar thumb cursor

    add this to your unit or add it to a unit which you include everywhere after "RzTrkBar" in the uses list. interface type TRzTrackBar = class(RzTrkBar.TRzTrackBar) private procedure WMSetCursor(var Msg: TWMSetCursor); message wm_SetCursor; end; implementation procedure TRzTrackBar.WMSetCursor(var Msg: TWMSetCursor); begin end;
  3. Attila Kovacs

    Removing arrows from TRzTrackBar thumb cursor

    override the WMSetCursor message for TRzTrackBar
  4. Attila Kovacs

    Transform string into TDateTime

    @Alberto Paganini You need const in the parameter list, also measure with TStopwatch and not with Now(), and try not to use local string variable, like: function JsonStringToDateTime(const Src: string): TDateTime; const ofs = Ord('0'); var pSrc: PChar; Time: TDateTime; begin if Length(Src) < 19 then Exit(gOutOfScopelDate); pSrc := Pointer(Src); if not TryEncodeDate( // ((Ord((pSrc)^) - ofs) * 1000) + ((Ord((pSrc + 1)^) - ofs) * 100) + ((Ord((pSrc + 2)^) - ofs) * 10) + (Ord((pSrc + 3)^) - ofs), // ((Ord((pSrc + 5)^) - ofs) * 10) + (Ord((pSrc + 6)^) - ofs), // ((Ord((pSrc + 8)^) - ofs) * 10) + (Ord((pSrc + 9)^) - ofs), Result) then Exit(gOutOfScopelDate); if not TryEncodeTime( // ((Ord((pSrc + 11)^) - ofs) * 10) + (Ord((pSrc + 12)^) - ofs), // ((Ord((pSrc + 14)^) - ofs) * 10) + (Ord((pSrc + 15)^) - ofs), // ((Ord((pSrc + 17)^) - ofs) * 10) + (Ord((pSrc + 18)^) - ofs), // 0, // Time) then Exit(gOutOfScopelDate); Result := Result + Time; end;
  5. Attila Kovacs

    Visual Control for selecting a date range

    With https://www.delphihtmlcomponents.com/ the sky is the limit. Just an example for selecting year/quartal/month/week/last 4 weeks/last 12 months/5 years (of course, you have to build your own html/css/scripting, but the result is unique)
  6. @Dalija Prasnikar Aeauhm, look like it's UFO Technology for me 😄
  7. Attila Kovacs

    How to crash the ICS web server

    @FPiette not if it's ipv6
  8. @Bill Meyer the combo offer takes me to an only digital purchase page
  9. Attila Kovacs

    Transform string into TDateTime

    @emailx45 Why are you concerned about what value he uses for zero date? There must be a reason for that, for example the REST endpoint he talking to does not accept dates before 1.1.1901. I don't understand your rage nor your comic book.
  10. Attila Kovacs

    Transform string into TDateTime

    Yes, remove "Dummy", and maybe Result := Result + Encodetime()? Also, you are ignoring time zones, but it is not necessary a problem for you.
  11. Attila Kovacs

    Delphi Native Code: Fast or Reliable?

    Are you sure? Never seen that.
  12. Attila Kovacs

    Delphi Native Code: Fast or Reliable?

    Are you sure you linked the right article? Because it has not much to do with your questions.
  13. Attila Kovacs

    Convert two Integers to a DateTime??

    It is then like Lajos said. And it will also be compatible with the faulty component.
  14. Attila Kovacs

    Convert two Integers to a DateTime??

    Keep in mind that DBMSes might store DateTime in different formats, so if you need to use those values on SQL Level chose an own format.
  15. Attila Kovacs

    Convert two Integers to a DateTime??

    You can't save duration into a datetime value, ie. you could, but that makes not much sense.
  16. Attila Kovacs

    XLS 2 XLSX

    @Rollo62 right, libreoffice can convert "C:\Program Files\LibreOffice\program\soffice.exe" --convert-to xlsx "C:\input_path\file.xls" -outdir "C:\output_path"
  17. Attila Kovacs

    Delph ERP Help

    so, what database is that? does it have "views"?
  18. Since when does inherited work on properties? "Inherited Data". And where else except the obvious? Documentation? I was annoyed that I could not set FData as it is private so I gave him an "inherited" in anger and fury and the compiler wasn't complaining. 😮 TTreeNodeHelper = class helper for TTreeNode private function GetNodeData: TNodeData; procedure SetNodeData(const Value: TNodeData); public property Data: TNodeData read GetNodeData write SetNodeData; end; function TVariantenTreeNodeHelper.GetNodeData: TNodeData; begin Result := inherited Data; end; procedure TVariantenTreeNodeHelper.SetNodeData(const Value: TNodeData); begin inherited Data := Value; end;
  19. Attila Kovacs

    Inherited on Properties and co.

    @Lars Fosdal In this case I'm overriding the Data property, so this is the only way to set/get them.
  20. Attila Kovacs

    Inherited on Properties and co.

    Thx. The gas prices. 😉
  21. Attila Kovacs

    Inherited on Properties and co.

    @Uwe Raabe Wow. Will turn out it's on the first page of the help 🙂
  22. In my experience, lower the display's contrast and brightness and set the gamma correction higher in the game. Constantly changing lighting conditions can't be the answer for anything because it's just exhausting for the pupil. That's why I have to turn off instantly in modern displays and w10 the automatic brightness correction. On the other way, if you like it anyway, there are tons of DIY Ambilight kits on Ali*.
  23. @Uwe Raabe Yeah ok, I see, this is blurry mode, an eye killer. I'm switching to dpi awareness handled by application. (Yeah I know, there are several other problems, but I'm doing the same like you, when I find time I'm patching the IDE)
×