-
Content Count
1090 -
Joined
-
Last visited
-
Days Won
23
Everything posted by aehimself
-
TWClientSocket OnConnect & OnDisconnect handlers?
aehimself replied to aehimself's topic in ICS - Internet Component Suite
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: -
Because it's the mainstream. I bet my shoes on that you can track it back to Apple.
-
Manually handling it in OnMouseMove works perfectly.
-
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 😄
-
10.4.1 Released today
aehimself replied to Darian Miller's topic in Tips / Blogs / Tutorials / Videos
I'll only post a picture. -
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;
-
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?
-
How do get all strings from a version resource
aehimself replied to dummzeuch's topic in Windows API
Nice job. I think soon I'll need something like this in one of my applications - at least I'll know where to look 🙂 -
Delphi 6 all of a sudden wants to be activated
aehimself replied to dummzeuch's topic in Delphi IDE and APIs
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 🙂 -
looking for UI design ideas for tracking a process
aehimself replied to David Schwartz's topic in VCL
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. -
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.
-
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.
-
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.
-
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 😞
-
looking for UI design ideas for tracking a process
aehimself replied to David Schwartz's topic in VCL
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: -
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.
-
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?
-
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;
-
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?
-
...which would immediately make it a non-ideal backup solution.
-
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>
-
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 😄
-
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.
- 17 replies
-
- chat.
- client .server
-
(and 1 more)
Tagged with:
-
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.
-
Delphi 7 is a lot slower on Windows 10 (compared to Win7)
aehimself replied to Yaron's topic in Delphi IDE and APIs
By any chance you are running it in a virtual machine?