开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 2D图形编程 > 查看源码
MediaUtils.pas
资源名称：asphyre410.rar　[点击查看]
上传用户：ctlcnc
上传日期：2021-12-10
资源大小：4933k
文件大小：22k
源码类别：

2D图形编程

开发平台：

Delphi

MediaUtils.pas：源码内容
  1. unit MediaUtils;
  2. //---------------------------------------------------------------------------
  3. // MediaUtils.pas                                       Modified: 22-Jan-2007
  4. // Utility routines for handling media files                      Version 1.0
  5. //---------------------------------------------------------------------------
  6. // Important Notice:
  7. //
  8. // If you modify/use this code or one of its parts either in original or
  9. // modified form, you must comply with Mozilla Public License v1.1,
  10. // specifically section 3, "Distribution Obligations". Failure to do so will
  11. // result in the license breach, which will be resolved in the court.
  12. // Remember that violating author's rights is considered a serious crime in
  13. // many countries. Thank you!
  14. //
  15. // !! Please *read* Mozilla Public License 1.1 document located at:
  16. //  http://www.mozilla.org/MPL/
  17. //
  18. // If you require any clarifications about the license, feel free to contact
  19. // us or post your question on our forums at: http://www.afterwarp.net
  20. //---------------------------------------------------------------------------
  21. // The contents of this file are subject to the Mozilla Public License
  22. // Version 1.1 (the "License"); you may not use this file except in
  23. // compliance with the License. You may obtain a copy of the License at
  24. // http://www.mozilla.org/MPL/
  25. //
  26. // Software distributed under the License is distributed on an "AS IS"
  27. // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
  28. // License for the specific language governing rights and limitations
  29. // under the License.
  30. //
  31. // The Original Code is MediaUtils.pas.
  32. //
  33. // The Initial Developer of the Original Code is M. Sc. Yuriy Kotsarenko.
  34. // Portions created by M. Sc. Yuriy Kotsarenko are Copyright (C) 2007,
  35. // Afterwarp Interactive. All Rights Reserved.
  36. //---------------------------------------------------------------------------
  37. interface
  39. //---------------------------------------------------------------------------
  40. uses
  41.  Windows, Direct3D9, Classes, SysUtils, AsphyreDb, AsphyreXML, AsphyreTypes;
  43. //---------------------------------------------------------------------------
  44. {$WARN SYMBOL_PLATFORM OFF}
  46. //---------------------------------------------------------------------------
  47. type
  48.  TImageDescType = (idtImage, idtSurface, idtDraft);
  50. //---------------------------------------------------------------------------
  51.  TFontDescType = (fdtSystem, fdtBitmap);
  53. //---------------------------------------------------------------------------
  54. // IsArchiveLink()
  55. //
  56. // Validates if the specified link points to Archive.
  57. // Example:
  58. //   /data/media/map.zip | test.image
  59. //---------------------------------------------------------------------------
  60. function IsArchiveLink(const Text: string): Boolean;
  62. //---------------------------------------------------------------------------
  63. // ExtractArchiveName()
  64. //
  65. // Generates a valid archive file name with full path from the archive link.
  66. //---------------------------------------------------------------------------
  67. function ExtractArchiveName(const Text: string): string;
  69. //---------------------------------------------------------------------------
  70. // ExtractArchiveKey()
  71. //
  72. // Generates a valid key from the archive link.
  73. //---------------------------------------------------------------------------
  74. function ExtractArchiveKey(const Text: string): string;
  76. //---------------------------------------------------------------------------
  77. // LoadLinkXML()
  78. //
  79. // Attempts to load a link pointing to XML file
  80. //---------------------------------------------------------------------------
  81. function LoadLinkXML(const Link: string): TXMLNode;
  83. //---------------------------------------------------------------------------
  84. // GetWindowsDir()
  85. //
  86. // Retreives Windows System path.
  87. //---------------------------------------------------------------------------
  88. function GetWindowsPath(): TFileName;
  90. //---------------------------------------------------------------------------
  91. // GetTempDir()
  92. //
  93. // Retreives Temporary path.
  94. //---------------------------------------------------------------------------
  95. function GetTempPath(): TFileName;
  97. //---------------------------------------------------------------------------
  98. // MakeValidPath()
  99. //
  100. // Assures that the specified path ends with "", so a file name can be
  101. // added to it.
  102. //---------------------------------------------------------------------------
  103. function MakeValidPath(const Path: string): string;
  105. //---------------------------------------------------------------------------
  106. // MakeValidFileName()
  107. //
  108. // Assures that the specified file name does not begin with "", so a path
  109. // can be added to it.
  110. //---------------------------------------------------------------------------
  111. function MakeValidFileName(const FileName: string): string;
  113. //---------------------------------------------------------------------------
  114. // ParseInt()
  115. //
  116. // Parses a signed integer value read from XML. If no AutoValue is provided,
  117. // in case of empty or non-parseable text, -1 will be returned.
  118. //---------------------------------------------------------------------------
  119. function ParseInt(const Text: string): Integer; overload;
  120. function ParseInt(const Text: string; AutoValue: Integer): Integer; overload;
  122. //---------------------------------------------------------------------------
  123. // ParseCardinal()
  124. //
  125. // Parses an unsigned integer value read from XML. If no AutoValue is provided,
  126. // in case of empty or non-parseable text, High(Cardinal) will be returned.
  127. //---------------------------------------------------------------------------
  128. function ParseCardinal(const Text: string): Cardinal; overload;
  129. function ParseCardinal(const Text: string;
  130.  AutoValue: Cardinal): Cardinal; overload;
  132. //---------------------------------------------------------------------------
  133. // ParseFloat()
  134. //
  135. // Parses a floating-point  unsigned integer value read from XML. If no
  136. // AutoValue is provided, in case of empty or non-parseable text,
  137. // High(Cardinal) will be returned.
  138. //---------------------------------------------------------------------------
  139. function ParseFloat(const Text: string): Real; overload;
  140. function ParseFloat(const Text: string; AutoValue: Real): Real; overload;
  142. //---------------------------------------------------------------------------
  143. // ParseBoolean()
  144. //
  145. // Parses Boolean text representation (true, false, yes, no).
  146. //---------------------------------------------------------------------------
  147. function ParseBoolean(const Text: string;
  148.  AutoValue: Boolean): Boolean; overload;
  149. function ParseBoolean(const Text: string): Boolean; overload;
  151. //---------------------------------------------------------------------------
  152. // ParseColor()
  153. //
  154. // Parses an HTML or hexadecimal color.
  155. //  -> For HTML colors (#RRGGBB), alpha is always 255.
  156. //  -> If no AutoValue is specified, unparseable text gives opaque white.
  157. //---------------------------------------------------------------------------
  158. function ParseColor(const Text: string): Cardinal; overload;
  159. function ParseColor(const Text: string;
  160.  AutoColor: Cardinal): Cardinal; overload;
  162. //---------------------------------------------------------------------------
  163. // ParseFormat()
  164. //
  165. // Parses a text representation of TD3DFormat without "D3DFMT_" prefix.
  166. //  Example: "a8r8g8b8" will return D3DFMT_A8R8G8B8 value.
  167. //    -> The string must be in low case!
  168. //---------------------------------------------------------------------------
  169. function ParseFormat(const Text: string): TD3DFormat;
  171. //---------------------------------------------------------------------------
  172. // ParseImageType()
  173. //
  174. // Parses a text representation of TImageDescType.
  175. //---------------------------------------------------------------------------
  176. function ParseImageType(const Text: string): TImageDescType;
  178. //---------------------------------------------------------------------------
  179. // ParseFontType()
  180. //
  181. // Parses a text representation of TFontDescType.
  182. //---------------------------------------------------------------------------
  183. function ParseFontType(const Text: string): TFontDescType;
  185. //---------------------------------------------------------------------------
  186. // BooleanToString()
  187. //
  188. // Returns string representation of boolean.
  189. //---------------------------------------------------------------------------
  190. function BooleanToString(Value: Boolean): string;
  192. //---------------------------------------------------------------------------
  193. // ParseColorField()
  194. //
  195. // Parses XML color fields e.g.: <tag color="#00FF00" alpha="128" />
  196. //---------------------------------------------------------------------------
  197. function ParseColorField(Node: TXMLNode;
  198.  AutoColor: Cardinal = $FFFFFFFF): Cardinal;
  200. //---------------------------------------------------------------------------
  201. // ParseColor2Field()
  202. //
  203. // Parses XML color field representing TColor2. It accepts single color
  204. // and multicolor entries.
  205. //  Single color entry: <tag color="#00FF00" alpha="128" />
  206. //  Multi-color entry: <tag c1="#00FF00" a1="128" c2="#FFFFFF" a2="255" />
  207. //---------------------------------------------------------------------------
  208. function ParseColor2Field(Node: TXMLNode): TColor2; overload;
  210. //---------------------------------------------------------------------------
  211. // ParseHAlign()
  212. //
  213. // Parses text horizontal alignment attribute.
  214. //---------------------------------------------------------------------------
  215. function ParseHAlign(const Text: string;
  216.  AutoAlign: THorizontalAlign = haLeft): THorizontalAlign;
  218. //---------------------------------------------------------------------------
  219. // ParseVAlign()
  220. //
  221. // Parses text vertical alignment attribute.
  222. //---------------------------------------------------------------------------
  223. function ParseVAlign(const Text: string;
  224.  AutoAlign: TVerticalAlign = vaCenter): TVerticalAlign;
  226. //---------------------------------------------------------------------------
  227. implementation
  229. //---------------------------------------------------------------------------
  230. uses
  231.  AsphyreArchives, AsphyreEffects;
  233. //---------------------------------------------------------------------------
  234. function IsArchiveLink(const Text: string): Boolean;
  235. var
  236.  xPos: Integer;
  237. begin
  238.  xPos:= Pos('|', Text);
  239.  Result:= (Length(Text) >= 3)and(xPos > 1)and(xPos < Length(Text));
  240. end;
  242. //---------------------------------------------------------------------------
  243. function ExtractArchiveName(const Text: string): string;
  244. var
  245.  xPos, i: Integer;
  246. begin
  247.  Result:= Text;
  249.  // Step 1. Remove "key" part from the link.
  250.  xPos:= Pos('|', Text);
  251.  if (xPos <> 0) then
  252.   Delete(Result, xPos, Length(Result) + 1 - xPos);
  254.  // Step 2. Replace "/" with "".
  255.  for i:= 1 to Length(Result) do
  256.   if (Result[i] = '/') then Result[i]:= '';
  258.  // Step 3. Trim all leading and trailing spaces.
  259.  Result:= Trim(Result);
  261.  // Step 4. Remove leading "", if such exists.
  262.  if (Length(Result) > 0)and(Result[1] = '') then Delete(Result, 1, 1);
  264.  // Step 5. Include program path
  265.  Result:= ExtractFilePath(ParamStr(0)) + Result;
  266. end;
  268. //---------------------------------------------------------------------------
  269. function ExtractArchiveKey(const Text: string): string;
  270. var
  271.  xPos: Integer;
  272. begin
  273.  Result:= Text;
  275.  // Step 1. Remove "archive" part from the link.
  276.  xPos:= Pos('|', Text);
  277.  if (xPos <> 0) then
  278.   Delete(Result, 1, xPos);
  280.  // Step 2. Trim all leading and trailing spaces.
  281.  Result:= Trim(Result);
  282. end;
  284. //---------------------------------------------------------------------------
  285. function LoadLinkXML(const Link: string): TXMLNode;
  286. var
  287.  Stream: TMemoryStream;
  288. begin
  289.  if (IsArchiveLink(Link)) then
  290.   begin
  291.    Stream:= TMemoryStream.Create();
  293.    if (not ArchiveManager.ExtractToStream(Link, Stream)) then
  294.     begin
  295.      Result:= nil;
  296.      Stream.Free();
  297.      Exit;
  298.     end;
  300.    Stream.Seek(0, soFromBeginning);
  302.    try
  303.     Result:= LoadXMLFromStream(Stream);
  304.    finally
  305.     Stream.Free();
  306.    end;
  307.   end else Result:= LoadXMLFromFile(ExtractArchiveName(Link));
  308. end;
  310. //---------------------------------------------------------------------------
  311. function GetWindowsPath(): TFileName;
  312. var
  313.  WinDir: array [0..MAX_PATH - 1] of Char;
  314. begin
  315.  SetString(Result, WinDir, GetWindowsDirectory(WinDir, MAX_PATH));
  317.  if (Result = '') then Result:= ExtractFilePath(ParamStr(0));
  318. end;
  320. //---------------------------------------------------------------------------
  321. function GetTempPath(): TFileName;
  322. var
  323.  TempDir: array[0..MAX_PATH - 1] of Char;
  324. begin
  325.  try
  326.   SetString(Result, TempDir, Windows.GetTempPath(MAX_PATH, TempDir));
  328.   if (not DirectoryExists(Result)) then
  329.    if (not CreateDirectory(PChar(Result), nil)) then
  330.     begin
  331.      Result:= IncludeTrailingBackslash(GetWindowsPath()) + 'TEMP';
  332.      if (not DirectoryExists(Result)) then
  333.       if (not CreateDirectory(Pointer(Result), nil)) then
  334.        begin
  335.         Result:= ExtractFileDrive(Result) + 'TEMP';
  336.         if (not DirectoryExists(Result)) then
  337.          if (not CreateDirectory(Pointer(Result), nil)) then
  338.           begin
  339.            Result:= ExtractFileDrive(Result) + 'TMP';
  340.            if (not DirectoryExists(Result)) then
  341.             if (not CreateDirectory(Pointer(Result), nil)) then
  342.              Result:= ExtractFilePath(ParamStr(0));
  343.           end;
  344.        end;
  345.     end;
  346.   except
  347.    Result:= ExtractFilePath(ParamStr(0));
  348.  end;
  349. end;
  351. //---------------------------------------------------------------------------
  352. function MakeValidPath(const Path: string): string;
  353. begin
  354.  Result:= Trim(Path);
  356.  if (Length(Result) > 0)and(Result[Length(Result)] <> '') then
  357.   Result:= Result + '';
  358. end;
  360. //---------------------------------------------------------------------------
  361. function MakeValidFileName(const FileName: string): string;
  362. begin
  363.  Result:= Trim(FileName);
  364.  while (Length(Result) > 0)and(Result[1] = '') do Delete(Result, 1, 1);
  365. end;
  367. //---------------------------------------------------------------------------
  368. function ParseInt(const Text: string): Integer;
  369. begin
  370.  Result:= StrToIntDef(Text, -1);
  371. end;
  373. //---------------------------------------------------------------------------
  374. function ParseInt(const Text: string; AutoValue: Integer): Integer;
  375. begin
  376.  Result:= StrToIntDef(Text, AutoValue);
  377. end;
  379. //---------------------------------------------------------------------------
  380. function ParseCardinal(const Text: string): Cardinal;
  381. begin
  382.  Result:= Cardinal(StrToIntDef(Text, Integer(High(Cardinal))));
  383. end;
  385. //---------------------------------------------------------------------------
  386. function ParseCardinal(const Text: string; AutoValue: Cardinal): Cardinal;
  387. begin
  388.  Result:= Cardinal(StrToIntDef(Text, Integer(AutoValue)));
  389. end;
  391. //---------------------------------------------------------------------------
  392. function ParseBoolean(const Text: string; AutoValue: Boolean): Boolean;
  393. begin
  394.  Result:= AutoValue;
  396.  if (Text = 'no')or(Text = 'false') then Result:= False;
  397.  if (Text = 'yes')or(Text = 'true') then Result:= True;
  398. end;
  400. //---------------------------------------------------------------------------
  401. function ParseBoolean(const Text: string): Boolean;
  402. begin
  403.  Result:= ParseBoolean(Text, False);
  404. end;
  406. //---------------------------------------------------------------------------
  407. function ParseFloat(const Text: string): Real;
  408. begin
  409.  Result:= ParseFloat(Text, 0.0);
  410. end;
  412. //---------------------------------------------------------------------------
  413. function ParseFloat(const Text: string; AutoValue: Real): Real;
  414. var
  415.  PrevDecimalSpeparator: Char;
  416. begin
  417.  PrevDecimalSpeparator:= DecimalSeparator;
  418.  DecimalSeparator     := '.';
  419.  Result:= StrToFloatDef(Text, AutoValue);
  420.  DecimalSeparator     := PrevDecimalSpeparator;
  421. end;
  423. //---------------------------------------------------------------------------
  424. function ParseColor(const Text: string; AutoColor: Cardinal): Cardinal;
  425. begin
  426.  if (Text = 'source')or(Text = 'auto')or(Text = 'none') then
  427.   begin
  428.    Result:= AutoColor;
  429.    Exit;
  430.   end;
  432.  Result:= $FFFFFFFF;
  433.  if (Length(Text) < 2)or((Text[1] <> '#')and(Text[1] <> '$')) then Exit;
  435.  if (Text[1] = '#') then
  436.   begin
  437.    Result:= Cardinal(StrToIntDef('$' + Copy(Text, 2, Length(Text) - 1),
  438.     Integer(AutoColor))) or $FF000000;
  439.   end else Result:= Cardinal(StrToIntDef(Text, Integer(AutoColor)));
  440. end;
  442. //---------------------------------------------------------------------------
  443. function ParseColor(const Text: string): Cardinal;
  444. begin
  445.  Result:= ParseColor(Text, $FFFFFFFF);
  446. end;
  448. //---------------------------------------------------------------------------
  449. function ParseFormat(const Text: string): TD3DFormat;
  450. begin
  451.  Result:= D3DFMT_UNKNOWN;
  453.  if (Text = 'a2r10g10b10') then Result:= D3DFMT_A2R10G10B10;
  455.  if (Text = 'r8g8b8') then Result:= D3DFMT_R8G8B8;
  456.  if (Text = 'a8r8g8b8') then Result:= D3DFMT_A8R8G8B8;
  457.  if (Text = 'x8r8g8b8') then Result:= D3DFMT_X8R8G8B8;
  458.  if (Text = 'r5g6b5') then Result:= D3DFMT_R5G6B5;
  459.  if (Text = 'x1r5g5b5') then Result:= D3DFMT_X1R5G5B5;
  460.  if (Text = 'a1r5g5b5') then Result:= D3DFMT_A1R5G5B5;
  462.  if (Text = 'a4r4g4b4') then Result:= D3DFMT_A4R4G4B4;
  464.  if (Text = 'a4r4g4b4') then Result:= D3DFMT_A4R4G4B4;
  465.  if (Text = 'r3g3b2') then Result:= D3DFMT_R3G3B2;
  466.  if (Text = 'a8') then Result:= D3DFMT_A8;
  467.  if (Text = 'a8r3g3b2') then Result:= D3DFMT_A8R3G3B2;
  468.  if (Text = 'x4r4g4b4') then Result:= D3DFMT_X4R4G4B4;
  469.  if (Text = 'a2b10g10r10') then Result:= D3DFMT_A2B10G10R10;
  471.  if (Text = 'a8b8g8r8') then Result:= D3DFMT_A8B8G8R8;
  472.  if (Text = 'x8b8g8r8') then Result:= D3DFMT_X8B8G8R8;
  473.  if (Text = 'g16r16') then Result:= D3DFMT_G16R16;
  474.  if (Text = 'a4r4g4b4') then Result:= D3DFMT_A4R4G4B4;
  475.  if (Text = 'a2r10g10b10') then Result:= D3DFMT_A2R10G10B10;
  476.  if (Text = 'a16b16g16r16') then Result:= D3DFMT_A16B16G16R16;
  478.  if (Text = 'a8p8') then Result:= D3DFMT_A8P8;
  479.  if (Text = 'p8') then Result:= D3DFMT_P8;
  480.  if (Text = 'l8') then Result:= D3DFMT_L8;
  481.  if (Text = 'a8l8') then Result:= D3DFMT_A8L8;
  482.  if (Text = 'a4l4') then Result:= D3DFMT_A4L4;
  484.  if (Text = 'v8u8') then Result:= D3DFMT_V8U8;
  485.  if (Text = 'l6v5u5') then Result:= D3DFMT_L6V5U5;
  486.  if (Text = 'x8l8v8u8') then Result:= D3DFMT_X8L8V8U8;
  487.  if (Text = 'q8w8v8u8') then Result:= D3DFMT_Q8W8V8U8;
  488.  if (Text = 'v16u16') then Result:= D3DFMT_V16U16;
  489.  if (Text = 'a2w10v10u10') then Result:= D3DFMT_A2W10V10U10;
  490.  if (Text = 'a8x8v8u8') then Result:= D3DFMT_A8X8V8U8;
  491.  if (Text = 'l8x8v8u8') then Result:= D3DFMT_L8X8V8U8;
  493.  if (Text = 'uyvy') then Result:= D3DFMT_UYVY;
  494.  if (Text = 'rgbg') then Result:= D3DFMT_RGBG;
  495.  if (Text = 'yuy2') then Result:= D3DFMT_YUY2;
  496.  if (Text = 'grgb') then Result:= D3DFMT_GRGB;
  497.  if (Text = 'dxt1') then Result:= D3DFMT_DXT1;
  498.  if (Text = 'dxt2') then Result:= D3DFMT_DXT2;
  499.  if (Text = 'dxt3') then Result:= D3DFMT_DXT3;
  500.  if (Text = 'dxt4') then Result:= D3DFMT_DXT4;
  501.  if (Text = 'dxt5') then Result:= D3DFMT_DXT5;
  503.  if (Text = 'q16w16v16u16') then Result:= D3DFMT_Q16W16V16U16;
  504.  if (Text = 'multi2_argb8') then Result:= D3DFMT_MULTI2_ARGB8;
  505.  if (Text = 'r16f') then Result:= D3DFMT_R16F;
  506.  if (Text = 'g16r16f') then Result:= D3DFMT_G16R16F;
  507.  if (Text = 'a16b16g16r16f') then Result:= D3DFMT_A16B16G16R16F;
  508.  if (Text = 'r32f') then Result:= D3DFMT_R32F;
  509.  if (Text = 'g32r32f') then Result:= D3DFMT_G32R32F;
  510.  if (Text = 'a32b32g32r32f') then Result:= D3DFMT_A32B32G32R32F;
  511.  if (Text = 'cxv8u8') then Result:= D3DFMT_CxV8U8;
  512. end;
  514. //---------------------------------------------------------------------------
  515. function ParseImageType(const Text: string): TImageDescType;
  516. begin
  517.  Result:= idtImage;
  518.  if (Text = 'surface') then Result:= idtSurface;
  519.  if (Text = 'draft') then Result:= idtDraft;
  520. end;
  522. //---------------------------------------------------------------------------
  523. function ParseFontType(const Text: string): TFontDescType;
  524. begin
  525.  Result:= fdtSystem;
  526.  if (Text = 'bitmap') then Result:= fdtBitmap;
  527. end;
  529. //---------------------------------------------------------------------------
  530. function BooleanToString(Value: Boolean): string;
  531. begin
  532.  if (Value) then Result:= 'yes' else Result:= 'no';
  533. end;
  535. //---------------------------------------------------------------------------
  536. function ParseColorField(Node: TXMLNode;
  537.  AutoColor: Cardinal = $FFFFFFFF): Cardinal;
  538. begin
  539.  Result:= ParseColor(Node.FieldValue['color'], AutoColor);
  540.  Result:= (Result and $FFFFFF) or (ParseCardinal(Node.FieldValue['alpha'],
  541.   AutoColor shr 24) shl 24);
  542. end;
  544. //---------------------------------------------------------------------------
  545. function ParseColor2Field(Node: TXMLNode): TColor2; overload;
  546. begin
  547.  if (Node.FindFieldByName('color') <> -1) then
  548.   begin
  549.    Result:= cColor2(ParseColorField(Node, $FFFFFFFF));
  550.    Exit;
  551.   end;
  553.  Result[0]:= ParseColor(Node.FieldValue['c1']);
  554.  Result[0]:= (Result[0] and $FFFFFF) or
  555.   (ParseCardinal(Node.FieldValue['a1']) shl 24);
  556.  Result[1]:= ParseColor(Node.FieldValue['c2']);
  557.  Result[1]:= (Result[1] and $FFFFFF) or
  558.   (ParseCardinal(Node.FieldValue['a2']) shl 24);
  559. end;
  561. //---------------------------------------------------------------------------
  562. function ParseHAlign(const Text: string;
  563.  AutoAlign: THorizontalAlign = haLeft): THorizontalAlign;
  564. begin
  565.  Result:= AutoAlign;
  567.  if (Text = 'left') then Result:= haLeft;
  568.  if (Text = 'right') then Result:= haRight;
  569.  if (Text = 'center') then Result:= haCenter;
  570.  if (Text = 'justified') then Result:= haJustified;
  571. end;
  573. //---------------------------------------------------------------------------
  574. function ParseVAlign(const Text: string;
  575.  AutoAlign: TVerticalAlign = vaCenter): TVerticalAlign;
  576. begin
  577.  Result:= AutoAlign;
  579.  if (Text = 'top') then Result:= vaTop;
  580.  if (Text = 'bottom') then Result:= vaBottom;
  581.  if (Text = 'center') then Result:= vaCenter;
  582. end;
  584. //---------------------------------------------------------------------------
  585. end.