April 12th, 2001
Delphi Page
Collection of interesting Delphi Stuff
My Delphi Configuration
|
My Own Components
|
|
TTrueTypeInfo
|
?? KB
|
This component lets you retrieve all the information from a truetype font file. (not ready yet...)
|
FW |
IDE ADDONS
|
|
GExperts 1.0
|
1.14 MB
|
Set of tools and experts to increase productivity
in Delphi and C++ Builder. This is a real must !
|
FW |
|
Delforex 2.4.1
|
184 KB
|
Excellent SourceCode Formatter by Egbert Van Nes
|
FW |
COMPONENTS
|
|
RxLib 2.75
|
1.2 MB
|
Super collection of top quality components.
I use them all the time.
|
FW |
|
FolderDialog
|
58 KB
|
'Browse for folder' wrapped into a customizable
Delphi component
|
FW |
|
ODAC
|
58 KB
|
Set of components for Native Oracle Access
|
FW |
|
DFSStatusBar
|
58 KB
|
interesting Statusbar that can own other components.
|
FW |
|
Interesting Functions and Procedures |
|
|
function HexToColor(sColor: string): TColor;
begin
Result :=
RGB(
StrToInt('$' + Copy(sColor, 1, 2)),
StrToInt('$' + Copy(sColor, 3, 2)),
StrToInt('$' + Copy(sColor, 5, 2))
);
end;
|
function ColorToHex(Color: integer): string;
var
r, g, b: byte;
begin
r := GetRValue(Color);
g := GetGValue(Color);
b := GetBValue(Color);
Result := IntToHex(r, 2) + IntToHex(g, 2) + IntToHex(b, 2);
end;
|
function InvertColor (Color: TColor): TColor;
begin
Color := ColorToRGB (Color);
Result:= RGB ($FF - GetRValue (Color),
$FF - GetGValue (Color),
$FF - GetBValue (Color));
end;
|
|
|
|
|
|