← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/amunits/otherlibs/triton/units/tritonmacros.pas

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/amunits/otherlibs/triton/units/tritonmacros.pas
18
18
    This is all triton macros translated to procedures.
19
19
    Check the tritondemos on how to use the procedures.
20
20
 
21
 
    Some time the compiler tell you that it can't pick the 
 
21
    Some time the compiler tell you that it can't pick the
22
22
    right overlay function, well the only one so far is TextId.
23
23
    Why I don't know, the fix is just to use a pchar if there
24
24
    is a problem (TextId(pchar('your text'#0)).
25
25
 
26
26
    A few fixes, overlay should work with fpc 1.0.7
27
 
    Added overlay for SetTRTag, pchar, string ,boolean and 
 
27
    Added overlay for SetTRTag, pchar, string ,boolean and
28
28
    pointer.
29
29
    09 Jan 2003.
30
30
 
31
31
    Added the define use_amiga_smartlink.
32
32
    12 Jan 2003.
33
 
    
 
33
 
34
34
    Changed integr > smallint.
35
35
    11 Feb 2003.
36
 
    
 
36
 
37
37
    nils.sjoholm@mailbox.xwipnet.se
38
38
}
39
39
 
44
44
unit tritonmacros;
45
45
 
46
46
interface
47
 
 
 
47
 
48
48
uses triton, utility;
49
49
 
50
50
var
911
911
PROCEDURE BeginColumnI;
912
912
begin
913
913
    tritontags[tindex].ti_Tag := TRGR_Vert;
914
 
    tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER OR 
 
914
    tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER OR
915
915
TRGR_INDEP);
916
916
    Inc(tindex);
917
917
END;
919
919
PROCEDURE BeginLineI;
920
920
begin
921
921
    tritontags[tindex].ti_Tag := TRGR_Horiz;
922
 
    tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER OR 
 
922
    tritontags[tindex].ti_Data := (TRGR_PROPSHARE OR TRGR_ALIGN OR TRGR_CENTER OR
923
923
TRGR_INDEP);
924
924
    Inc(tindex);
925
925
END;
1686
1686
 
1687
1687
PROCEDURE NamedSeparatorN(ttext : PChar);
1688
1688
BEGIN
1689
 
    HorizGroupEC; Line(TROF_HORIZ); Space; TextT(ttext); Space; Line(TROF_HORIZ); 
 
1689
    HorizGroupEC; Line(TROF_HORIZ); Space; TextT(ttext); Space; Line(TROF_HORIZ);
1690
1690
EndGroup;
1691
1691
END;
1692
1692
 
2106
2106
    tritontags[tindex].ti_Data := longint(e);
2107
2107
    Inc(tindex);
2108
2108
    tritontags[tindex].ti_Tag := TRAT_Flags;
2109
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR 
 
2109
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR
2110
2110
TRLV_NOCURSORKEYS);
2111
2111
    Inc(tindex);
2112
2112
    tritontags[tindex].ti_Tag := TRAT_ID;
2164
2164
    tritontags[tindex].ti_Data := longint(e);
2165
2165
    Inc(tindex);
2166
2166
    tritontags[tindex].ti_Tag := TRAT_Flags;
2167
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR 
 
2167
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR
2168
2168
TRLV_NONUMPADKEYS);
2169
2169
    Inc(tindex);
2170
2170
    tritontags[tindex].ti_Tag := TRAT_ID;
2184
2184
    tritontags[tindex].ti_Data := longint(ent);
2185
2185
    Inc(tindex);
2186
2186
    tritontags[tindex].ti_Tag := TRAT_Flags;
2187
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_READONLY OR TRLV_NOCURSORKEYS OR 
 
2187
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_READONLY OR TRLV_NOCURSORKEYS OR
2188
2188
TRLV_NONUMPADKEYS);
2189
2189
    Inc(tindex);
2190
2190
    tritontags[tindex].ti_Tag := TRAT_ID;
2204
2204
    tritontags[tindex].ti_Data := longint(ent);
2205
2205
    Inc(tindex);
2206
2206
    tritontags[tindex].ti_Tag := TRAT_Flags;
2207
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SELECT OR TRLV_NOCURSORKEYS OR 
 
2207
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SELECT OR TRLV_NOCURSORKEYS OR
2208
2208
TRLV_NONUMPADKEYS);
2209
2209
    Inc(tindex);
2210
2210
    tritontags[tindex].ti_Tag := TRAT_ID;
2224
2224
    tritontags[tindex].ti_Data := longint(e);
2225
2225
    Inc(tindex);
2226
2226
    tritontags[tindex].ti_Tag := TRAT_Flags;
2227
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR 
 
2227
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_SHOWSELECTED OR
2228
2228
TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
2229
2229
    Inc(tindex);
2230
2230
    tritontags[tindex].ti_Tag := TRAT_ID;
2301
2301
    tritontags[tindex].ti_Data := longint(ent);
2302
2302
    Inc(tindex);
2303
2303
    tritontags[tindex].ti_Tag := TRAT_Flags;
2304
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR 
 
2304
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR
2305
2305
TRLV_NOCURSORKEYS);
2306
2306
    Inc(tindex);
2307
2307
    tritontags[tindex].ti_Tag := TRAT_ID;
2321
2321
    tritontags[tindex].ti_Data := longint(ent);
2322
2322
    Inc(tindex);
2323
2323
    tritontags[tindex].ti_Tag := TRAT_Flags;
2324
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR 
 
2324
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR
2325
2325
TRLV_NOCURSORKEYS);
2326
2326
    Inc(tindex);
2327
2327
    tritontags[tindex].ti_Tag := TRAT_ID;
2341
2341
    tritontags[tindex].ti_Data := longint(e);
2342
2342
    Inc(tindex);
2343
2343
    tritontags[tindex].ti_Tag := TRAT_Flags;
2344
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR 
 
2344
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR
2345
2345
TRLV_NOCURSORKEYS);
2346
2346
    Inc(tindex);
2347
2347
    tritontags[tindex].ti_Tag := TRAT_ID;
2361
2361
    tritontags[tindex].ti_Data := longint(ent);
2362
2362
    Inc(tindex);
2363
2363
    tritontags[tindex].ti_Tag := TRAT_Flags;
2364
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR 
 
2364
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR
2365
2365
TRLV_NONUMPADKEYS);
2366
2366
    Inc(tindex);
2367
2367
    tritontags[tindex].ti_Tag := TRAT_ID;
2381
2381
    tritontags[tindex].ti_Data := longint(ent);
2382
2382
    Inc(tindex);
2383
2383
    tritontags[tindex].ti_Tag := TRAT_Flags;
2384
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR 
 
2384
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR
2385
2385
TRLV_NONUMPADKEYS);
2386
2386
    Inc(tindex);
2387
2387
    tritontags[tindex].ti_Tag := TRAT_ID;
2401
2401
    tritontags[tindex].ti_Data := longint(e);
2402
2402
    Inc(tindex);
2403
2403
    tritontags[tindex].ti_Tag := TRAT_Flags;
2404
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR 
 
2404
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR
2405
2405
TRLV_NONUMPADKEYS);
2406
2406
    Inc(tindex);
2407
2407
    tritontags[tindex].ti_Tag := TRAT_ID;
2421
2421
    tritontags[tindex].ti_Data := longint(ent);
2422
2422
    Inc(tindex);
2423
2423
    tritontags[tindex].ti_Tag := TRAT_Flags;
2424
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR 
 
2424
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_READONLY OR
2425
2425
TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
2426
2426
    Inc(tindex);
2427
2427
    tritontags[tindex].ti_Tag := TRAT_ID;
2441
2441
    tritontags[tindex].ti_Data := longint(ent);
2442
2442
    Inc(tindex);
2443
2443
    tritontags[tindex].ti_Tag := TRAT_Flags;
2444
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR 
 
2444
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SELECT OR
2445
2445
TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
2446
2446
    Inc(tindex);
2447
2447
    tritontags[tindex].ti_Tag := TRAT_ID;
2461
2461
    tritontags[tindex].ti_Data := longint(e);
2462
2462
    Inc(tindex);
2463
2463
    tritontags[tindex].ti_Tag := TRAT_Flags;
2464
 
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR 
 
2464
    tritontags[tindex].ti_Data := (TRLV_NOGAP OR TRLV_FWFONT OR TRLV_SHOWSELECTED OR
2465
2465
TRLV_NOCURSORKEYS OR TRLV_NONUMPADKEYS);
2466
2466
    Inc(tindex);
2467
2467
    tritontags[tindex].ti_Tag := TRAT_ID;
2624
2624
PROCEDURE BeginRequester(t : PChar; p : longint);
2625
2625
BEGIN
2626
2626
    WindowTitle(t);WindowPosition(p);WindowBackfillReq;
2627
 
    WindowFlags(TRWF_NOZIPGADGET OR TRWF_NOSIZEGADGET OR TRWF_NOCLOSEGADGET OR 
 
2627
    WindowFlags(TRWF_NOZIPGADGET OR TRWF_NOSIZEGADGET OR TRWF_NOCLOSEGADGET OR
2628
2628
TRWF_NODELZIP OR TRWF_NOESCCLOSE);
2629
2629
    VertGroupA; Space; HorizGroupA; Space; GroupBox; ObjectBackfillB;
2630
2630
END;