>We have some problems with the textfields in a MiniCAD document.
>Under certain circumstances (we don't know when) the sizes of
>certain textfields are randomely changed (they suddenly become
>much to big or to small for the containing text). If you click
>in the textfield with the text tool the size is set back to the
>correct size (but clicking into 1500 textfields every other day
>is not exactly fun).
>Has anybody ever writen a macro that is simulating a click in
>all textfields or that somehow is reseting the size of corrupted
>textfields? Thanks for any reply.

Try these two commands - they might work. The first is faster, but sets all
the text in a text block to the same style as that of the first letter. The
second is exceptionally slow, but maintains multiple text styles in one
each block. A bug in the SetTextStyle() proc requires it to be used twice -
very strange. They work with all text blocks used in the drawing.

Developed by Julian Carr 1997


---------------------------------------------

{Developed by Julian Carr 1997}

Procedure ResetTextBlockFast;

Procedure FEO(h : HANDLE);
VAR
    Style,i : INTEGER;
BEGIN
    i:=Len(GetText(h));
    Style:=GetTextStyle(h,0);
    SetTextStyle(h,0,i,Style);
    SetTextStyle(h,0,i,Style);
END;

BEGIN
    ForEachObject(FEO,(T=Text));
    ForEachObject(FEO,InSymbol & (T=Text));
    ReDrawAll;
END;
RUN(ResetTextBlockFast);

---------------------------------------------

{Developed by Julian Carr 1997}

Procedure ResetTextSizeSlow;

Procedure FEO(h : HANDLE);
VAR
    h1 : HANDLE;
    Style,i,j : INTEGER;
BEGIN
    j:=Len(GetText(h));
    FOR i:=0 TO j-1 DO BEGIN
        Style:=GetTextStyle(h,i);
        SetTextStyle(h,i,1,Style);
        SetTextStyle(h,i,1,Style);
    END;
END;

BEGIN
    ForEachObject(FEO,(T=Text));
    ForEachObject(FEO,InSymbol & (T=Text));
    ReDrawAll;
END;
RUN(ResetTextSizeSlow);