Fresh IDE . Check-in [e4d69cd129]
Not logged in

This repository is a mirror!

The original is located on: https://fresh.flatassembler.net/fossil/repo/fresh
If you want to follow the project, please update your remote-url

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Work on TScrollable; Fixed bug in _realobjects.inc;
Timelines: family | ancestors | descendants | both | FreshLibDev
Files: files | file ages | folders
SHA1:e4d69cd1290f2e0fb6262c287cb2f0df502891a8
User & Date: johnfound 2017-04-16 23:27:18
Context
2017-04-18
14:11
Work on TScrollable and TAsmEdit. check-in: b15c441b4d user: johnfound tags: FreshLibDev
2017-04-16
23:27
Work on TScrollable; Fixed bug in _realobjects.inc; check-in: e4d69cd129 user: johnfound tags: FreshLibDev
16:45
Work on TScrollable class. Now the scrollers can be dragged by the mouse; check-in: d335cd1b07 user: johnfound tags: FreshLibDev
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to freshlib/gui/TAsmEdit.asm.

68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
...
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
...
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
...
817
818
819
820
821
822
823



824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
...
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
...
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
....
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
....
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
....
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
....
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
....
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
....
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
  .len   dw ?   ; the length of the text chunk in BYTES (in Utf-8 chars???)
  .color db ?   ; the high order nibble encode the background, low order nibble encodes the text color.
  .flags db ?   ; the text formatting flags. reserved. For example underlining, bold, etc...
ends



object TAsmEdit, TScrollWindow

; private fields

  ._lines         dd    ?             ; pointer to TText structure that contains pointers.
  ._line_widths   dd    ?             ; TArray of TCounter for counting the line width. Must be kept in consistency.

  ._pUndo         dd    ?
................................................................................
        pushad

        mov     esi, [.self]

        mov     eax, [esi+TAsmEdit._caret_x]
        mov     ecx, [esi+TAsmEdit._caret_y]

        get     edx, esi, TAsmEdit:StartX
        sub     eax, edx
        js      .hide_caret

        imul    eax, [esi+TAsmEdit._font_width]
        add     eax, [esi+TAsmEdit._left_margin]

        get     edx, esi, TAsmEdit:StartY
        sub     ecx, edx
        js      .hide_caret

        imul    ecx, [esi+TAsmEdit._font_height]
        add     ecx, [esi+TAsmEdit._font_height]
        sub     ecx, 2

................................................................................
        mov     [.recta.right], edx
        mov     [.recta.bottom], eax

        lea     edx, [.rectr]
        stdcall RectIntersect, edx, edx, [.pRect]
        jc      .end_draw                               ; nothing to draw

        get     eax, esi, TAsmEdit:StartX
        get     ecx, esi, TAsmEdit:StartY

        add     [.rectr.left], eax
        add     [.rectr.top], ecx
        add     [.rectr.right], eax
        add     [.rectr.bottom], ecx

        lea     ebx, [.recta]
................................................................................
        stdcall GetFineTimestamp
        sub     eax, [.start]

        OutputValue "Rendering time [us]:", eax, 10, -1
end if

        popad



        return
endp




method TAsmEdit.UpdateScrollBar
begin
        pushad
        mov     esi, [.self]

        mov     ecx, [esi+TWindow._width]
        mov     edx, [esi+TWindow._height]

        mov     eax, ecx
        mov     ebx, edx

        sub     eax, [GUI.scrollWidth]          ; width - scrollWidth
        sub     ebx, [GUI.scrollWidth]          ; height - scrollWidth

        set     [esi+TAsmEdit.YScroller], TScrollbar:x, eax
        set     [esi+TAsmEdit.YScroller], TScrollbar:y, 0
        set     [esi+TAsmEdit.YScroller], TScrollbar:height, edx
        set     [esi+TAsmEdit.YScroller], TScrollbar:width, [GUI.scrollWidth]

        set     [esi+TAsmEdit.XScroller], TScrollbar:x, 0
        set     [esi+TAsmEdit.XScroller], TScrollbar:y, ebx
        set     [esi+TAsmEdit.XScroller], TScrollbar:width, ecx
        set     [esi+TAsmEdit.XScroller], TScrollbar:height, [GUI.scrollWidth]

        xor     eax, eax
        cmp     [esi+TAsmEdit._font_width], eax
        lea     eax, [eax+1]
        je      .xpage_ok

        mov     eax, [esi+TAsmEdit._width]
        sub     eax, [esi+TAsmEdit._left_margin]
................................................................................
        test    eax, eax
        jnz     .xpage_ok

        inc     eax

.xpage_ok:

        set     [esi+TAsmEdit.XScroller], TScrollbar:Page, eax

        mov     ecx, [esi+TAsmEdit._line_widths]
        mov     edx, [ecx+TArray.count]
        test    edx, edx
        jz      .xsize_ok

        mov     edx, [ecx+TArray.array+sizeof.TCounter*edx+TCounter.value- sizeof.TCounter]
        sub     edx, eax

.xsize_ok:

        set     [esi+TAsmEdit.XScroller], TScrollbar:Max, edx

; set Y scrollers page and

        xor     eax, eax
        cmp     [esi+TAsmEdit._font_height], eax
        lea     eax, [eax+1]
        je      .ypage_ok
................................................................................
        test    eax, eax
        jnz     .ypage_ok

        inc     eax

.ypage_ok:

        set     [esi+TAsmEdit.YScroller], TScrollbar:Page, eax

        mov     edx, [esi+TAsmEdit._lines]
        mov     edx, [edx+TText.TextLen]
        shr     edx, 2
        sub     edx, eax

        set     [esi+TAsmEdit.YScroller], TScrollbar:Max, edx

        popad
        return
endp



................................................................................
        shr     eax, 1
        mov     [.quarter_x], eax


        stdcall CaretShow, 0

        mov     eax, [esi+TAsmEdit._caret_x]
        sub     eax, [esi+TAsmEdit._start_x]    ; offset from the screen home.
        js      .scroll_right

; scroll left

        sub     eax, [.max_col]
        jb      .finish

................................................................................
        test    [esi+TAsmEdit._options], aeoScrollXMore
        jz      .morex_ok

        add     eax, [.quarter_x]

.morex_ok:

        mov     edx, [esi+TAsmEdit._start_x]
        add     edx, eax

        set     esi, TAsmEdit:StartX, edx

        cmp     eax, [.half_x]
        ja      .paint_all

; now scroll the screen left

        mov     edx, eax
................................................................................
        jz      .morex_ok2

        add     eax, [.quarter_x]

.morex_ok2:

        xor     ecx, ecx
        mov     edx, [esi+TAsmEdit._start_x]
        sub     edx, eax
        cmovs   edx, ecx

        set     esi, TAsmEdit:StartX, edx

        cmp     eax, [.half_x]
        ja      .paint_all

        mov     edx, eax
        imul    edx, [esi+TAsmEdit._font_width]

................................................................................
        shr     eax, 1
        mov     [.quarter_y], eax


        stdcall CaretShow, 0

        mov     eax, [esi+TAsmEdit._caret_y]
        sub     eax, [esi+TAsmEdit._start_y]    ; offset from the screen home.
        js      .scroll_down

; scroll up

        sub     eax, [.max_line]
        jb      .finish

................................................................................

; scroll always even count lines in Zebra mode.
        bt      eax, ecx
        adc     eax, ecx

.even_scroll_up_ok:

        get     edx, esi, TAsmEdit:StartY
        add     edx, eax

        set     esi, TAsmEdit:StartY, edx

        cmp     eax, [.half_y]
        ja      .paint_all

; now scroll the screen up

        mov     edx, eax
................................................................................

; scroll always even count lines in Zebra mode.
        bt      eax, ecx
        adc     eax, ecx

.even_scroll_dn_ok:

        mov     edx, [esi+TAsmEdit._start_y]
        sub     edx, eax
        cmovs   edx, ecx

        set     esi, TAsmEdit:StartY, edx

        cmp     eax, [.half_y]
        ja      .paint_all

        mov     edx, eax
        imul    edx, [esi+TAsmEdit._font_height]








|







 







|






|







 







|
|







 







>
>
>











<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<







 







|










|
<







 







|






|







 







|







 







|


|







 







|



|







 







|







 







|


|







 







|



|







68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
...
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
...
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
...
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837



















838
839
840
841
842
843
844
...
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865

866
867
868
869
870
871
872
...
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
....
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
....
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
....
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
....
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
....
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
....
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
  .len   dw ?   ; the length of the text chunk in BYTES (in Utf-8 chars???)
  .color db ?   ; the high order nibble encode the background, low order nibble encodes the text color.
  .flags db ?   ; the text formatting flags. reserved. For example underlining, bold, etc...
ends



object TAsmEdit, TScrollable

; private fields

  ._lines         dd    ?             ; pointer to TText structure that contains pointers.
  ._line_widths   dd    ?             ; TArray of TCounter for counting the line width. Must be kept in consistency.

  ._pUndo         dd    ?
................................................................................
        pushad

        mov     esi, [.self]

        mov     eax, [esi+TAsmEdit._caret_x]
        mov     ecx, [esi+TAsmEdit._caret_y]

        get     edx, esi, TAsmEdit:PosX
        sub     eax, edx
        js      .hide_caret

        imul    eax, [esi+TAsmEdit._font_width]
        add     eax, [esi+TAsmEdit._left_margin]

        get     edx, esi, TAsmEdit:PosY
        sub     ecx, edx
        js      .hide_caret

        imul    ecx, [esi+TAsmEdit._font_height]
        add     ecx, [esi+TAsmEdit._font_height]
        sub     ecx, 2

................................................................................
        mov     [.recta.right], edx
        mov     [.recta.bottom], eax

        lea     edx, [.rectr]
        stdcall RectIntersect, edx, edx, [.pRect]
        jc      .end_draw                               ; nothing to draw

        get     eax, esi, TAsmEdit:PosX
        get     ecx, esi, TAsmEdit:PosY

        add     [.rectr.left], eax
        add     [.rectr.top], ecx
        add     [.rectr.right], eax
        add     [.rectr.bottom], ecx

        lea     ebx, [.recta]
................................................................................
        stdcall GetFineTimestamp
        sub     eax, [.start]

        OutputValue "Rendering time [us]:", eax, 10, -1
end if

        popad

        inherited

        return
endp




method TAsmEdit.UpdateScrollBar
begin
        pushad
        mov     esi, [.self]




















        xor     eax, eax
        cmp     [esi+TAsmEdit._font_width], eax
        lea     eax, [eax+1]
        je      .xpage_ok

        mov     eax, [esi+TAsmEdit._width]
        sub     eax, [esi+TAsmEdit._left_margin]
................................................................................
        test    eax, eax
        jnz     .xpage_ok

        inc     eax

.xpage_ok:

        set     esi, TScrollable:PageX, eax

        mov     ecx, [esi+TAsmEdit._line_widths]
        mov     edx, [ecx+TArray.count]
        test    edx, edx
        jz      .xsize_ok

        mov     edx, [ecx+TArray.array+sizeof.TCounter*edx+TCounter.value- sizeof.TCounter]
        sub     edx, eax

.xsize_ok:
        set     esi, TScrollable:MaxX, edx


; set Y scrollers page and

        xor     eax, eax
        cmp     [esi+TAsmEdit._font_height], eax
        lea     eax, [eax+1]
        je      .ypage_ok
................................................................................
        test    eax, eax
        jnz     .ypage_ok

        inc     eax

.ypage_ok:

        set     esi, TScrollable:PageY, eax

        mov     edx, [esi+TAsmEdit._lines]
        mov     edx, [edx+TText.TextLen]
        shr     edx, 2
        sub     edx, eax

        set     esi, TScrollable:MaxY, edx

        popad
        return
endp



................................................................................
        shr     eax, 1
        mov     [.quarter_x], eax


        stdcall CaretShow, 0

        mov     eax, [esi+TAsmEdit._caret_x]
        sub     eax, [esi+TAsmEdit._scrX.pos]    ; offset from the screen home.
        js      .scroll_right

; scroll left

        sub     eax, [.max_col]
        jb      .finish

................................................................................
        test    [esi+TAsmEdit._options], aeoScrollXMore
        jz      .morex_ok

        add     eax, [.quarter_x]

.morex_ok:

        mov     edx, [esi+TAsmEdit._scrX.pos]
        add     edx, eax

        set     esi, TAsmEdit:PosX, edx

        cmp     eax, [.half_x]
        ja      .paint_all

; now scroll the screen left

        mov     edx, eax
................................................................................
        jz      .morex_ok2

        add     eax, [.quarter_x]

.morex_ok2:

        xor     ecx, ecx
        mov     edx, [esi+TAsmEdit._scrX.pos]
        sub     edx, eax
        cmovs   edx, ecx

        set     esi, TAsmEdit:PosX, edx

        cmp     eax, [.half_x]
        ja      .paint_all

        mov     edx, eax
        imul    edx, [esi+TAsmEdit._font_width]

................................................................................
        shr     eax, 1
        mov     [.quarter_y], eax


        stdcall CaretShow, 0

        mov     eax, [esi+TAsmEdit._caret_y]
        sub     eax, [esi+TAsmEdit._scrY.pos]    ; offset from the screen home.
        js      .scroll_down

; scroll up

        sub     eax, [.max_line]
        jb      .finish

................................................................................

; scroll always even count lines in Zebra mode.
        bt      eax, ecx
        adc     eax, ecx

.even_scroll_up_ok:

        get     edx, esi, TAsmEdit:PosY
        add     edx, eax

        set     esi, TAsmEdit:PosY, edx

        cmp     eax, [.half_y]
        ja      .paint_all

; now scroll the screen up

        mov     edx, eax
................................................................................

; scroll always even count lines in Zebra mode.
        bt      eax, ecx
        adc     eax, ecx

.even_scroll_dn_ok:

        mov     edx, [esi+TAsmEdit._scrY.pos]
        sub     edx, eax
        cmovs   edx, ecx

        set     esi, TAsmEdit:PosY, edx

        cmp     eax, [.half_y]
        ja      .paint_all

        mov     edx, eax
        imul    edx, [esi+TAsmEdit._font_height]

Changes to freshlib/gui/TScrollable.asm.

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
...
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
...
154
155
156
157
158
159
160

161
162
163
164
165
166
167
168
...
203
204
205
206
207
208
209

210
211
212
213
214
215
216
217
...
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
...
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
  ._BackGroundV dd ?


  param .PosX,  ._scrX.pos,  .SetPos:2
  param .PageX, ._scrX.page, .SetPage:2
  param .MaxX,  ._scrX.max,  .SetMax:2

  param .PosY,  ._scrX.pos,  .SetPos:2
  param .PageY, ._scrX.page, .SetPage:2
  param .MaxY,  ._scrX.max,  .SetMax:2

  method .SetPos,  .param, .value
  method .SetPage, .param, .value
  method .SetMax,  .param, .value


  method .Destroy
................................................................................
        cmp     eax, ecx
        cmovg   eax, ecx

        cmp     eax, [esi+edx+TScroller.pos]
        je      .finish

        mov     [esi+edx+TScroller.pos], eax
        exec    esi, TWindow:Refresh

.finish:
        popad
        return
endp

;_________________________________________________________________________________________
................................................................................
        cmp     eax, [esi+edx+TScroller.page]
        jne     .refresh

        cmp     ebx, [esi+TScroller.pos]
        je      .finish

.refresh:

        exec    esi, TScrollable:Refresh

.finish:
        popad
        return
endp

;_________________________________________________________________________________________
................................................................................
        cmp     ebx, [esi+edx+TScroller.pos]
        jne     .refresh

        cmp     ecx, [esi+edx+TScroller.page]
        je      .finish

.refresh:

        exec    esi, TScrollable:Refresh

.finish:
        popad
        return
endp


................................................................................
        pushad

        mov     esi, [.self]
        mov     ebx, [esi+TScrollable._canvas]
        test    ebx, ebx
        jz      .finish

        xor     eax, eax
        mov     ecx, [esi+TScrollable._width]
        mov     edx, [esi+TScrollable._height]
        stdcall DrawSolidRect, ebx, 0, 0, ecx, edx, [GUI.clTreeViewBack]

; Free the previous stored images.

        stdcall DestroyImage, [esi+TScrollable._BackGroundH]
        stdcall DestroyImage, [esi+TScrollable._BackGroundV]

; Create new
................................................................................
        mov     ecx, [esi+TScrollable._width + edi]

        sub     eax, [esi+TScrollable._drag_ofs]
        lea     edx, [esi+TScrollable._scrX + 4*edi]

        stdcall _SetSliderPos2, edx, eax, ecx

        exec    esi, TScrollable:DrawScrollbars
        exec    esi, TWindow:EventScroll, ebx, scTrack, [edx+TScroller.pos]
        jmp     .state_ok

endp










|
|
|







 







|







 







>
|







 







>
|







 







|
|
|
|







 







|







46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
...
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
...
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
...
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
...
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
...
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
  ._BackGroundV dd ?


  param .PosX,  ._scrX.pos,  .SetPos:2
  param .PageX, ._scrX.page, .SetPage:2
  param .MaxX,  ._scrX.max,  .SetMax:2

  param .PosY,  ._scrY.pos,  .SetPos:2
  param .PageY, ._scrY.page, .SetPage:2
  param .MaxY,  ._scrY.max,  .SetMax:2

  method .SetPos,  .param, .value
  method .SetPage, .param, .value
  method .SetMax,  .param, .value


  method .Destroy
................................................................................
        cmp     eax, ecx
        cmovg   eax, ecx

        cmp     eax, [esi+edx+TScroller.pos]
        je      .finish

        mov     [esi+edx+TScroller.pos], eax
        exec    esi, TScrollable:DrawScrollbars

.finish:
        popad
        return
endp

;_________________________________________________________________________________________
................................................................................
        cmp     eax, [esi+edx+TScroller.page]
        jne     .refresh

        cmp     ebx, [esi+TScroller.pos]
        je      .finish

.refresh:
        exec    esi, TScrollable:DrawScrollbars
;        exec    esi, TScrollable:Refresh

.finish:
        popad
        return
endp

;_________________________________________________________________________________________
................................................................................
        cmp     ebx, [esi+edx+TScroller.pos]
        jne     .refresh

        cmp     ecx, [esi+edx+TScroller.page]
        je      .finish

.refresh:
        exec    esi, TScrollable:DrawScrollbars
;        exec    esi, TScrollable:Refresh

.finish:
        popad
        return
endp


................................................................................
        pushad

        mov     esi, [.self]
        mov     ebx, [esi+TScrollable._canvas]
        test    ebx, ebx
        jz      .finish

;        xor     eax, eax
;        mov     ecx, [esi+TScrollable._width]
;        mov     edx, [esi+TScrollable._height]
;        stdcall DrawSolidRect, ebx, 0, 0, ecx, edx, [GUI.clTreeViewBack]

; Free the previous stored images.

        stdcall DestroyImage, [esi+TScrollable._BackGroundH]
        stdcall DestroyImage, [esi+TScrollable._BackGroundV]

; Create new
................................................................................
        mov     ecx, [esi+TScrollable._width + edi]

        sub     eax, [esi+TScrollable._drag_ofs]
        lea     edx, [esi+TScrollable._scrX + 4*edi]

        stdcall _SetSliderPos2, edx, eax, ecx

;        exec    esi, TScrollable:DrawScrollbars
        exec    esi, TWindow:EventScroll, ebx, scTrack, [edx+TScroller.pos]
        jmp     .state_ok

endp



Changes to freshlib/macros/_realobjects.inc.

424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
          pop eax
        end if
      end if
    else        ; by method
      push eax
      if defined class\#.\#par\#.set.arg
        if class\#.\#par\#.set.arg = 2
          exec obj, class\#:\#par\#.set, class\#:\#par, value
        else
          if class\#.\#par\#.set.arg = 1
            exec obj, class\#:\#par\#.set, value
          else
            disp 2, "Error! The set method can have only 1 or 2 arguments in this implementation.", 13, 10
            err
          end if







|







424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
          pop eax
        end if
      end if
    else        ; by method
      push eax
      if defined class\#.\#par\#.set.arg
        if class\#.\#par\#.set.arg = 2
          exec obj, class\#:\#par\#.set, class\#.\#par, value
        else
          if class\#.\#par\#.set.arg = 1
            exec obj, class\#:\#par\#.set, value
          else
            disp 2, "Error! The set method can have only 1 or 2 arguments in this implementation.", 13, 10
            err
          end if

Changes to freshlib/test_code0/TestAsmEdit.asm.

72
73
74
75
76
77
78
79
80
81
82





83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
          ObjTemplate  tfChild, TButton, btnRedo,               \
                     SplitCell = SplitTest.cellRedo,            \
                     Caption = "R",                             \
                     Visible = TRUE, \
                     OnClick = DoRedo


          ObjTemplate  tfChild or tfEnd, TScrollable, AsmEdit,     \
                     x = 10, y = 40, width = 200, height = 200, \
                     MaxX = 1000, PosX = 500, PageX = 100,        \
                     MaxY = 1000, PosY = 500, PageY = 100,        \





                     SplitCell = SplitTest.cellAsmEdit,         \
                     Visible = TRUE

;          ObjTemplate  tfChild or tfEnd, TAsmEdit, AsmEdit,     \
;                     x = 10, y = 40, width = 200, height = 200, \
;                     SplitCell = SplitTest.cellAsmEdit,         \
;                     Visible = TRUE


;utf8_long file "unicode_test.txt"
utf8_long file "test_utf8.asm"
          dd   0










|
|
|
|
>
>
>
>
>



<
<
<
<
<







72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90





91
92
93
94
95
96
97
          ObjTemplate  tfChild, TButton, btnRedo,               \
                     SplitCell = SplitTest.cellRedo,            \
                     Caption = "R",                             \
                     Visible = TRUE, \
                     OnClick = DoRedo


;          ObjTemplate  tfChild or tfEnd, TScrollable, AsmEdit,     \
;                     x = 10, y = 40, width = 200, height = 200, \
;                     MaxX = 1000, PosX = 500, PageX = 100,        \
;                     MaxY = 1000, PosY = 500, PageY = 100,        \
;                     SplitCell = SplitTest.cellAsmEdit,         \
;                     Visible = TRUE

          ObjTemplate  tfChild or tfEnd, TAsmEdit, AsmEdit,     \
                     x = 10, y = 40, width = 200, height = 200, \
                     SplitCell = SplitTest.cellAsmEdit,         \
                     Visible = TRUE







;utf8_long file "unicode_test.txt"
utf8_long file "test_utf8.asm"
          dd   0