•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 331,778 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,534 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Pascal and Delphi advertiser:
•
•
•
•
•
•
•
•
Based on http://astronomy.swin.edu.au/~pbourke/geometry/insidepoly/
Converted to Delphi by Lord Soth (View Snippet)
--- Basic Datatypes ---
--- Form Management ---
--- Data Access ---
--- Component model --- (View Snippet)
You can use any of the commented constants to perform the explained function. You might need to adjust the process privilege on NT based OSes. (View Snippet)
ShowDriveSerialNo shows it with ShowMessage GetDriveSerialNo returns a string. You don't need both. (View Snippet)
Note that the angle is in 1/10 of degrees. Any attempt to manipulate font.size or font.color will reset the angle to zero degrees. (View Snippet)
Assumes the presence of Memo1 on Form1. (View Snippet)
Works on W2K and above (View Snippet)
In case there are mote than one NIC (Network Interface Card) the coe gives the MAC of the first adapter. You can change the 0 on the line qoted below to take the MAC of other NICs if present.
"Result := GetAdapterInfo(AdapterList.lana) " (View Snippet)
This code disables font smoothing for a TLabel component. Can easily be converted for other VCL controls.
Loren Soth (View Snippet)
It is a small two-in-one calculator that can work as a regular or RPN calculator, selected by a RPN checkbox. It has a four level stack similar to the HP 48 calculator made from four Tmemos. This code shows you how to make visual effects(RPN stack) from existing delphi components. I have also... (View Snippet)
