maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
3841: function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
3842: function AnsiStrIComp(S1, S2: PChar): Integer;
3843: {$ENDIF}
3844: function Var2Type(V: Variant; const VarType: Integer): Variant;
3845: function VarToInt(V: Variant): Integer;
3846: function VarToFloat(V: Variant): Double;
3847: { following functions are not documented because they are don't work properly , so don't use them }
3848: function ReplaceSokr1(S: string; const Word, Frase: string): string;
3849: { ReplaceSokr1 is full equal to ReplaceString function - only for compatibility - don't use }
3850: { GetSubStr is full equal to SubStr function - only for compatibility - don't use }
3851: function GetSubStr(const S: string; const Index: Integer; const Separator: Char): string;
3852: function GetParameter: string;
3853: function GetLongFileName(FileName: string): string;
3854: {* from FileCtrl}
3855: function DirectoryExists(const Name: string): Boolean;
3856: procedure ForceDirectories(Dir: string);
3857: {# from FileCtrl}
3858: function FileNewExt(const FileName, NewExt: TFileName): TFileName;
3859: function GetComputerID: string;
3860: function GetComputerName: string;
3861: {**** string routines }
3862: { ReplaceAllSokr searches for all substrings, Words,in a string, S, and replaces them with Frases with the
same Index.Also see RAUtilsW.ReplaceSokr1 function }
3863: function ReplaceAllSokr(S: string; Words, Frases: TStrings): string;
3864: { ReplaceSokr searches the Word in a string, S, on PosBeg position,
3865: in the list, Words, and if founds, replaces this Word with string from another list, Frases, with the
same Index, and then update NewSelStart variable }
3866: function ReplaceSokr(S:string;PosBeg,Len:Integer;Words,Frases:TStrings;var NewSelStart:Integer): string;
3867: { CountOfLines calculates the lines count in a string,each line separated from another with CrLf sequence }
3868: function CountOfLines(const S: string): Integer;
3869: { DeleteEmptyLines deletes all empty lines from strings, Ss. Lines contained only spaces also deletes. }
3870: procedure DeleteEmptyLines(Ss: TStrings);
3871: { SQLAddWhere addes or modifies existing where-statement, where, to the strings, SQL.
3872: Note: If strings SQL allready contains where-statement, it must be started on begining of any line }
3873: procedure SQLAddWhere(SQL: TStrings; const Where: string);
3874: {**** files routines - }
3875: { ResSaveToFile save resource named as Name with Typ type into file FileName.
3876: Resource can be compressed using MS Compress program}
3877: function ResSaveToFile(const Typ,Name: string; const Compressed:Boolean; const FileName: string): Boolean;
3878: function ResSaveToFileEx(Inst:HINST;Typ,Name:PChar;const Compressed:Bool;const FileName:string): Bool
3879: function ResSaveToString(Instance: HINST; const Typ, Name: string; var S: string): Boolean;
3880: { Execute executes other program and waiting for it terminating, then return its Exit Code }
3881: function ExecuteJ(const CommandLine, WorkingDirectory: string): Integer;
3882: { IniReadSection read section, Section, from ini-file,
3883: IniFileName, into strings, Ss.This function reads ALL strings from specified section.
3884: Note: TIninFile.ReadSection function reads only strings with '=' symbol.}
3885: function IniReadSection(const IniFileName: TFileName; const Section: string; Ss: TStrings): Boolean;
3886: { LoadTextFile load text file, FileName, into string }
3887: function LoadTextFile(const FileName: TFileName): string;
3888: procedure SaveTextFile(const FileName: TFileName; const Source: string);
3889: { ReadFolder reads files list from disk folder, Folder, that are equal Mask, into strings, FileList}
3890: function ReadFolder(const Folder, Mask: TFileName; FileList: TStrings): Integer;
3891: function ReadFolders(const Folder: TFileName; FolderList: TStrings): Integer;
3892: {$IFDEF COMPILER3_UP}
3893: { TargetFileName - if FileName is ShortCut returns filename ShortCut linked to }
3894: function TargetFileName(const FileName: TFileName): TFileName;
3895: { return filename ShortCut linked to }
3896: function ResolveLink(const hWnd: HWND; const LinkFile: TFileName; var FileName: TFileName): HRESULT;
3897: {$ENDIF COMPILER3_UP}
3898: {**** Graphic routines - }
3899: { LoadIcoToImage loads two icons from resource named NameRes,into two image lists ALarge and ASmall}
3900: procedure LoadIcoToImage(ALarge, ASmall: TImageList; const NameRes: string);
3901: { RATextOut same with TCanvas.TextOut procedure, but can clipping drawing with rectangle, RClip. }
3902: procedure RATextOut(Canvas: TCanvas; const R, RClip: TRect; const S: string);
3903: { RATextOutEx same with RATextOut function, but can calculate needed height for correct output }
3904: function RATextOutEx(Canvas:TCanvas; const R,RClip:TRect;const S: string;const CalcHeight:Boolean):Integer;
3905: { RATextCalcHeight calculate needed height to correct output, using RATextOut or RATextOutEx functions }
3906: function RATextCalcHeight(Canvas: TCanvas; const R: TRect; const S: string): Integer;
3907: { Cinema draws some visual effect }
3908: procedure Cinema(Canvas: TCanvas; rS {Source}, rD {Dest}: TRect);
3909: { Roughed fills rect with special 3D pattern }
3910: procedure Roughed(ACanvas: TCanvas; const ARect: TRect; const AVert: Boolean);
3911: { BitmapFromBitmap creates new small bitmap from part of source bitmap, SrcBitmap, with specified width
and height, AWidth, AHeight and placed on a specified Index, Index in the source bitmap }
3912: function BitmapFromBitmap(SrcBitmap: TBitmap; const AWidth, AHeight, Index: Integer): TBitmap;
3913: { TextWidth calculate text with for writing using standard desktop font }
3914: function TextWidth(AStr: string): Integer;
3915: { DefineCursor load cursor from resource, and return available cursor number, assigned to it }
3916: function DefineCursor(Identifer: PChar): TCursor;
3917: {**** other routines - }
3918: { FindFormByClass returns first form specified class, FormClass,owned by Application global variable }
3919: function FindFormByClass(FormClass: TFormClass): TForm;
3920: function FindFormByClassName(FormClassName: string): TForm;
3921: { FindByTag returns the control with specified class, ComponentClass, from WinContol.Controls property,
3922: having Tag property value, equaled to Tag parameter }
3923: function FindByTag(WinControl:TWinControl;ComponentClass:TComponentClass;const Tag:Integer):TComponent;
3924: { ControlAtPos2 equal to TWinControl.ControlAtPos function, but works better }
3925: function ControlAtPos2(Parent: TWinControl; X, Y: Integer): TControl;
3926: { RBTag searches WinControl.Controls for checked RadioButton and returns its Tag property value }
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 45