home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk12 / data.12 / WINTEXT / MAKRA / SOURCES / _DEFAULT.TXT next >
Text File  |  1994-10-02  |  591b  |  30 lines
  1. program Is_Default_Style;
  2.  
  3. // Makro zjisti zda je text naformatovan podle definice
  4. // stylu odstavce.
  5.  
  6. var 
  7.   i, startsel, endsel : integer;
  8.   is : boolean;
  9.  
  10. begin
  11. //  CaretHome;
  12. //  CaretEnd(TRUE);
  13.   startsel := GetSelStartPos;
  14.   endsel := GetSelEndPos;
  15. //  CaretHome;
  16.   i := startsel;
  17.   is := TRUE;
  18.   UnselectBlock;
  19.   while (i <= endsel) and is do
  20.   begin
  21.     is := IsTextDefault;
  22.     i := i + 1;
  23.     CharRight(1);
  24.   end;
  25.   CharLeft(1);
  26.   if not is then
  27.     Info_Box("Vysledek", "Zde je NonDefault text")
  28.   else
  29.     Info_Box("Vysledek", "Dokument je OK");
  30. end.