Jump to content

aehimself

Members
  • Content Count

    1090
  • Joined

  • Last visited

  • Days Won

    23

Everything posted by aehimself

  1. That's the trick. There is NOTHING listening on that port - therefore no data to be received. The result is the same if I set the addr to '99.88.77.66' or other nonsense - I expect nothing to be there. This is why I said:
  2. aehimself

    Drone control from mobile

    Because it's the mainstream. I bet my shoes on that you can track it back to Apple.
  3. aehimself

    Do not show drag image immediately?

    Manually handling it in OnMouseMove works perfectly.
  4. aehimself

    best way to display a list of panels?

    Possible, however there are no requests like that for the time being. And this is why I hate to implement something new. The next hour when I published the resizable multi-line editor an other request came in, that "it would be nice" if the editor would resize with the form itself, instead of showing a scrollbar 😄
  5. aehimself

    10.4.1 Released today

    I'll only post a picture.
  6. aehimself

    best way to display a list of panels?

    Just a small update, I managed to implement the resizing logic and it was really, really easy. Most of my time went away by drawing the transparent, themed, system default resize gripper... ...which almost can not be seen on dark styles, so totally with it! 👍 Frames above and below are adjusting properly, not changing places or jumping around. Overflow is handled correctly by the alClient scrollbox, if the contents grow too large for the window. The only thing is that I did not use splitters, I wrote the resizing logic myself (which is awfully long, like 10 lines of code?) Procedure TMultiLineParamFrame.ResizeHandleImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Begin _resizing := True; SetCapture(Self.Handle); End; Procedure TMultiLineParamFrame.ResizeHandleImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var relative: TPoint; begin If Not _resizing Then Exit; relative := ScreenToClient(Mouse.CursorPos); If relative.Y > 47 Then Height := relative.Y; // Burned in magic number, because we all love them! End; Procedure TMultiLineParamFrame.ResizeHandleImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Begin ReleaseCapture; _resizing := False; End; Drawing the gripping handle: Constructor TMultiLineParamFrame.Create(AOwner: TComponent); Var bmp: TBitmap; Begin inherited; _resizing := False; bmp := TBitmap.Create; Try bmp.Height := 16; bmp.Width := 16; bmp.TransparentColor := clYellow; bmp.Canvas.Brush.Color := bmp.TransparentColor; bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height)); StyleServices.DrawElement(bmp.Canvas.Handle, StyleServices.GetElementDetails(tsGripper), Rect(0, 0, bmp.Width, bmp.Height)); ResizeHandleImage.Picture.Assign(bmp); Finally FreeAndNil(bmp); End; End;
  7. aehimself

    TSMBIOS or equivalent?

    I just found this awesome thing of @RRUZ, called TSMBIOS. Unfortunately though it seems to be abandoned now, and the only result I get on an Ubuntu 18.04 server is a nullpointer exception; even if I execute it via sudo (or su). Does anyone know about an updated fork of this component or something similar; which can gather hardware information on Windows and Linux?
  8. aehimself

    How do get all strings from a version resource

    Nice job. I think soon I'll need something like this in one of my applications - at least I'll know where to look 🙂
  9. aehimself

    Delphi 6 all of a sudden wants to be activated

    Especially if our own code is doing things like this. God, how many hours we already spent debugging something which only triggers when several, rare conditions are met 🙂
  10. aehimself

    looking for UI design ideas for tracking a process

    Really nice idea! As the shapes are not even that complicated, it could be custom-drawn on a TWinControl-descendant and call it a component. I like it.
  11. aehimself

    git workflow question

    With all respect, I don't think Git structure is the root cause here; refactoring the 850 EXEs to one single application plus modules (not necessarily .DLLs) would worth more on the long run in my opinion. Most of us, Delphi developers were hired to maintain old, large (and often poorly written) legacy applications; I know how likely the management approves 1-2 devs to "break free" and start re-designing everything. But, with properly structured and divided code, you'll quickly see that there will be no need of mapping one git repository to a number of drives. Thus, achieving your current goal to reduce merge conflicts.
  12. aehimself

    Use of Ansistring in Unicode world?

    I'm using String for string everywhere with no noticeable performance penalty (although, I never had to write performance-critical programs so far). If I know that encoding is in the game (e.g.: receiving data from a web browser) or I'm working with binary data I'm using TBytes. Pretty happy until now.
  13. aehimself

    Securing your data over time

    Damn it. First of all, have the highest possible levels of my admiration. As for the location... damn it again. I should re-structure my IT equipment at home.
  14. aehimself

    Securing your data over time

    If you mean you physically remove and transport disks between houses on a regular basis for years, you have my highest possible admiration. I'm just too lazy to do that, I give up after a month or two. I still have so much to learn 😞
  15. aehimself

    looking for UI design ideas for tracking a process

    First things first, I am horrible in UI design. With that said... Considering the fact that one main step can not change without all the sub-steps complete, my main UI would only show the currently active step. "Project XY is in Pending Signoff state" list of substeps below, with a fancy green checkmark right next to the substeps already accomplished. Don't make a dfference between optional and required ones - the main step will change anyway if all required ones are completed. This applies to the user and admin interface too. I don't really care when the previous main step's substeps were completed if my only purpose is to approve something / check how my thing is progressing. Have a history, as a side menu option. But then again, I am really, really bad in UI design. It's just how I would do it. Edit:
  16. aehimself

    Securing your data over time

    That is a really valid point. So you need 2 fireproof safes. 1 for the library, 1 for the server 🙂 That is not possible. How are you writing data on a media, which is not physically in a drive? Again, I am strictly talking about home-use "hacky" but safe-enough solutions. I have trust issues. I'll not buy critical equipment (like a fire extinguisher or car tires) second hand. If I want my data safe - brand new safe. If not - no safe at all. 400 EUR is a bit off the hobby limit in my opinion. But then again - how much one is willing to and how much one can spend on their hobby is a subjective factor.
  17. aehimself

    Securing your data over time

    I'm not. I'm not even using mag tapes, they (and the drives + libraries) are too expensive for a hobby. I'm just accepting the opinion of smarter people than me, who still describe the ONLY valid (local) backup medium as tapes. I'm not that good in physics, but the industry standard have its tests. I'm only strictly against calling flash-based devices as backup. They are not that reliable. End of story. Never said that. Cloud backup is a valid option. I never did - and will never - discourage people of Cloud-based backup. I just have trust issues, but that's my own business. I'll bet almost anything that at least half of the people here (and majority of IT geeks around the globe) do this. We are happy to spend the price of a house on a backup server for our company but private life is different - if it is still a hobby. People usually pay because they need GUARANTEE. What happens if your house and your friends house catches fire at the same time?
  18. aehimself

    does a class property or a variable exist

    Yes, it does (but I don't know since when): Type TMyClass = Class public Class Var Counter: Integer; Constructor Create; ReIntroduce; End; Constructor TMyClass.Create; Begin Inc(Self.Counter); End; Procedure TForm1.Button1Click(Sender: TObject); Var v1, v2: TMyClass; Begin v1 := TMyClass.Create; v2 := TMyClass.Create; ShowMessage(IntToStr(TMyClass.Counter)); // Will show 2 End;
  19. aehimself

    SmtpReady

    That's actually quite impressive, I didn't know ICS has these functions built-in! Simple question - does it (or offers a way to) handle backlogs? What happens if an E-mail could not be sent because no connection could be made and the application shuts down?
  20. aehimself

    Securing your data over time

    ...which would immediately make it a non-ideal backup solution.
  21. aehimself

    Securing your data over time

    Well said. That would be my last concern too, especially since I have offsite replication of my upstream git repositories 🙂 <OFFTOPIC> If there are no swarm of mosquitos, it's quite pleasant to have your morning coffee / lunch / dinner outside. On the downside - a house will ALWAYS keep you busy. There is no such thing as "I'm bored" it's only "I'm lazy to do this and this" 😄 <EVENMOREOFFTOPIC> I had a landlord once. She was a living creature from hell. Even though I had good relations with the neighbors and paid on time, after a couple of months I was already afraid she is going to poison my dog so I decided to cancel our contract and move out to nowhere. That was the last nail in the coffin - I do not trust people ever since and I do everything in my power not to depend on anyone. </EVENMOREOFFTOPIC> </OFFTOPIC>
  22. aehimself

    Securing your data over time

    My wife already looks suspicious when I tell her we take the car to the mechanic and it's going to be expensive. I don't even want to imagine convincing her why I need a fireproof safe, which costs triple the amount than our car. At home you'll quickly get bored of rotating backup mediums and locking them away. You'll want your backup equipment INSIDE the safe so it can do everything automated. As safes SHOULD act as a perfect Faraday-cage, unless they include a fireproof RJ45 socket wired from the outside in... I'm not saying anything more. I'll trademark this stuff 😄
  23. aehimself

    NetCom7 clients chat implementation

    It was outside of the IT area, a real-world thing. Unfortunately I can not remember (happened a long-long time ago) but for example: - I have a personal problem with John Doe, and he writes an application - Since I don't like him, I start to talk sh*t and discourage people from using his product - Everyone is still using it. Then, it turns out it has a bridge to some inconvenience I faced for years - I start to use it because of that minor thing and it turns out the application is pretty good - Now, try to explain to everyone you discouraged why exactly you are now a user too - ??? - Profit Fortunately, the only thing I achieved is my own humiliation, no legal stuff. It was still a remarkable experience.
  24. aehimself

    Securing your data over time

    Proper backup solutions require the backup area (including servers and libraries) to be physically separated to different buildings. Thus, production center burns - you still have backups and vice versa. I also run a machine with extremely low power consumption kilometers away from my house. It's only job is to replicate the data from my prod server, when network is up.
  25. By any chance you are running it in a virtual machine?
×