Delphi Procedures and Function Library > Information > Rules
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>
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:
All the above should be uploaded on Torry's Delphi pages using its "upload" page.
Your letter should look like this one:
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.
Exact group: Graphic
Keywords: System, Colors, Maximum
Description: Obtaining number of available system colors.
function GetSysColorsNumber(Canvas: TCanvas): LongInt;
Result := (LongInt(1) shl GetDeviceCaps(Canvas.Handle, BitsPixel))
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.