Delphi Procedures and Function Library > Information > Rules
For users:
There are no rules for you. if you want help this site to be successful, please place one of these banners somewhere on your pages.
The code is: <A HREF="http://www.torry.ru/dpfl/" target="_top"><IMG SRC="banner_1.gif" WIDTH=468 HEIGHT=60 BORDER=0 ALT="DP&FL"></A>
For uploaders:
Please send your stuff on the following e-mail address.
Please understand your code will be public domain, will be used and modified without any restrictions.
You wont get even credits likely. Please read before uploading:
DO NOT SEND:
Components
Applications
Code fragments
Delphi resources
Delphi documents
All the above should be uploaded on Torry's Delphi pages using its "upload" page.
DO SEND:
Delphi procedures
Delphi functions
Complete units
MESSAGE'S FORMAT:
Your letter should look like this one:
Subject: DP&FL
{
Author: FirstName LastName (or public domain)
E-mail: If you have one and WANT to give one! URL can be given
also. Leave it blank if you feel like this.
Target: D2/D3
Exact group: Graphic
Keywords: System, Colors, Maximum
Description: Obtaining number of available system colors.
}
function GetSysColorsNumber(Canvas: TCanvas): LongInt;
begin
Result := (LongInt(1) shl GetDeviceCaps(Canvas.Handle, BitsPixel))
*LongInt(GetDeviceCaps(Canvas.Handle, Planes));
end;
Function or procedure you sent should work! I.e they could be pasted to application
without any modifications and should work there. :-)
Generally it should be no more than 100 strings of code in case it is separate function or it can be as big as you like in case it is a unit or library.
