Fresh IDE . Check-in [17dd2e2d8c]
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:A little bit more simple code.
Timelines: family | ancestors | descendants | both | NoCanvasGUI
Files: files | file ages | folders
SHA1:17dd2e2d8c7e9888d97af828eef99a18a8427164
User & Date: johnfound 2019-04-14 19:46:51
Context
2019-04-16
10:40
Fixed the Linux port WaitForSystemEvents procedure that caused hands sometimes (there is a message in the queue, but the procedure does not return).

The mouse.asm library refactored to use interface/body syntax.

ZeroMouseMove procedure introduced. It generates mouse move events, without moving mouse actually.

Work on the TAsmEdit control. As a result changed a little the Win32 message processing (WM_PAINT processed with higher priority).

Work on the different GUI controls in order to make them work with the new interfaces. check-in: fb9af5561c user: johnfound tags: NoCanvasGUI

2019-04-14
19:46
A little bit more simple code. check-in: 17dd2e2d8c user: johnfound tags: NoCanvasGUI
18:23
Added arguments for some functions in the import file for libX11. check-in: 65bf3ea577 user: johnfound tags: NoCanvasGUI
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to freshlib/test_code0/TestGraphics.asm.

89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
...
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
        FinalizeAll
        stdcall TerminateAll, 0



proc DemoPaint as TWindow.OnSelfPaint
begin
        pushad
        mov     edi, [.pDstImage]
        mov     esi, [imgBackground]

        stdcall LockImg, edi
        stdcall LockImg, esi

;        OutputValue "draw X=", [.xDst], 10, -1
;        OutputValue "draw Y=", [.yDst], 10, -1
;        OutputValue "draw W=", [.width], 10, -1
;        OutputValue "draw H=", [.height], 10, -1

        stdcall BlendImageTileWrap, edi, [.xDst], [.yDst], [.width], [.height], esi

        stdcall UnlockImg, esi
        stdcall UnlockImg, edi
        popad
        return
endp


proc OnKeyPress as TWindow.OnKeyPressed
begin
        cmp     [.utf8], 's'
................................................................................
        return


endp



proc Scroll, .application
.rect1 dd ?
begin
        pushad

        mov     esi, [frmMain]
        test    esi, esi
        jz      .finish







<
<
<
<
<
<
<
<
<
<
<
<
|
<
<
<
<







 







|







89
90
91
92
93
94
95












96




97
98
99
100
101
102
103
...
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
        FinalizeAll
        stdcall TerminateAll, 0



proc DemoPaint as TWindow.OnSelfPaint
begin












        stdcall BlendImageTileWrap, [.pDstImage], [.xDst], [.yDst], [.width], [.height], [imgBackground]




        return
endp


proc OnKeyPress as TWindow.OnKeyPressed
begin
        cmp     [.utf8], 's'
................................................................................
        return


endp



proc Scroll, .param
.rect1 dd ?
begin
        pushad

        mov     esi, [frmMain]
        test    esi, esi
        jz      .finish