home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 October
/
Chip_1997-10_cd.bin
/
tema
/
sw602
/
wintext
/
disk1
/
data.1
/
_DEFAULT.TXT
next >
Wrap
Text File
|
1994-10-02
|
591b
|
30 lines
program Is_Default_Style;
// Makro zjisti zda je text naformatovan podle definice
// stylu odstavce.
var
i, startsel, endsel : integer;
is : boolean;
begin
// CaretHome;
// CaretEnd(TRUE);
startsel := GetSelStartPos;
endsel := GetSelEndPos;
// CaretHome;
i := startsel;
is := TRUE;
UnselectBlock;
while (i <= endsel) and is do
begin
is := IsTextDefault;
i := i + 1;
CharRight(1);
end;
CharLeft(1);
if not is then
Info_Box("Vysledek", "Zde je NonDefault text")
else
Info_Box("Vysledek", "Dokument je OK");
end.