« previous next »
Pages: [1]   Go Down

Author Topic: SUB for printing colored strings easy  (Read 4550 times)

0 Members and 1 Guest are viewing this topic.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
SUB for printing colored strings easy
« on: August 05, 2021, 08:38:21 am »
Hi. I think, this code say you all...

Code: QB64: [Select]
  1. 'Program show new utility for direct text coloring. Use in 32 bit mode.
  2.  
  3. SCREEN _NEWIMAGE(1024, 768, 32)
  5.  
  6. 'old QB64 use for colored printing to screen:
  7. COLOR _RGB32(0, 255, 0): PRINT "This ";: COLOR _RGB32(255, 0, 0): PRINT "is ";: COLOR _RGB32(0, 0, 255): PRINT "colored ";: COLOR _RGB32(255, 255, 0): PRINT "text."
  8. 'next possibility using $COLOR:32
  9. COLOR LightGreen: PRINT "This ";: COLOR Red: PRINT "is ";: COLOR Blue: PRINT "colored ";: COLOR Yellow: PRINT "text."
  10.  
  11. 'new possibility:
  12.  
  13. COLTEXT "*LightGreen*This *Red*Is *Blue*colored *Yellow*text."
  14.  
  15. 'OR
  16.  
  17. COLTEXT "*0,255,0*This *255,0,0*is *0,0,255*colored *255,255,0*text."
  18.  
  19. 'OR combinated (if is $Color:32 used):
  20.  
  21. COLTEXT "*LightGreen*This *255,0,0*is *0,0,255*colored *YELLOW*text."
  22.  
  23.  
  24. 'Also one - number color is supported. So for full white:
  25. COLTEXT "*255*This is writed in _RGB32 (255, 255, 255)"
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39. SUB COLTEXT (S$)
  40.     DC~& = _DEFAULTCOLOR
  41.     TextLenght = LEN(S$)
  42.     FOR all = 1 TO TextLenght
  43.         command = ASC(S$, all)
  44.  
  45.         IF command = ASC("*") THEN
  46.             IF LEN(Text$) THEN PRINT Text$;
  47.  
  48.             Text$ = ""
  49.             value$ = ""
  50.             cmd$ = ""
  51.             c~& = 0
  52.  
  53.             DO UNTIL cmd$ = "*"
  54.                 all = all + 1
  55.                 cmd$ = MID$(S$, all, 1)
  56.                 IF cmd$ <> "*" THEN value$ = value$ + cmd$
  57.                 IF all >= TextLenght THEN EXIT DO
  58.             LOOP
  59.  
  60.  
  61.             IF INSTR(value$, ",") = 0 THEN
  62.  
  63.  
  64.                 IF LEN(value$) AND VAL(value$) = 0 THEN '$COLOR32 SUPPORT
  65.                     SELECT CASE LCASE$(_TRIM$(value$))
  66.                         CASE "aliceblue": c~& = 4293982463
  67.                         CASE "almond": c~& = 4293910221
  68.                         CASE "antiquebrass": c~& = 4291663221
  69.                         CASE "antiquewhite": c~& = 4294634455
  70.                         CASE "apricot": c~& = 4294826421
  71.                         CASE "aqua": c~& = 4278255615
  72.                         CASE "aquamarine": c~& = 4286578644
  73.                         CASE "asparagus": c~& = 4287080811
  74.                         CASE "atomictangerine": c~& = 4294943860
  75.                         CASE "azure": c~& = 4293984255
  76.                         CASE "bananamania": c~& = 4294633397
  77.                         CASE "beaver": c~& = 4288643440
  78.                         CASE "beige": c~& = 4294309340
  79.                         CASE "bisque": c~& = 4294960324
  80.                         CASE "bittersweet": c~& = 4294802542
  81.                         CASE "black": c~& = 4278190080
  82.                         CASE "blanchedalmond": c~& = 4294962125
  83.                         CASE "blizzardblue": c~& = 4289521134
  84.                         CASE "blue": c~& = 4278190335
  85.                         CASE "bluebell": c~& = 4288848592
  86.                         CASE "bluegray": c~& = 4284914124
  87.                         CASE "bluegreen": c~& = 4279081146
  88.                         CASE "blueviolet": c~& = 4287245282
  89.                         CASE "blush": c~& = 4292763011
  90.                         CASE "brickred": c~& = 4291510612
  91.                         CASE "brown": c~& = 4289014314
  92.                         CASE "burlywood": c~& = 4292786311
  93.                         CASE "burntorange": c~& = 4294934345
  94.                         CASE "burntsienna": c~& = 4293557853
  95.                         CASE "cadetblue": c~& = 4284456608
  96.                         CASE "canary": c~& = 4294967193
  97.                         CASE "caribbeangreen": c~& = 4280079266
  98.                         CASE "carnationpink": c~& = 4294945484
  99.                         CASE "cerise": c~& = 4292691090
  100.                         CASE "cerulean": c~& = 4280134870
  101.                         CASE "chartreuse": c~& = 4286578432
  102.                         CASE "chestnut": c~& = 4290534744
  103.                         CASE "chocolate": c~& = 4291979550
  104.                         CASE "copper": c~& = 4292711541
  105.                         CASE "coral": c~& = 4294934352
  106.                         CASE "cornflower": c~& = 4288335595
  107.                         CASE "cornflowerblue": c~& = 4284782061
  108.                         CASE "cornsilk": c~& = 4294965468
  109.                         CASE "cottoncandy": c~& = 4294950105
  110.                         CASE "crayolaaquamarine": c~& = 4286110690
  111.                         CASE "crayolablue": c~& = 4280251902
  112.                         CASE "crayolablueviolet": c~& = 4285753021
  113.                         CASE "crayolabrown": c~& = 4290013005
  114.                         CASE "crayolacadetblue": c~& = 4289771462
  115.                         CASE "crayolaforestgreen": c~& = 4285378177
  116.                         CASE "crayolagold": c~& = 4293379735
  117.                         CASE "crayolagoldenrod": c~& = 4294760821
  118.                         CASE "crayolagray": c~& = 4287992204
  119.                         CASE "crayolagreen": c~& = 4280069240
  120.                         CASE "crayolagreenyellow": c~& = 4293978257
  121.                         CASE "crayolaindigo": c~& = 4284315339
  122.                         CASE "crayolalavender": c~& = 4294751445
  123.                         CASE "crayolamagenta": c~& = 4294337711
  124.                         CASE "crayolamaroon": c~& = 4291311706
  125.                         CASE "crayolamidnightblue": c~& = 4279912566
  126.                         CASE "crayolaorange": c~& = 4294931768
  127.                         CASE "crayolaorangered": c~& = 4294912811
  128.                         CASE "crayolaorchid": c~& = 4293306583
  129.                         CASE "crayolaplum": c~& = 4287513989
  130.                         CASE "crayolared": c~& = 4293795917
  131.                         CASE "crayolasalmon": c~& = 4294941610
  132.                         CASE "crayolaseagreen": c~& = 4288668351
  133.                         CASE "crayolasilver": c~& = 4291675586
  134.                         CASE "crayolaskyblue": c~& = 4286634731
  135.                         CASE "crayolaspringgreen": c~& = 4293716670
  136.                         CASE "crayolatann": c~& = 4294616940
  137.                         CASE "crayolathistle": c~& = 4293642207
  138.                         CASE "crayolaviolet": c~& = 4287786670
  139.                         CASE "crayolayellow": c~& = 4294764675
  140.                         CASE "crayolayellowgreen": c~& = 4291158916
  141.                         CASE "crimson": c~& = 4292613180
  142.                         CASE "cyan": c~& = 4278255615
  143.                         CASE "dandelion": c~& = 4294826861
  144.                         CASE "darkblue": c~& = 4278190219
  145.                         CASE "darkcyan": c~& = 4278225803
  146.                         CASE "darkgoldenrod": c~& = 4290283019
  147.                         CASE "darkgray": c~& = 4289309097
  148.                         CASE "darkgreen": c~& = 4278215680
  149.                         CASE "darkkhaki": c~& = 4290623339
  150.                         CASE "darkmagenta": c~& = 4287299723
  151.                         CASE "darkolivegreen": c~& = 4283788079
  152.                         CASE "darkorange": c~& = 4294937600
  153.                         CASE "darkorchid": c~& = 4288230092
  154.                         CASE "darkred": c~& = 4287299584
  155.                         CASE "darksalmon": c~& = 4293498490
  156.                         CASE "darkseagreen": c~& = 4287609999
  157.                         CASE "darkslateblue": c~& = 4282924427
  158.                         CASE "darkslategray": c~& = 4281290575
  159.                         CASE "darkturquoise": c~& = 4278243025
  160.                         CASE "darkviolet": c~& = 4287889619
  161.                         CASE "deeppink": c~& = 4294907027
  162.                         CASE "deepskyblue": c~& = 4278239231
  163.                         CASE "denim": c~& = 4281035972
  164.                         CASE "desertsand": c~& = 4293905848
  165.                         CASE "dimgray": c~& = 4285098345
  166.                         CASE "dodgerblue": c~& = 4280193279
  167.                         CASE "eggplant": c~& = 4285419872
  168.                         CASE "electriclime": c~& = 4291755805
  169.                         CASE "fern": c~& = 4285643896
  170.                         CASE "firebrick": c~& = 4289864226
  171.                         CASE "floralwhite": c~& = 4294966000
  172.                         CASE "forestgreen": c~& = 4280453922
  173.                         CASE "fuchsia": c~& = 4290995397
  174.                         CASE "fuzzywuzzy": c~& = 4291585638
  175.                         CASE "gainsboro": c~& = 4292664540
  176.                         CASE "ghostwhite": c~& = 4294506751
  177.                         CASE "gold": c~& = 4294956800
  178.                         CASE "goldenrod": c~& = 4292519200
  179.                         CASE "grannysmithapple": c~& = 4289258656
  180.                         CASE "gray": c~& = 4286611584
  181.                         CASE "green": c~& = 4278222848
  182.                         CASE "greenblue": c~& = 4279329972
  183.                         CASE "greenyellow": c~& = 4289593135
  184.                         CASE "honeydew": c~& = 4293984240
  185.                         CASE "hotmagenta": c~& = 4294909390
  186.                         CASE "hotpink": c~& = 4294928820
  187.                         CASE "inchworm": c~& = 4289915997
  188.                         CASE "indianred": c~& = 4291648604
  189.                         CASE "indigo": c~& = 4283105410
  190.                         CASE "ivory": c~& = 4294967280
  191.                         CASE "jazzberryjam": c~& = 4291442535
  192.                         CASE "junglegreen": c~& = 4282101903
  193.                         CASE "khaki": c~& = 4293977740
  194.                         CASE "laserlemon": c~& = 4294901282
  195.                         CASE "lavender": c~& = 4293322490
  196.                         CASE "lavenderblush": c~& = 4294963445
  197.                         CASE "lawngreen": c~& = 4286381056
  198.                         CASE "lemonchiffon": c~& = 4294965965
  199.                         CASE "lemonyellow": c~& = 4294964303
  200.                         CASE "lightblue": c~& = 4289583334
  201.                         CASE "lightcoral": c~& = 4293951616
  202.                         CASE "lightcyan": c~& = 4292935679
  203.                         CASE "lightgoldenrodyellow": c~& = 4294638290
  204.                         CASE "lightgray": c~& = 4292072403
  205.                         CASE "lightgreen": c~& = 4287688336
  206.                         CASE "lightpink": c~& = 4294948545
  207.                         CASE "lightsalmon": c~& = 4294942842
  208.                         CASE "lightseagreen": c~& = 4280332970
  209.                         CASE "lightskyblue": c~& = 4287090426
  210.                         CASE "lightslategray": c~& = 4286023833
  211.                         CASE "lightsteelblue": c~& = 4289774814
  212.                         CASE "lightyellow": c~& = 4294967264
  213.                         CASE "lime": c~& = 4278255360
  214.                         CASE "limegreen": c~& = 4281519410
  215.                         CASE "linen": c~& = 4294635750
  216.                         CASE "macaroniandcheese": c~& = 4294950280
  217.                         CASE "magenta": c~& = 4294902015
  218.                         CASE "magicmint": c~& = 4289392849
  219.                         CASE "mahogany": c~& = 4291643980
  220.                         CASE "maize": c~& = 4293775772
  221.                         CASE "manatee": c~& = 4288125610
  222.                         CASE "mangotango": c~& = 4294935107
  223.                         CASE "maroon": c~& = 4286578688
  224.                         CASE "mauvelous": c~& = 4293892266
  225.                         CASE "mediumaquamarine": c~& = 4284927402
  226.                         CASE "mediumblue": c~& = 4278190285
  227.                         CASE "mediumorchid": c~& = 4290401747
  228.                         CASE "mediumpurple": c~& = 4287852763
  229.                         CASE "mediumseagreen": c~& = 4282168177
  230.                         CASE "mediumslateblue": c~& = 4286277870
  231.                         CASE "mediumspringgreen": c~& = 4278254234
  232.                         CASE "mediumturquoise": c~& = 4282962380
  233.                         CASE "mediumvioletred": c~& = 4291237253
  234.                         CASE "melon": c~& = 4294818996
  235.                         CASE "midnightblue": c~& = 4279834992
  236.                         CASE "mintcream": c~& = 4294311930
  237.                         CASE "mistyrose": c~& = 4294960353
  238.                         CASE "moccasin": c~& = 4294960309
  239.                         CASE "mountainmeadow": c~& = 4281383567
  240.                         CASE "mulberry": c~& = 4291120012
  241.                         CASE "navajowhite": c~& = 4294958765
  242.                         CASE "navy": c~& = 4278190208
  243.                         CASE "navyblue": c~& = 4279858386
  244.                         CASE "neoncarrot": c~& = 4294943555
  245.                         CASE "oldlace": c~& = 4294833638
  246.                         CASE "olive": c~& = 4286611456
  247.                         CASE "olivedrab": c~& = 4285238819
  248.                         CASE "olivegreen": c~& = 4290426988
  249.                         CASE "orange": c~& = 4294944000
  250.                         CASE "orangered": c~& = 4294919424
  251.                         CASE "orangeyellow": c~& = 4294497640
  252.                         CASE "orchid": c~& = 4292505814
  253.                         CASE "outerspace": c~& = 4282468940
  254.                         CASE "outrageousorange": c~& = 4294929994
  255.                         CASE "pacificblue": c~& = 4280068553
  256.                         CASE "palegoldenrod": c~& = 4293847210
  257.                         CASE "palegreen": c~& = 4288215960
  258.                         CASE "paleturquoise": c~& = 4289720046
  259.                         CASE "palevioletred": c~& = 4292571283
  260.                         CASE "papayawhip": c~& = 4294963157
  261.                         CASE "peach": c~& = 4294954923
  262.                         CASE "peachpuff": c~& = 4294957753
  263.                         CASE " periwinkle": c~& = 4291154150
  264.                         CASE "peru": c~& = 4291659071
  265.                         CASE "piggypink": c~& = 4294827494
  266.                         CASE "pinegreen": c~& = 4279599224
  267.                         CASE "pink": c~& = 4294951115
  268.                         CASE "pinkflamingo": c~& = 4294735101
  269.                         CASE "pinksherbet": c~& = 4294414247
  270.                         CASE "plum": c~& = 4292714717
  271.                         CASE "powderblue": c~& = 4289781990
  272.                         CASE "purple": c~& = 4286578816
  273.                         CASE "purpleheart": c~& = 4285809352
  274.                         CASE "purplemountainsmajesty": c~& = 4288512442
  275.                         CASE "purplepizzazz": c~& = 4294856410
  276.                         CASE "radicalred": c~& = 4294920556
  277.                         CASE "rawsienna": c~& = 4292250201
  278.                         CASE "rawumber": c~& = 4285614883
  279.                         CASE "razzledazzlerose": c~& = 4294920400
  280.                         CASE "razzmatazz": c~& = 4293076331
  281.                         CASE "red": c~& = 4294901760
  282.                         CASE "redorange": c~& = 4294923081
  283.                         CASE "redviolet": c~& = 4290790543
  284.                         CASE "robinseggblue": c~& = 4280274635
  285.                         CASE "rosybrown": c~& = 4290547599
  286.                         CASE "royalblue": c~& = 4282477025
  287.                         CASE "royalpurple": c~& = 4286075305
  288.                         CASE "saddlebrown": c~& = 4287317267
  289.                         CASE "salmon": c~& = 4294606962
  290.                         CASE "sandybrown": c~& = 4294222944
  291.                         CASE "scarlet": c~& = 4294715463
  292.                         CASE "screamingreen": c~& = 4285988730
  293.                         CASE "seagreen": c~& = 4281240407
  294.                         CASE "seashell": c~& = 4294964718
  295.                         CASE "sepia": c~& = 4289030479
  296.                         CASE "shadow": c~& = 4287265117
  297.                         CASE "shamrock": c~& = 4282764962
  298.                         CASE "shockingpink": c~& = 4294672125
  299.                         CASE "sienna": c~& = 4288696877
  300.                         CASE "silver": c~& = 4290822336
  301.                         CASE "skyblue": c~& = 4287090411
  302.                         CASE "slateblue": c~& = 4285160141
  303.                         CASE "slategray": c~& = 4285563024
  304.                         CASE "snow": c~& = 4294966010
  305.                         CASE "springgreen": c~& = 4278255487
  306.                         CASE "steelblue": c~& = 4282811060
  307.                         CASE "sunglow": c~& = 4294954824
  308.                         CASE "sunsetorange": c~& = 4294794835
  309.                         CASE "tann": c~& = 4291998860
  310.                         CASE "teal": c~& = 4278222976
  311.                         CASE "tealblue": c~& = 4279805877
  312.                         CASE "thistle": c~& = 4292394968
  313.                         CASE "ticklemepink": c~& = 4294740396
  314.                         CASE "timberwolf": c~& = 4292597714
  315.                         CASE "tomato": c~& = 4294927175
  316.                         CASE "tropicalrainforest": c~& = 4279730285
  317.                         CASE "tumbleweed": c~& = 4292782728
  318.                         CASE "turquoise": c~& = 4282441936
  319.                         CASE "turquoiseblue": c~& = 4286045671
  320.                         CASE "unmellowyellow": c~& = 4294967142
  321.                         CASE "violet": c~& = 4293821166
  322.                         CASE "violetblue": c~& = 4281486002
  323.                         CASE "violetred": c~& = 4294398868
  324.                         CASE "vividtangerine": c~& = 4294942857
  325.                         CASE "vividviolet": c~& = 4287582365
  326.                         CASE "wheat": c~& = 4294303411
  327.                         CASE "white": c~& = 4294967295
  328.                         CASE "whitesmoke": c~& = 4294309365
  329.                         CASE "wildblueyonder": c~& = 4288851408
  330.                         CASE "wildstrawberry": c~& = 4294919076
  331.                         CASE "wildwatermelon": c~& = 4294732933
  332.                         CASE "wisteria": c~& = 4291667166
  333.                         CASE "yellow": c~& = 4294967040
  334.                         CASE "yellowgreen": c~& = 4288335154
  335.                         CASE "yelloworange": c~& = 4294946370
  336.                     END SELECT
  337.                 END IF
  338.             ELSE
  339.  
  340.  
  341.                 ValueLen = LEN(value$)
  342.  
  343.                 REDIM CLRS(2) AS _UNSIGNED _BYTE
  344.                 i = 0
  345.  
  346.                 DO UNTIL ValueLen = 0
  347.                     f = INSTR(value$, ",")
  348.                     IF f <= 0 THEN f = ValueLen
  349.                     R$ = LEFT$(value$, f)
  350.                     CLRS(i) = VAL(R$)
  351.                     i = i + 1
  352.                     ValueLen = ValueLen - LEN(R$)
  353.                     value$ = MID$(value$, f + 1)
  354.                 LOOP
  355.  
  356.                 c~& = _RGB32(CLRS(0), CLRS(1), CLRS(2))
  357.  
  358.             END IF
  359.  
  360.             IF c~& THEN COLOR c~& ELSE COLOR _RGB32(VAL(value$))
  361.  
  362.         ELSE
  363.             Text$ = Text$ + CHR$(command)
  364.         END IF
  365.     NEXT
  366.     IF LEN(Text$) THEN PRINT Text$
  368.  

« Last Edit: August 05, 2021, 08:39:29 am by Petr »
Logged

FellippeHeitor

  • Guest
Re: SUB for printing colored strings easy
« Reply #1 on: August 05, 2021, 08:45:12 am »
Thanks for sharing, Petr! Is there a way to escape the star character in case I wanna print colored stars?
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: SUB for printing colored strings easy
« Reply #2 on: August 05, 2021, 08:59:16 am »
Hi Fellippe, yes it is possible:

Code: QB64: [Select]
  1. 'Program show new utility for direct text coloring. Use in 32 bit mode.
  2.  
  3. SCREEN _NEWIMAGE(1024, 768, 32)
  5.  
  6. 'old QB64 use for colored printing to screen:
  7. COLOR _RGB32(0, 255, 0): PRINT "This ";: COLOR _RGB32(255, 0, 0): PRINT "is ";: COLOR _RGB32(0, 0, 255): PRINT "colored ";: COLOR _RGB32(255, 255, 0): PRINT "text."
  8. 'next possibility using $COLOR:32
  9. COLOR LightGreen: PRINT "This ";: COLOR Red: PRINT "is ";: COLOR Blue: PRINT "colored ";: COLOR Yellow: PRINT "text."
  10.  
  11. 'new possibility:
  12.  
  13. COLTEXT "/LightGreen/This /Red/Is /Blue/colored /Yellow/text."
  14.  
  15. 'OR
  16.  
  17. COLTEXT "/0,255,0/This /255,0,0/is /0,0,255/colored /255,255,0/text."
  18.  
  19. 'OR combinated (if is $Color:32 used):
  20.  
  21. COLTEXT "/LightGreen/This /255,0,0/is /0,0,255/colored /YELLOW/text."
  22.  
  23.  
  24. 'Also one - number color is supported. So for full white:
  25. COLTEXT "/255/This is writed in _RGB32 (255, 255, 255)"
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39. SUB COLTEXT (S$)
  40.     DC~& = _DEFAULTCOLOR
  41.     TextLenght = LEN(S$)
  42.     FOR all = 1 TO TextLenght
  43.         command = ASC(S$, all)
  44.  
  45.         IF command = ASC("/") THEN '                                         changed * to /
  46.             IF LEN(Text$) THEN PRINT Text$;
  47.  
  48.             Text$ = ""
  49.             value$ = ""
  50.             cmd$ = ""
  51.             c~& = 0
  52.  
  53.             DO UNTIL cmd$ = "/" '                                            changed * to /
  54.                 all = all + 1
  55.                 cmd$ = MID$(S$, all, 1)
  56.                 IF cmd$ <> "/" THEN value$ = value$ + cmd$ '                 changed * to /
  57.                 IF all >= TextLenght THEN EXIT DO
  58.             LOOP
  59.  
  60.  
  61.             IF INSTR(value$, ",") = 0 THEN
  62.  
  63.  
  64.                 IF LEN(value$) AND VAL(value$) = 0 THEN '$COLOR32 SUPPORT
  65.                     SELECT CASE LCASE$(_TRIM$(value$))
  66.                         CASE "aliceblue": c~& = 4293982463
  67.                         CASE "almond": c~& = 4293910221
  68.                         CASE "antiquebrass": c~& = 4291663221
  69.                         CASE "antiquewhite": c~& = 4294634455
  70.                         CASE "apricot": c~& = 4294826421
  71.                         CASE "aqua": c~& = 4278255615
  72.                         CASE "aquamarine": c~& = 4286578644
  73.                         CASE "asparagus": c~& = 4287080811
  74.                         CASE "atomictangerine": c~& = 4294943860
  75.                         CASE "azure": c~& = 4293984255
  76.                         CASE "bananamania": c~& = 4294633397
  77.                         CASE "beaver": c~& = 4288643440
  78.                         CASE "beige": c~& = 4294309340
  79.                         CASE "bisque": c~& = 4294960324
  80.                         CASE "bittersweet": c~& = 4294802542
  81.                         CASE "black": c~& = 4278190080
  82.                         CASE "blanchedalmond": c~& = 4294962125
  83.                         CASE "blizzardblue": c~& = 4289521134
  84.                         CASE "blue": c~& = 4278190335
  85.                         CASE "bluebell": c~& = 4288848592
  86.                         CASE "bluegray": c~& = 4284914124
  87.                         CASE "bluegreen": c~& = 4279081146
  88.                         CASE "blueviolet": c~& = 4287245282
  89.                         CASE "blush": c~& = 4292763011
  90.                         CASE "brickred": c~& = 4291510612
  91.                         CASE "brown": c~& = 4289014314
  92.                         CASE "burlywood": c~& = 4292786311
  93.                         CASE "burntorange": c~& = 4294934345
  94.                         CASE "burntsienna": c~& = 4293557853
  95.                         CASE "cadetblue": c~& = 4284456608
  96.                         CASE "canary": c~& = 4294967193
  97.                         CASE "caribbeangreen": c~& = 4280079266
  98.                         CASE "carnationpink": c~& = 4294945484
  99.                         CASE "cerise": c~& = 4292691090
  100.                         CASE "cerulean": c~& = 4280134870
  101.                         CASE "chartreuse": c~& = 4286578432
  102.                         CASE "chestnut": c~& = 4290534744
  103.                         CASE "chocolate": c~& = 4291979550
  104.                         CASE "copper": c~& = 4292711541
  105.                         CASE "coral": c~& = 4294934352
  106.                         CASE "cornflower": c~& = 4288335595
  107.                         CASE "cornflowerblue": c~& = 4284782061
  108.                         CASE "cornsilk": c~& = 4294965468
  109.                         CASE "cottoncandy": c~& = 4294950105
  110.                         CASE "crayolaaquamarine": c~& = 4286110690
  111.                         CASE "crayolablue": c~& = 4280251902
  112.                         CASE "crayolablueviolet": c~& = 4285753021
  113.                         CASE "crayolabrown": c~& = 4290013005
  114.                         CASE "crayolacadetblue": c~& = 4289771462
  115.                         CASE "crayolaforestgreen": c~& = 4285378177
  116.                         CASE "crayolagold": c~& = 4293379735
  117.                         CASE "crayolagoldenrod": c~& = 4294760821
  118.                         CASE "crayolagray": c~& = 4287992204
  119.                         CASE "crayolagreen": c~& = 4280069240
  120.                         CASE "crayolagreenyellow": c~& = 4293978257
  121.                         CASE "crayolaindigo": c~& = 4284315339
  122.                         CASE "crayolalavender": c~& = 4294751445
  123.                         CASE "crayolamagenta": c~& = 4294337711
  124.                         CASE "crayolamaroon": c~& = 4291311706
  125.                         CASE "crayolamidnightblue": c~& = 4279912566
  126.                         CASE "crayolaorange": c~& = 4294931768
  127.                         CASE "crayolaorangered": c~& = 4294912811
  128.                         CASE "crayolaorchid": c~& = 4293306583
  129.                         CASE "crayolaplum": c~& = 4287513989
  130.                         CASE "crayolared": c~& = 4293795917
  131.                         CASE "crayolasalmon": c~& = 4294941610
  132.                         CASE "crayolaseagreen": c~& = 4288668351
  133.                         CASE "crayolasilver": c~& = 4291675586
  134.                         CASE "crayolaskyblue": c~& = 4286634731
  135.                         CASE "crayolaspringgreen": c~& = 4293716670
  136.                         CASE "crayolatann": c~& = 4294616940
  137.                         CASE "crayolathistle": c~& = 4293642207
  138.                         CASE "crayolaviolet": c~& = 4287786670
  139.                         CASE "crayolayellow": c~& = 4294764675
  140.                         CASE "crayolayellowgreen": c~& = 4291158916
  141.                         CASE "crimson": c~& = 4292613180
  142.                         CASE "cyan": c~& = 4278255615
  143.                         CASE "dandelion": c~& = 4294826861
  144.                         CASE "darkblue": c~& = 4278190219
  145.                         CASE "darkcyan": c~& = 4278225803
  146.                         CASE "darkgoldenrod": c~& = 4290283019
  147.                         CASE "darkgray": c~& = 4289309097
  148.                         CASE "darkgreen": c~& = 4278215680
  149.                         CASE "darkkhaki": c~& = 4290623339
  150.                         CASE "darkmagenta": c~& = 4287299723
  151.                         CASE "darkolivegreen": c~& = 4283788079
  152.                         CASE "darkorange": c~& = 4294937600
  153.                         CASE "darkorchid": c~& = 4288230092
  154.                         CASE "darkred": c~& = 4287299584
  155.                         CASE "darksalmon": c~& = 4293498490
  156.                         CASE "darkseagreen": c~& = 4287609999
  157.                         CASE "darkslateblue": c~& = 4282924427
  158.                         CASE "darkslategray": c~& = 4281290575
  159.                         CASE "darkturquoise": c~& = 4278243025
  160.                         CASE "darkviolet": c~& = 4287889619
  161.                         CASE "deeppink": c~& = 4294907027
  162.                         CASE "deepskyblue": c~& = 4278239231
  163.                         CASE "denim": c~& = 4281035972
  164.                         CASE "desertsand": c~& = 4293905848
  165.                         CASE "dimgray": c~& = 4285098345
  166.                         CASE "dodgerblue": c~& = 4280193279
  167.                         CASE "eggplant": c~& = 4285419872
  168.                         CASE "electriclime": c~& = 4291755805
  169.                         CASE "fern": c~& = 4285643896
  170.                         CASE "firebrick": c~& = 4289864226
  171.                         CASE "floralwhite": c~& = 4294966000
  172.                         CASE "forestgreen": c~& = 4280453922
  173.                         CASE "fuchsia": c~& = 4290995397
  174.                         CASE "fuzzywuzzy": c~& = 4291585638
  175.                         CASE "gainsboro": c~& = 4292664540
  176.                         CASE "ghostwhite": c~& = 4294506751
  177.                         CASE "gold": c~& = 4294956800
  178.                         CASE "goldenrod": c~& = 4292519200
  179.                         CASE "grannysmithapple": c~& = 4289258656
  180.                         CASE "gray": c~& = 4286611584
  181.                         CASE "green": c~& = 4278222848
  182.                         CASE "greenblue": c~& = 4279329972
  183.                         CASE "greenyellow": c~& = 4289593135
  184.                         CASE "honeydew": c~& = 4293984240
  185.                         CASE "hotmagenta": c~& = 4294909390
  186.                         CASE "hotpink": c~& = 4294928820
  187.                         CASE "inchworm": c~& = 4289915997
  188.                         CASE "indianred": c~& = 4291648604
  189.                         CASE "indigo": c~& = 4283105410
  190.                         CASE "ivory": c~& = 4294967280
  191.                         CASE "jazzberryjam": c~& = 4291442535
  192.                         CASE "junglegreen": c~& = 4282101903
  193.                         CASE "khaki": c~& = 4293977740
  194.                         CASE "laserlemon": c~& = 4294901282
  195.                         CASE "lavender": c~& = 4293322490
  196.                         CASE "lavenderblush": c~& = 4294963445
  197.                         CASE "lawngreen": c~& = 4286381056
  198.                         CASE "lemonchiffon": c~& = 4294965965
  199.                         CASE "lemonyellow": c~& = 4294964303
  200.                         CASE "lightblue": c~& = 4289583334
  201.                         CASE "lightcoral": c~& = 4293951616
  202.                         CASE "lightcyan": c~& = 4292935679
  203.                         CASE "lightgoldenrodyellow": c~& = 4294638290
  204.                         CASE "lightgray": c~& = 4292072403
  205.                         CASE "lightgreen": c~& = 4287688336
  206.                         CASE "lightpink": c~& = 4294948545
  207.                         CASE "lightsalmon": c~& = 4294942842
  208.                         CASE "lightseagreen": c~& = 4280332970
  209.                         CASE "lightskyblue": c~& = 4287090426
  210.                         CASE "lightslategray": c~& = 4286023833
  211.                         CASE "lightsteelblue": c~& = 4289774814
  212.                         CASE "lightyellow": c~& = 4294967264
  213.                         CASE "lime": c~& = 4278255360
  214.                         CASE "limegreen": c~& = 4281519410
  215.                         CASE "linen": c~& = 4294635750
  216.                         CASE "macaroniandcheese": c~& = 4294950280
  217.                         CASE "magenta": c~& = 4294902015
  218.                         CASE "magicmint": c~& = 4289392849
  219.                         CASE "mahogany": c~& = 4291643980
  220.                         CASE "maize": c~& = 4293775772
  221.                         CASE "manatee": c~& = 4288125610
  222.                         CASE "mangotango": c~& = 4294935107
  223.                         CASE "maroon": c~& = 4286578688
  224.                         CASE "mauvelous": c~& = 4293892266
  225.                         CASE "mediumaquamarine": c~& = 4284927402
  226.                         CASE "mediumblue": c~& = 4278190285
  227.                         CASE "mediumorchid": c~& = 4290401747
  228.                         CASE "mediumpurple": c~& = 4287852763
  229.                         CASE "mediumseagreen": c~& = 4282168177
  230.                         CASE "mediumslateblue": c~& = 4286277870
  231.                         CASE "mediumspringgreen": c~& = 4278254234
  232.                         CASE "mediumturquoise": c~& = 4282962380
  233.                         CASE "mediumvioletred": c~& = 4291237253
  234.                         CASE "melon": c~& = 4294818996
  235.                         CASE "midnightblue": c~& = 4279834992
  236.                         CASE "mintcream": c~& = 4294311930
  237.                         CASE "mistyrose": c~& = 4294960353
  238.                         CASE "moccasin": c~& = 4294960309
  239.                         CASE "mountainmeadow": c~& = 4281383567
  240.                         CASE "mulberry": c~& = 4291120012
  241.                         CASE "navajowhite": c~& = 4294958765
  242.                         CASE "navy": c~& = 4278190208
  243.                         CASE "navyblue": c~& = 4279858386
  244.                         CASE "neoncarrot": c~& = 4294943555
  245.                         CASE "oldlace": c~& = 4294833638
  246.                         CASE "olive": c~& = 4286611456
  247.                         CASE "olivedrab": c~& = 4285238819
  248.                         CASE "olivegreen": c~& = 4290426988
  249.                         CASE "orange": c~& = 4294944000
  250.                         CASE "orangered": c~& = 4294919424
  251.                         CASE "orangeyellow": c~& = 4294497640
  252.                         CASE "orchid": c~& = 4292505814
  253.                         CASE "outerspace": c~& = 4282468940
  254.                         CASE "outrageousorange": c~& = 4294929994
  255.                         CASE "pacificblue": c~& = 4280068553
  256.                         CASE "palegoldenrod": c~& = 4293847210
  257.                         CASE "palegreen": c~& = 4288215960
  258.                         CASE "paleturquoise": c~& = 4289720046
  259.                         CASE "palevioletred": c~& = 4292571283
  260.                         CASE "papayawhip": c~& = 4294963157
  261.                         CASE "peach": c~& = 4294954923
  262.                         CASE "peachpuff": c~& = 4294957753
  263.                         CASE " periwinkle": c~& = 4291154150
  264.                         CASE "peru": c~& = 4291659071
  265.                         CASE "piggypink": c~& = 4294827494
  266.                         CASE "pinegreen": c~& = 4279599224
  267.                         CASE "pink": c~& = 4294951115
  268.                         CASE "pinkflamingo": c~& = 4294735101
  269.                         CASE "pinksherbet": c~& = 4294414247
  270.                         CASE "plum": c~& = 4292714717
  271.                         CASE "powderblue": c~& = 4289781990
  272.                         CASE "purple": c~& = 4286578816
  273.                         CASE "purpleheart": c~& = 4285809352
  274.                         CASE "purplemountainsmajesty": c~& = 4288512442
  275.                         CASE "purplepizzazz": c~& = 4294856410
  276.                         CASE "radicalred": c~& = 4294920556
  277.                         CASE "rawsienna": c~& = 4292250201
  278.                         CASE "rawumber": c~& = 4285614883
  279.                         CASE "razzledazzlerose": c~& = 4294920400
  280.                         CASE "razzmatazz": c~& = 4293076331
  281.                         CASE "red": c~& = 4294901760
  282.                         CASE "redorange": c~& = 4294923081
  283.                         CASE "redviolet": c~& = 4290790543
  284.                         CASE "robinseggblue": c~& = 4280274635
  285.                         CASE "rosybrown": c~& = 4290547599
  286.                         CASE "royalblue": c~& = 4282477025
  287.                         CASE "royalpurple": c~& = 4286075305
  288.                         CASE "saddlebrown": c~& = 4287317267
  289.                         CASE "salmon": c~& = 4294606962
  290.                         CASE "sandybrown": c~& = 4294222944
  291.                         CASE "scarlet": c~& = 4294715463
  292.                         CASE "screamingreen": c~& = 4285988730
  293.                         CASE "seagreen": c~& = 4281240407
  294.                         CASE "seashell": c~& = 4294964718
  295.                         CASE "sepia": c~& = 4289030479
  296.                         CASE "shadow": c~& = 4287265117
  297.                         CASE "shamrock": c~& = 4282764962
  298.                         CASE "shockingpink": c~& = 4294672125
  299.                         CASE "sienna": c~& = 4288696877
  300.                         CASE "silver": c~& = 4290822336
  301.                         CASE "skyblue": c~& = 4287090411
  302.                         CASE "slateblue": c~& = 4285160141
  303.                         CASE "slategray": c~& = 4285563024
  304.                         CASE "snow": c~& = 4294966010
  305.                         CASE "springgreen": c~& = 4278255487
  306.                         CASE "steelblue": c~& = 4282811060
  307.                         CASE "sunglow": c~& = 4294954824
  308.                         CASE "sunsetorange": c~& = 4294794835
  309.                         CASE "tann": c~& = 4291998860
  310.                         CASE "teal": c~& = 4278222976
  311.                         CASE "tealblue": c~& = 4279805877
  312.                         CASE "thistle": c~& = 4292394968
  313.                         CASE "ticklemepink": c~& = 4294740396
  314.                         CASE "timberwolf": c~& = 4292597714
  315.                         CASE "tomato": c~& = 4294927175
  316.                         CASE "tropicalrainforest": c~& = 4279730285
  317.                         CASE "tumbleweed": c~& = 4292782728
  318.                         CASE "turquoise": c~& = 4282441936
  319.                         CASE "turquoiseblue": c~& = 4286045671
  320.                         CASE "unmellowyellow": c~& = 4294967142
  321.                         CASE "violet": c~& = 4293821166
  322.                         CASE "violetblue": c~& = 4281486002
  323.                         CASE "violetred": c~& = 4294398868
  324.                         CASE "vividtangerine": c~& = 4294942857
  325.                         CASE "vividviolet": c~& = 4287582365
  326.                         CASE "wheat": c~& = 4294303411
  327.                         CASE "white": c~& = 4294967295
  328.                         CASE "whitesmoke": c~& = 4294309365
  329.                         CASE "wildblueyonder": c~& = 4288851408
  330.                         CASE "wildstrawberry": c~& = 4294919076
  331.                         CASE "wildwatermelon": c~& = 4294732933
  332.                         CASE "wisteria": c~& = 4291667166
  333.                         CASE "yellow": c~& = 4294967040
  334.                         CASE "yellowgreen": c~& = 4288335154
  335.                         CASE "yelloworange": c~& = 4294946370
  336.                     END SELECT
  337.                 END IF
  338.             ELSE
  339.  
  340.  
  341.                 ValueLen = LEN(value$)
  342.  
  343.                 REDIM CLRS(2) AS _UNSIGNED _BYTE
  344.                 i = 0
  345.  
  346.                 DO UNTIL ValueLen = 0
  347.                     f = INSTR(value$, ",")
  348.                     IF f <= 0 THEN f = ValueLen
  349.                     R$ = LEFT$(value$, f)
  350.                     CLRS(i) = VAL(R$)
  351.                     i = i + 1
  352.                     ValueLen = ValueLen - LEN(R$)
  353.                     value$ = MID$(value$, f + 1)
  354.                 LOOP
  355.  
  356.                 c~& = _RGB32(CLRS(0), CLRS(1), CLRS(2))
  357.  
  358.             END IF
  359.  
  360.             IF c~& THEN COLOR c~& ELSE COLOR _RGB32(VAL(value$))
  361.  
  362.         ELSE
  363.             Text$ = Text$ + CHR$(command)
  364.         END IF
  365.     NEXT
  366.     IF LEN(Text$) THEN PRINT Text$
  368.  
  369.  
  370.  

In this version is used "/" and not "*"
Logged

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: SUB for printing colored strings easier
« Reply #3 on: August 05, 2021, 10:30:55 am »
Very neat, Petr! Speaking of "printing" and "colored text"....

Code: QB64: [Select]
  2.  
  3. $ExeIcon:'.\internal\source\qb64.ico'
  5.  
  6. $VersionInfo:CompanyName=SpriggsySpriggs
  7. $VersionInfo:ProductName=WinGDI Test
  8. $VersionInfo:FileDescription=A test of the WinGDI printing system
  10.  
  11. Type SIZE
  12.     As Long cx, cy
  14.  
  16.     As Long x, y
  18.  
  19. Type MSG
  20.     As _Offset hwnd
  21.     As _Unsigned Long message
  22.     As _Unsigned _Offset wParam
  23.     As _Offset lParam
  24.     As Long time
  25.     As POINT pt
  26.     As Long lPrivate
  28.  
  29. Type DOCINFO
  30.     As Long cbSize
  31.     As _Offset lpszDocName, lpszOutput, lpszDatatype
  32.     As _Unsigned Long fwType
  34.  
  35. Type PRINTDLG
  36.     As _Unsigned Long lStructSize
  37.     $If 64BIT Then
  38.         As String * 4 padding
  39.     $End If
  40.     As _Offset hwndOwner, hDevMode, hDevNames, hDC
  41.     As _Unsigned Long Flags
  42.     As Integer nFromPage, nToPage, nMinPage, nMaxPage, nCopies
  43.     $If 64BIT Then
  44.         As String * 2 padding2
  45.     $End If
  46.     As _Offset hInstance, lCustData, lpfnPrintHook, lpfnSetupHook, lpPrintTemplateName, lpSetupTemplateName, hPrintTemplate, hSetupTemplate
  48.  
  50.     Sub PrintDlg Alias "PrintDlgA" (ByVal lppd As _Offset)
  52.  
  54.     Function GetDeviceCaps& (ByVal hdc As _Offset, Byval index As Long)
  55.     Sub SelectObject (ByVal hdc As _Offset, Byval h As _Offset)
  56.     Function CreatePen%& (ByVal iStyle As Long, Byval cWidth As Long, Byval color As _Unsigned Long)
  57.     Sub Rectangle (ByVal hdc As _Offset, Byval left As Long, Byval top As Long, Byval right As Long, Byval bottom As Long)
  58.     Sub SetBkMode (ByVal hdc As _Offset, Byval mode As Long)
  59.     Sub TextOut Alias "TextOutA" (ByVal hdc As _Offset, Byval x As Long, Byval y As Long, Byval lpString As _Offset, Byval c As Long)
  60.     Function SetAbortProc& (ByVal hdc As _Offset, Byval proc As _Offset)
  61.     Sub StartDoc Alias "StartDocA" (ByVal hdc As _Offset, Byval lpdi As _Offset)
  62.     Sub StartPage (ByVal hdc As _Offset)
  63.     Sub EndPage (ByVal hdc As _Offset)
  64.     Sub EndDoc (ByVal hdc As _Offset)
  65.     Sub DeleteDC (ByVal hdc As _Offset)
  66.     Function CreateFont%& Alias "CreateFontA" (ByVal cHeight As Long, Byval cWidth As Long, Byval cEscapement As Long, Byval cOrientation As Long, Byval cWeight As Long, Byval bItalic As _Unsigned Long, Byval bUnderline As _Unsigned Long, Byval bStrikeout As _Unsigned Long, Byval iCharSet As _Unsigned Long, Byval iOutPrecision As _Unsigned Long, Byval iClipPrecision As _Unsigned Long, Byval iQuality As _Unsigned Long, Byval iPitchAndFamily As _Unsigned Long, pszFaceName As String)
  67.     Sub SetTextColor (ByVal hdc As _Offset, Byval color As _Unsigned Long)
  68.     Sub GetTextExtentPoint32 Alias "GetTextExtentPoint32A" (ByVal hdc As _Offset, lpString As String, Byval c As Long, Byval psizl As _Offset)
  70.  
  72.     Function PeekMessage%% (ByVal lpMsg As _Offset, Byval hWnd As _Offset, Byval wMsgFilterMin As _Unsigned Long, Byval wMsgFilterMax As _Unsigned Long, Byval wRemoveMsg As _Unsigned Long)
  73.     Sub TranslateMessage (ByVal lpMsg As _Offset)
  74.     Sub DispatchMessage (ByVal lpMsg As _Offset)
  75.     Sub MessageBox (ByVal hWnd As _Offset, lpText As String, lpCaption As String, Byval uType As _Unsigned Long)
  76.     Function GetLastError~& ()
  78.  
  80.     Function pAbortProc%& ()
  82.  
  83. $If 64BIT Then
  84.     Declare Library ".\internal\c\c_compiler\x86_64-w64-mingw32\include\wingdi"
  86.     End Declare
  88.     Declare Library ".\internal\c\c_compiler\i686-w64-mingw32\include\wingdi"
  90.     End Declare
  92. Dim Shared As PRINTDLG pdlg
  93. PrintJob
  95.  
  96. Sub InitPrintJobDoc (di As DOCINFO, docname As String)
  97.     docname = docname + Chr$(0)
  98.     di.cbSize = Len(di)
  99.     di.lpszDocName = _Offset(docname)
  101.  
  102. Sub DrawPage (hdc As _Offset, Page As _Unsigned Long)
  103.     Const HORZRES = 8
  104.     Const VERTRES = 10
  105.     Const PS_SOLID = 0
  106.     Const TRANSPARENT = 1
  107.     Dim As String * 50 gdiline
  108.     Dim As Long nWidth, nHeight
  109.     nWidth = GetDeviceCaps(hdc, HORZRES)
  110.     nHeight = GetDeviceCaps(hdc, VERTRES)
  111.     'SelectObject hdc, CreatePen(PS_SOLID, 2, RGB(255, 0, 0))
  112.     'Rectangle hdc, 0, 0, nWidth - 4, nHeight - 2
  113.     SetBkMode hdc, TRANSPARENT
  114.     Dim As SIZE size
  115.     Dim As String t1, t2, t3
  116.     t1 = "Title!"
  117.     t2 = "This is another print test!"
  118.     t3 = "Page" + Str$(Page)
  119.     HDCPrint hdc, t1, "Castellar", 72, "UNDERLINE", "BLACK", 425, 550, RGB(188, 33, 116)
  120.     HDCPrint hdc, t2, "Freestyle Script", 48, "UNDERLINE", "BLACK", 425, 750, RGB(33, 127, 127)
  121.     HDCPrint hdc, t3, "Goudy Stout", 24, "", "BLACK", 425, 1100, RGB(127, 55, 127)
  123.  
  124. Function AbortProc%% (hDC As _Offset, Errr As Long)
  125.     Const PM_REMOVE = &H0001
  126.     Dim As MSG msg
  127.     While PeekMessage(_Offset(msg), 0, 0, 0, PM_REMOVE)
  128.         TranslateMessage _Offset(msg)
  129.         DispatchMessage _Offset(msg)
  130.     Wend
  131.     AbortProc = -1
  133.  
  134. Function GetPrinterDC%& (Pages As _Unsigned Long)
  135.     Const PD_RETURNDC = &H100
  136.     pdlg.lStructSize = Len(pdlg)
  137.     pdlg.Flags = PD_RETURNDC
  138.     pdlg.nMinPage = 1
  139.     pdlg.nMaxPage = Pages
  140.     pdlg.nToPage = Pages
  141.     PrintDlg _Offset(pdlg)
  142.     GetPrinterDC = pdlg.hDC
  144.  
  145. Sub PrintJob ()
  146.     Const MB_OK = &H00000000
  147.     Const MB_APPLMODAL = &H00000000
  148.     Const SP_ERROR = -1
  149.     Dim As _Offset hDC
  150.     Dim As DOCINFO di
  151.     hDC = GetPrinterDC(2)
  152.     If hDC = 0 Then
  153.         MessageBox 0, "Error creating DC" + Chr$(0), "Error" + Chr$(0), MB_APPLMODAL Or MB_OK
  154.         Exit Sub
  155.     End If
  156.     If SetAbortProc(hDC, pAbortProc) = SP_ERROR Then
  157.         MessageBox 0, "Error setting up AbortProc" + Chr$(0), "Error" + Chr$(0), MB_APPLMODAL Or MB_OK
  158.         Exit Sub
  159.     End If
  160.     InitPrintJobDoc di, "MyDoc"
  161.     StartDoc hDC, _Offset(di)
  162.     Dim As Long i, l
  163.     For l = 1 To pdlg.nCopies
  164.         For i = 1 To pdlg.nToPage
  165.             StartPage hDC
  166.             DrawPage hDC, i
  167.             EndPage hDC
  168.         Next
  169.     Next
  170.     EndDoc hDC
  171.     DeleteDC hDC
  173.  
  174. Sub HDCPrint (hdc As _Offset, text As String, fontName As String * 32, height As Long, style As String, weightStyle As String, x As Long, y As Long, colorref As _Unsigned Long)
  175.     Dim As _Offset font
  176.     Dim As _Byte bold, underline, strikeout, italic
  177.     Dim As Long weight
  178.     style = UCase$(style)
  179.     If InStr(style, "UNDERLINE") Then underline = -1
  180.     If InStr(style, "STRIKEOUT") Then strikeout = -1
  181.     If InStr(style, "ITALIC") Then italic = -1
  182.     Select Case UCase$(weightStyle)
  183.         Case "THIN"
  184.             weight = 100
  185.         Case "EXTRALIGHT", "ULTRALIGHT"
  186.             weight = 200
  187.         Case "LIGHT"
  188.             weight = 300
  189.         Case "NORMAL", "REGULAR"
  190.             weight = 400
  191.         Case "MEDIUM"
  192.             weight = 500
  193.         Case "SEMIBOLD", "DEMIBOLD"
  194.             weight = 600
  195.         Case "BOLD"
  196.             weight = 700
  197.         Case "EXTRABOLD", "ULTRABOLD"
  198.             weight = 800
  199.         Case "HEAVY", "BLACK"
  200.             weight = 900
  201.         Case Else
  202.             weight = 0
  203.     End Select
  204.     Dim As Long FF_DECORATIVE: FF_DECORATIVE = _SHL(5, 4)
  205.     Dim As Long FF_MODERN: FF_MODERN = _SHL(3, 4)
  206.     Dim As Long FF_ROMAN: FF_ROMAN = _SHL(1, 4)
  207.     Dim As Long FF_SCRIPT: FF_SCRIPT = _SHL(4, 4)
  208.     Dim As Long FF_SWISS: FF_SWISS = _SHL(2, 4)
  209.     Const LOGPIXELSY = 90
  210.     Const LOGPIXELSX = 88
  211.     Const DT_CALCRECT = &H00000400
  212.     Dim As Long DPIScaleY: DPIScaleY = GetDeviceCaps(hdc, LOGPIXELSY) / 96
  213.     Dim As Long DPIScaleX: DPIScaleX = GetDeviceCaps(hdc, LOGPIXELSX) / 96
  214.     font = CreateFont(height * DPIScaleY, 0, 0, 0, weight, italic, underline, strikeout, 0, 0, 0, 5, FF_DECORATIVE Or FF_MODERN Or FF_ROMAN Or FF_SCRIPT Or FF_SWISS, fontName + Chr$(0))
  215.     If font Then
  216.         SelectObject hdc, font
  217.         SetTextColor hdc, colorref
  218.         Dim As SIZE size
  219.         GetTextExtentPoint32 hdc, text, Len(text), _Offset(size)
  220.         Dim As Long nx, ny
  221.         If x > 0 Then nx = (x * DPIScaleX) - size.cx / 2 Else nx = x * DPIScaleX
  222.         If y > 0 Then ny = (y * DPIScaleY) - (size.cy) Else ny = y * DPIScaleY
  223.         TextOut hdc, nx, ny, _Offset(text), Len(text)
  224.     End If
* abort.h (Filesize: 0.24 KB, Downloads: 162)
Logged
Shuwatch!

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: SUB for printing colored strings easy
« Reply #4 on: August 05, 2021, 11:30:19 am »
Hi @SpriggsySpriggs, what's that huge block of libraries? My printer is small scrap by HP (it cuts, I don't know yet if it's a weak wifi signal or why it does) even when using common programs in windows, as I understand it, it should create some color print, right? Well, it will be difficult for me, but if you really manage to squeeze a color printout from my black and white wireless printer, then my whole family will worship you as a god :)

Program behaves by popping up a windows dialog asking you to print and select a printer. I press OK. And nothing happens. But as I say. My printer is fooling around and I haven't figured out why yet. The truth is that she worked reliably in the original place, but now she is further away from the wifi router and has been working according to her mood ever since. Thank you for sharing, in truth, I don't know much about the huge number of called libraries.
Logged

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: SUB for printing colored strings easy
« Reply #5 on: August 05, 2021, 11:31:18 am »
@Petr You can select "Microsoft Print to PDF" instead and see it work its magic
Logged
Shuwatch!
Pages: [1]   Go Up
« previous next »