maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
3229: // returns either BrightColor or DarkColor depending on the luminance of AColor<br />
3230: // This function gives the same result (AFAIK) as the function used in Windows to<br />
3231: // calculate the desktop icon text color based on the desktop background color<br />
3232: function SelectColorByLuminance(AColor, DarkColor, BrightColor: TColor): TColor;<br />
3233: type TJvHTMLCalcType = (htmlShow, htmlCalcWidth, htmlCalcHeight, htmlHyperLink);<br />
3234:<br />
3235: procedure HTMLDrawTextEx(Canvas: TCanvas; Rect: TRect;<br />
3236: const State: TOwnerDrawState; const Text: string; var Width: Integer;<br />
32<strong>37</strong>: CalcType: TJvHTMLCalcType; MouseX, MouseY: Integer; var MouseOnLink: Boolean;<br />
3238: var LinkName: string; Scale: Integer = 100); overload;<br />
3239: procedure HTMLDrawTextEx(Canvas: TCanvas; Rect: TRect;<br />
3240: const State: TOwnerDrawState; const Text: string; var Width, Height: Integer;<br />
3241: CalcType: TJvHTMLCalcType; MouseX, MouseY: Integer; var MouseOnLink: Boolean;<br />
3242: var LinkName: string; Scale: Integer = 100); overload;<br />
3243: function HTMLDrawText(Canvas: TCanvas; Rect: TRect;<br />
3244: const State: TOwnerDrawState; const Text: string; Scale: Integer = 100): string;<br />
3245: function HTMLDrawTextHL(Canvas: TCanvas; Rect: TRect;<br />
3246: const State: TOwnerDrawState; const Text: string; MouseX, MouseY: Integer;<br />
3247: Scale: Integer = 100): string;<br />
3248: function HTMLPlainText(const Text: string): string;<br />
3249: function HTMLTextExtent(Canvas: TCanvas; Rect: TRect;<br />
3250: const State: TOwnerDrawState; const Text: string; Scale: Integer = 100): TSize;<br />
3251: function HTMLTextWidth(Canvas: TCanvas; Rect: TRect;<br />
3252: const State: TOwnerDrawState; const Text: string; Scale: Integer = 100): Integer;<br />
3253: function HTMLTextHeight(Canvas: TCanvas; const Text: string; Scale: Integer = 100): Integer;<br />
3254: function HTMLPrepareText(const Text: string): string;<br />
3255:<br />
3256: ****************************************** uPSI_JvAppUtils;<br />
3257: Function GetDefaultSection( Component : TComponent) : string<br />
3258: Procedure GetDefaultIniData(Control:TControl; var IniFileName, Section : string; UseRegistry : Boolean)<br />
3259: Procedure GetDefaultIniData( Control : TControl; var IniFileName, Section : string)<br />
3260: Function GetDefaultIniName : string<br />
3261: //'OnGetDefaultIniName','TOnGetDefaultIniName);<br />
3262: Function GetDefaultIniRegKey : string<br />
3263: Function FindForm( FormClass : TFormClass) : TForm<br />
3264: Function FindShowForm( FormClass : TFormClass; const Caption : string) : TForm<br />
3265: Function ShowDialog( FormClass : TFormClass) : Boolean<br />
3266: //Function InstantiateForm( FormClass : TFormClass; var Reference) : TForm<br />
3267: Procedure SaveFormPlacement( Form : TForm; const IniFileName : string; UseRegistry : Boolean)<br />
3268: Procedure RestoreFormPlacement( Form : TForm; const IniFileName : string; UseRegistry : Boolean)<br />
3269: Procedure SaveMDIChildrenReg( MainForm : TForm; IniFile : TRegIniFile)<br />
3270: Procedure SaveFormPlacement( Form : TForm; const IniFileName : string)<br />
3271: Procedure RestoreFormPlacement( Form : TForm; const IniFileName : string)<br />
3272: Function GetUniqueFileNameInDir( const Path, FileNameMask : string) : string<br />
3273: Function StrToIniStr( const Str : string) : string<br />
3274: Function IniStrToStr( const Str : string) : string<br />
3275: Function IniReadString( IniFile : TObject; const Section, Ident, Default : string) : string<br />
3276: Procedure IniWriteString( IniFile : TObject; const Section, Ident, Value : string)<br />
3277: Function IniReadInteger( IniFile : TObject; const Section, Ident : string; Default : Longint) : Longint<br />
3278: Procedure IniWriteInteger( IniFile : TObject; const Section, Ident : string; Value : Longint)<br />
3279: Function IniReadBool( IniFile : TObject; const Section, Ident : string; Default : Boolean) : Boolean<br />
3280: Procedure IniWriteBool( IniFile : TObject; const Section, Ident : string; Value : Boolean)<br />
3281: Procedure IniReadSections( IniFile : TObject; Strings : TStrings)<br />
3282: Procedure IniEraseSection( IniFile : TObject; const Section : string)<br />
3283: Procedure IniDeleteKey( IniFile : TObject; const Section, Ident : string)<br />
3284: Procedure AppBroadcast( Msg, wParam : Longint; lParam : Longint)<br />
3285: Procedure AppBroadcast( Msg, wParam : Word; lParam : Longint)<br />
3286: Procedure AppTaskbarIcons( AppOnly : Boolean)<br />
3287: Procedure InternalSaveGridLayout( Grid : TCustomGrid; IniFile : TObject; const Section : string)<br />
3288: Procedure InternalRestoreGridLayout( Grid : TCustomGrid; IniFile : TObject; const Section : string)<br />
3289: Procedure InternalSaveMDIChildren( MainForm : TForm; IniFile : TObject)<br />
3290: Procedure InternalRestoreMDIChildren( MainForm : TForm; IniFile : TObject)<br />
3291: ******************************************* uPSI_JvDBUtils;<br />
3292: Function CreateLocate( DataSet : TDataSet) : TJvLocateObject<br />
3293: Function IsDataSetEmpty( DataSet : TDataSet) : Boolean<br />
3294: Procedure RefreshQuery( Query : TDataSet)<br />
3295: Function DataSetSortedSearch(DataSet:TDataSet;const Value,FieldName:string;CaseInsensitive:Bool):Boolean<br />
3296: Function DataSetSectionName( DataSet : TDataSet) : string<br />
3297: Procedure InternalSaveFields( DataSet : TDataSet; IniFile : TObject; const Section : string)<br />
3298: Procedure InternalRestoreFields(DataSet:TDataSet;IniFile:TObject;const Section:string;RestoreVisible:Bool)<br />
3299: Function DataSetLocateThrough(DataSet:TDataSet; const KeyFields: string; const KeyValues: Variant;<br />
Options: TLocateOptions) : Boolean<br />
3300: Procedure SaveFields( DataSet : TDataSet; IniFile : TIniFile)<br />
3301: Procedure RestoreFields( DataSet : TDataSet; IniFile : TIniFile; RestoreVisible : Boolean)<br />
3302: Procedure AssignRecord( Source, Dest : TDataSet; ByName : Boolean)<br />
3303: Function ConfirmDelete : Boolean<br />
3304: Procedure ConfirmDataSetCancel( DataSet : TDataSet)<br />
33<strong>05</strong>: Procedure CheckRequiredField( Field : TField)<br />
3306: Procedure CheckRequiredFields( const Fields : array of TField)<br />
3307: Function DateToSQL( Value : TDateTime) : string<br />
33<strong>08</strong>: Function FormatSQLDateRange( Date1, Date2 : TDateTime; const FieldName : string) : string<br />
3309: Function FormatSQLDateRangeEx( Date1, Date2 : TDateTime; const FieldName : string) : string<br />
3310: Function FormatSQLNumericRange(const FieldName:string;LowVal,HighVal,LowEmpty,<br />
HighEmpty:Double;Inclusive:Bool):string<br />
3311: Function StrMaskSQL( const Value : string) : string<br />
3312: Function FormatSQLCondition(const FieldName,Operator,Val:string;FieldType:TFieldType;Exact:Bool):string<br />
3313: Function FormatAnsiSQLCondition(const FieldName,Operator,Val:string;FieldType:TFieldType;Exact:Bool):string<br />
33<strong>14</strong>: Procedure _DBError( const Msg : string)<br />
3315: Const('TrueExpr','String '0=0<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 38