Description | Uses | Classes, Interfaces, Objects and Records | Functions and Procedures | Types | Constants | Variables |
ModelMuseUtilities
contains a variety of miscellaneous routines involving OpenGL, math, and strings.
procedure ExtractColorComponents(const AColor: TColor; out Red, Green, Blue: TGLubyte); |
function ExtractFileRoot(const FileName: string): string; |
function FracAndSchemeToColor(ColorSchemeIndex: integer; Fraction, ColorAdjustmentFactor: real; const Cycles: integer): TColor; |
procedure Normal(const v1, v2, v3: T3DRealPoint; out result: T3DRealPoint); |
procedure SubtractVectors(const v1, v2: T3DRealPoint; out result: T3DRealPoint); |
function FortranFloatToStr(Value: Extended): string; |
function FortranStrToFloat(AString: string): Extended; |
function TitleCase(AString: string): string; |
function AnsiTitleCase(AString: AnsiString): AnsiString; |
function IntToStrFormatted(Value: integer): string; |
procedure DSiTrimWorkingSet; |
function QuoteFileName(AName: string): string; |
function FixShapeFileFieldName(FieldName: AnsiString): AnsiString; |
procedure RunAProgram(const CommandLine: string); |
function FileLength(fileName : string) : Int64; |
function IsWOW64: Boolean; |
procedure CantOpenFileMessage(AFileName: string); |
StrSorryItLooksLike = 'Sorry. It looks like some other program has locked ' +
'%s. You will need to close the other program.'; |
function ExtractFileRoot(const FileName: string): string; |
|
function FracAndSchemeToColor(ColorSchemeIndex: integer; Fraction, ColorAdjustmentFactor: real; const Cycles: integer): TColor; |
Parameters
|
procedure Normal(const v1, v2, v3: T3DRealPoint; out result: T3DRealPoint); |
|
procedure SubtractVectors(const v1, v2: T3DRealPoint; out result: T3DRealPoint); |
|
function FortranFloatToStr(Value: Extended): string; |
function FortranStrToFloat(AString: string): Extended; |
function TitleCase(AString: string): string; |
function AnsiTitleCase(AString: AnsiString): AnsiString; |
function IntToStrFormatted(Value: integer): string; |
|
procedure DSiTrimWorkingSet; |
function QuoteFileName(AName: string): string; |
function FixShapeFileFieldName(FieldName: AnsiString): AnsiString; |
procedure RunAProgram(const CommandLine: string); |
function FileLength(fileName : string) : Int64; |
function IsWOW64: Boolean; |
procedure CantOpenFileMessage(AFileName: string); |
StrSorryItLooksLike = 'Sorry. It looks like some other program has locked ' +
'%s. You will need to close the other program.'; |