Chip 1998 March/Chip_1998-03_cd.bin/tema/MINICAD/MC7DEMO/MINICAD.1/MATLNOTE.MPC

Text File | 1997-04-30 | 4KB | 225 lines

Procedure Material;
{
⌐1996, Diehl Graphsoft, Inc.
Developed by Tom Urie

This procedure places a material and drawing scale note anywhere on a drawing.
}
LABEL 20,30,90,99;

CONST
    f1C=1.25;  {Initial length of underline}
    f2C=0.12;  {Used to calculate length of underline}
    f3C=0.25;  {Used to position underline below scale note}
    f4C=0.0625;  {Used to position scale note below centerline}
    TSize1=12;  {Reference text point size}
    TSize2F=0.8;  {Text point size % of scale note}

VAR
    L,x,y,x1,x2,f1,f2,f3,f4,LScale,TxtC : REAL;
    TxtSize1, TxtSize2 : INTEGER;
    Matl, Scale : STRING;
    Abort : BOOLEAN;
    LayerH,TextH : HANDLE;
    UPI,SF : REAL;
    Fmt : INTEGER;
    UM,UM2 : STRING;
    UName,DA : LONGINT;

Procedure MaterialDialog;
VAR
    Width,x1,y1,x2,y2,px1,px2,px3,px4,py1,py2,py3,py4 : INTEGER;

Procedure AlignScr(Width:INTEGER; VAR x1,x2:INTEGER);
VAR
    scrx1,scry1,scrx2,scry2:INTEGER;
BEGIN
    GetScreen(scrx1,scry1,scrx2,scry2);
    x1:=((scrx1+scrx2) div 2)-(Width div 2);
    x2:=x1+Width;
END;

Procedure LocateButtons(DialogType,scnh,scnw : INTEGER);
{
This procedure locates the 'OK' and 'Cancel' buttons.
}
VAR
    v1,v2,v3,v4 : INTEGER;
    Mac : BOOLEAN;

Procedure Swap(VAR  m1,m2,m3,m4 : INTEGER);
VAR
    Temp : INTEGER;
BEGIN
    Temp:=m1;
    m1:=m3;
    m3:=Temp;
    Temp:=m2;
    m2:=m4;
    m4:=Temp;
END;        {of Swap}

BEGIN
    Mac:=FALSE;
    GetVersion(v1,v2,v3,v4);
    IF v4 = 1 THEN Mac:=TRUE;

    IF DialogType = 1 THEN
    BEGIN
        px1:=(scnw DIV 2) - 80;
        px2:=(scnw DIV 2) - 10;
        px3:=(scnw DIV 2) + 10;
        px4:=(scnw DIV 2) + 80;
        IF Mac THEN SWAP(px1,px2,px3,px4);

        py1:=scnh-40;
        py2:=scnh-20;
        py3:=py1;
        py4:=py2;
    END ELSE IF DialogType = 2 THEN
    BEGIN
        px1:=scnw - 180;
        px2:=scnw - 110;
        px3:=scnw - 90;
        px4:=scnw - 20;
        IF Mac THEN SWAP(px1,px2,px3,px4);

        py1:=scnh-40;
        py2:=scnh-20;
        py3:=py1;
        py4:=py2;
    END ELSE
    BEGIN
        px1:=scnw - 90;
        px2:=scnw - 20;
        px3:=px1;
        px4:=px2;

        py1:=scnh -70;
        py2:=scnh - 50;
        py3:=scnh - 40;
        py4:=scnh - 20;
        IF Mac THEN SWAP(py1,py2,py3,py4);
    END;
END;        {of Locate Buttons}

Procedure MakeDialog1;

CONST
    y1=100;
    scnw=340;
    scnh = 145;
    DialogType = 1;

VAR
    h : INTEGER;

BEGIN
    AlignScr(scnw,x1,x2);
    y2:=y1+scnh;
    LocateButtons(DialogType,scnh,scnw );

    BeginDialog(1,1,x1,y1,x2,y2);
        AddButton('OK',1,1,px1,py1,px2,py2);
        AddButton('Cancel',2,1,px3,py3,px4,py4);

        h:=-30;
        AddField('Material:',5,1,20,50+h,90,65+h);
        AddField('1040 CRS',6,2,100,50+h,310,65+h);
        AddField('Scale (optional):',7,1,20,80+h,140,95+h);
        AddField('1:1',8,2,145,80+h,245,95+h);
    EndDialog;
END;

BEGIN
    MakeDialog1;
END;

Procedure GetInfo;
VAR
    Done : Boolean;
    Item : Integer;

BEGIN
    Done:=FALSE;
    Abort:=FALSE;
    GetDialog(1);
    SetTitle('Material & Scale Notes');
    SelField(6);
    REPEAT
        DialogEvent(Item);
        IF Item=1 THEN
            Done:=True;
        IF Item=2 THEN
        BEGIN
            Done:=TRUE;
            Abort:=TRUE;
        END;
        Matl:=GetField(6);
        Scale:=GetField(8);
    UNTIL Done;
    ClrDialog;
END;
{
Main Program.
}
BEGIN
    MaterialDialog;
    SetCursor(ArrowC);
    GetInfo;
    IF Abort THEN GoTo 99;
    PushAttrs;
{
Get text size.
}
    DSelectAll;
    TextOrigin(0,0);
    BeginText;
        ' '
    EndText;
    TextH:=FSActLayer;
    TxtSize1:=GetSize(TextH);
    DelObject(TextH);
    TxtC:=TxtSize1/TSize1;
    TxtSize2:=TSize2F*TxtSize1;
{
Get units per inch and layer scale.
}
    GetUnits(UName,DA,Fmt,UPI,UM,UM2);
    LayerH:=ActLayer;
    LScale:=GetLScale(LayerH);
{
Adjust constants for units, scale, and text size.
}
    f1:=f1C*LScale*UPI*TxtC;
    f2:=f2C*LScale*UPI*TxtC;
    f3:=f3C*LScale*UPI*TxtC;
    f4:=f4C*LScale*UPI*TxtC;
    TextJust(2);
    L:=f1+f2*Len(Matl)*TSize1/12;
    Matl:=Concat('MATERIAL - ', Matl);
    GetPt(x,y);
    TextOrigin(x,y);
    BeginGroup;
    BeginText;
        Matl
    EndText;
    y:=y-f3*TSize1/12;
    Absolute;
    MoveTo(x-L/2, y);
    Relative;
    LineTo(L,0);
    IF Scale = '' THEN GOTO 90;
    Scale:=Concat('SCALE - ',Scale);
    y:=y-f4;
    Absolute;
    TextOrigin(x,y);
    TextSize(TxtSize2);
    BeginText;
        Scale
    EndText;
    90:EndGroup;
    PopAttrs;
99:END;

Run(Material);