Basic FORM Filler

[NOVARSEG]

So here is a programming project.

The essential is to move some text around with arrow keys on top of a BMP background
1 pixel at a time. up/down/left/right

The mouse is used for coarse locating of the text and then arrow keys to fine tune the text position

Then print out both text and BMP background

An additional tweak would be to change font size  (maybe with scroll wheel?)

Another essential is to be able to save to a file

The idea is to scan a FORM and save it as a BMP. Most scanners will do a fine job at 300DPI. 
then add the text and save or print.

if this gets any interest then it can be moved to programming section.


****
other ideas

I know that text can be saved as a BMP using Microsoft paint (raster stuff).  QB64 has _CLEARCOLOR.  We know how to make a 32 bit BMP.   Need a background form image and a foreground text image and somehow save the 2 layers as one layer.


Attached file has a green background but it is 24 bit . That's OK _LOADIMAGE converts it to 32 bit.
The trick is to move this small BMP 1 pixel at a time in any direction.
Use _CLEARCOLOR to make the green background transparent.

[NOVARSEG]

Some code by DAV that might help

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(600, 600, 32)
2. DIM pic AS _UNSIGNED LONG
3. pic = BASIMAGE1&
4.  
5.  
6. _PUTIMAGE (100, 100), pic
7.  
8.  
9.  
10. FUNCTION BASIMAGE1& 'hello world.bmp
11.     v& = _NEWIMAGE(140, 38, 32)
12.     DIM m AS _MEM: m = _MEMIMAGE(v&)
13.     A$ = ""
14.     A$ = A$ + "haIkHfHS32335>[0c0[0k0S#WQK5j6`6`6d9XC0;0;#g0fQkJT`RG=a9Q`MG"
15.     A$ = A$ + "EDOjCA85bOfnUP9^_M42Q#842Q#842Q#842Qlk#ocRK]dWAmO2<0f^k0m3kc"
16.     A$ = A$ + "dodJM:ce:fVQC<OD_\7ZG\QjUm#mR=D_\7ZG\QjUml9ZGlSc5X=]?;Om\\XJ"
17.     A$ = A$ + "GYjUKZfhFW_kIJWhJkJ4K37?<>>2e_\n^>hm=[fkLPiFKKc[n79>WB_Xm]RO"
18.     A$ = A$ + "]Fe;gD_7;=^Ge<UXGn:bh;n_D<J<nJk7eBhJjQKC[diR_N^YVKLLjFm9HL>V"
19.     A$ = A$ + "NabgZm9_;mB>U1Snkgc8k_#O06??ZNAk;c=6YiQZmFS?>gBL]eHM6[l8cn4C"
20.     A$ = A$ + "_\hNEK5[D;j5lLBM<3?SYDm2j_lk=Uh`3g[kckb`FKQf;jjNXoHl2?_Gdkc:"
21.     A$ = A$ + "o0nmf9eJejL:lM;^]_]5B_<ZZO4jG]NnB^joBd;jh3^WecMSi`2d7;JK<6Rn"
22.     A$ = A$ + "Nd_8idPa_f0S?>6FfFXnIYGdi\PD[i_T[6;V^`ZnD[]LGk2Xnj:dOikXhnH<"
23.     A$ = A$ + "6:WQPe5:WL[gW:GN;m2f_#oSA][GBU3A<OG>jUcNn2^W\g]5WTm^bIUGLKk]"
24.     A$ = A$ + "a_cQaeB?OYDmRnl5MnHeRN1]9_o6oOdiEkLbXm7=oUNWMn;GbdNkDS7Zc5=B"
25.     A$ = A$ + ";d>dFeOOd[?\bO1ookBe;GEe;[C]]GCjUHo;M8Ki_joSbeOQa09oGA3Zc_<d"
26.     A$ = A$ + "hVco7UkM8TB_4;gBMNSeRNaCZk7i<jU5GjHdA^_I]mf6iM=1j?NGKFaAmM8F"
27.     A$ = A$ + "ZN9V_E[][9mR7[kO=fMGMVkg]IMl;a?Q[AMN1jeO82Mo^bmI[ca:7K;emk>h"
28.     A$ = A$ + "fdXnWbgjN7j52Q#842Q#842Q#842Q#84b73o04eL%%h1"
29.     btemp$ = ""
30.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
31.         IF INSTR(1, B$, "%") THEN
32.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
33.                 IF F$ <> "%" THEN C$ = C$ + F$
34.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
35.             IF MID$(B$, j, 1) = "#" THEN
36.         MID$(B$, j) = "@": END IF: NEXT
37.         FOR t% = LEN(B$) TO 1 STEP -1
38.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
39.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
40.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
41.     NEXT: btemp$ = btemp$ + X$: NEXT
42.     btemp$ = _INFLATE$(btemp$)
43.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
44.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
45. END FUNCTION

moving text. need to update the green background properly.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(600, 600, 32)
2. DIM pic AS _UNSIGNED LONG
3. DIM x AS INTEGER
4. pic = BASIMAGE1&
5.  
6. ' _PUTIMAGE (0, 0), pic&
7.  
8. FOR x = 1 TO 100
9.  
10.     _PUTIMAGE (100 + x, 100), pic
11.     _DELAY .3
12. NEXT x
13.  
14.  
15.  
16.  
17. FUNCTION BASIMAGE1& 'hello world.bmp
18.     v& = _NEWIMAGE(140, 38, 32)
19.     DIM m AS _MEM: m = _MEMIMAGE(v&)
20.     A$ = ""
21.     A$ = A$ + "haIkHfHS32335>[0c0[0k0S#WQK5j6`6`6d9XC0;0;#g0fQkJT`RG=a9Q`MG"
22.     A$ = A$ + "EDOjCA85bOfnUP9^_M42Q#842Q#842Q#842Qlk#ocRK]dWAmO2<0f^k0m3kc"
23.     A$ = A$ + "dodJM:ce:fVQC<OD_\7ZG\QjUm#mR=D_\7ZG\QjUml9ZGlSc5X=]?;Om\\XJ"
24.     A$ = A$ + "GYjUKZfhFW_kIJWhJkJ4K37?<>>2e_\n^>hm=[fkLPiFKKc[n79>WB_Xm]RO"
25.     A$ = A$ + "]Fe;gD_7;=^Ge<UXGn:bh;n_D<J<nJk7eBhJjQKC[diR_N^YVKLLjFm9HL>V"
26.     A$ = A$ + "NabgZm9_;mB>U1Snkgc8k_#O06??ZNAk;c=6YiQZmFS?>gBL]eHM6[l8cn4C"
27.     A$ = A$ + "_\hNEK5[D;j5lLBM<3?SYDm2j_lk=Uh`3g[kckb`FKQf;jjNXoHl2?_Gdkc:"
28.     A$ = A$ + "o0nmf9eJejL:lM;^]_]5B_<ZZO4jG]NnB^joBd;jh3^WecMSi`2d7;JK<6Rn"
29.     A$ = A$ + "Nd_8idPa_f0S?>6FfFXnIYGdi\PD[i_T[6;V^`ZnD[]LGk2Xnj:dOikXhnH<"
30.     A$ = A$ + "6:WQPe5:WL[gW:GN;m2f_#oSA][GBU3A<OG>jUcNn2^W\g]5WTm^bIUGLKk]"
31.     A$ = A$ + "a_cQaeB?OYDmRnl5MnHeRN1]9_o6oOdiEkLbXm7=oUNWMn;GbdNkDS7Zc5=B"
32.     A$ = A$ + ";d>dFeOOd[?\bO1ookBe;GEe;[C]]GCjUHo;M8Ki_joSbeOQa09oGA3Zc_<d"
33.     A$ = A$ + "hVco7UkM8TB_4;gBMNSeRNaCZk7i<jU5GjHdA^_I]mf6iM=1j?NGKFaAmM8F"
34.     A$ = A$ + "ZN9V_E[][9mR7[kO=fMGMVkg]IMl;a?Q[AMN1jeO82Mo^bmI[ca:7K;emk>h"
35.     A$ = A$ + "fdXnWbgjN7j52Q#842Q#842Q#842Q#84b73o04eL%%h1"
36.     btemp$ = ""
37.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
38.         IF INSTR(1, B$, "%") THEN
39.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
40.                 IF F$ <> "%" THEN C$ = C$ + F$
41.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
42.             IF MID$(B$, j, 1) = "#" THEN
43.         MID$(B$, j) = "@": END IF: NEXT
44.         FOR t% = LEN(B$) TO 1 STEP -1
45.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
46.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
47.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
48.     NEXT: btemp$ = btemp$ + X$: NEXT
49.     btemp$ = _INFLATE$(btemp$)
50.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
51.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
52. END FUNCTION
53.  

[NOVARSEG]

From the WIKI I got this text to move a pixel at a time

This is definite graphics based text

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. DIM x AS INTEGER
3.  
4. h& = _NEWIMAGE(1024, 768, 32)
5.  
6. FOR x = 1 TO 100
7.     _PRINTSTRING (10 + x, 10), "This _PUTIMAGE used no parameters!"
8.  
9.     _DELAY .1
10.  
11.  
12.     _SOURCE h&
13.     _DEST 0
14.  
15.     _PUTIMAGE
16. NEXT x
17. END
18.  

[SpriggsySpriggs]

Good luck with this!

[bplus]

What is purpose of moving a pixel at a time? Some sort of game?

Why wouldn't you just want to print text directly over image?

And for that matter, why not do everything with less time and space with text?

Are we really just filling out a form or making up a bunch of work for yourself?

[NOVARSEG]

What is purpose of moving a pixel at a time? Some sort of game?

Moving a pixel at a time is for fine positioning of text.  It would take much more programming
to auto position text.

Why wouldn't you just want to print text directly over image?

Thats what Im trying to do.

And for that matter, why not do everything with less time and space with text?

easier for sure with text.

Are we really just filling out a form or making up a bunch of work for yourself?

Form fillers are challenging. I'm not trying to make the best.

[SpriggsySpriggs]

Form fillers are challenging. I'm not trying to make the best.

I had an AIAG standard label making program from a year or two ago. I could make a label that used a template and filled in data dynamically. I don't think I have it anymore. Even if I did, I'd rather you take a crack at it yourself.

[bplus]

Moving a pixel at a time is for fine positioning of text.  It would take much more programming
to auto position text.

Quote
Why wouldn't you just want to print text directly over image?

Thats what Im trying to do.

@NOVARSEG

Do you know about _PRINTSTRING(xPixel, yPixel), textLabel$ that starts printing at the precise pixel of x, y for upper left corner of a box the could enclose the print (textLabel$) perfectly. And a box for your label can be calculated from text with _PRINTWIDTH(text$) which takes into account the font you have active. So it wouldn't be hard to use a mouse to drop a box right where you want a label to go and then as you say use image saver code like Dav's.

[191Brian]

Mmm
Sounds like an interesting challenge.

As Bplus said I would use _printstring with a _printmode option have and array of a user defined type for the form box text, its x,y pos and the font used (assuming you would need different size fonts to fit the text in the boxes).
I would then have loop display the form as an image _putimage display any text already added then the user could click on the form box type in there text which would be _printstringed on the box and stored in the array then allow the user to use the cursor keys to nudge the text into the correct position. Keep looping till the user pressed an F key to save the completed form.

Note I would avoid using bit map for the form image as it produces very large files I would scan to jpg or png.

[SMcNeill]

Form = _LOADIMAGE(yourimage)
INPUT “your text); text$

DO
    _PUTIMAGE , Form
    K = _KEYHIT
    SELECT CASE K
        CASE directions: alter X, Y
        CASE enter: print image: System
     END SELECT
     _PRINTSTRING (x, y), text$
LOOP


Isn’t this basically all you’re doing?

[NOVARSEG]

@SMcNeill

Yes essentially it is.   Is it necessary to putimage every time a printstring is used?

[SMcNeill]

@SMcNeill

Yes essentially it is.   Is it necessary to putimage every time a printstring is used?

I’m just using the putimage above basically like a CLS to restore my background as you move the text across it.