Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 485 Rev 502
Line 226... Line 226...
226
    mov ebx,1
226
    mov ebx,1
227
    mcall
227
    mcall
228
        movzx   ebx, ax         ; y
228
        movzx   ebx, ax         ; y
229
        shr     eax, 16         ; x
229
        shr     eax, 16         ; x
230
    mov ebp,eax
230
    mov ebp,eax
231
    sub ebp,[listx] ;[procinfo.box.left]
231
    sub ebp,[listx] ;[procinfo.box.width]
232
    sub ebp,[listxsize]
232
    sub ebp,[listxsize]
233
    add ebp,[scrollsize]
233
    add ebp,[scrollsize]
234
    cmp ebp,dword [scrollsize] ;8
234
    cmp ebp,dword [scrollsize] ;8
235
    jae menu_test ; still
235
    jae menu_test ; still
Line 1026... Line 1026...
1026
 
1026
 
1027
screen:
1027
screen:
1028
    cmp [browser], 1 ;it's browser?
1028
    cmp [browser], 1 ;it's browser?
Line 1029... Line 1029...
1029
    jne dialogscr
1029
    jne dialogscr
1030
 
1030
 
1031
    mov eax,[procinfo.box.top]
1031
    mov eax,[procinfo.box.height]
1032
    sub eax,90
1032
    sub eax,90
1033
    drawfbox 40,76,300,eax,0x00000000
1033
    drawfbox 40,76,300,eax,0x00000000
1034
    mov eax,[procinfo.box.top]
1034
    mov eax,[procinfo.box.height]
1035
    sub eax,92
1035
    sub eax,92
1036
    drawfbox 41,77,298,eax,0x00ffffff
1036
    drawfbox 41,77,298,eax,0x00ffffff
1037
    mov edi,esi ;14
1037
    mov edi,esi ;14
1038
    mov ebx,(41+26)*65536+(77+20)
1038
    mov ebx,(41+26)*65536+(77+20)
1039
    mov ecx,cl_Black
1039
    mov ecx,cl_Black
Line 1040... Line 1040...
1040
    mov edx,ebp ;help_text
1040
    mov edx,ebp ;help_text
1041
    jmp outlab
1041
    jmp outlab
1042
 
1042
 
1043
dialogscr:
1043
dialogscr:
1044
    mov eax,[procinfo.box.top]
1044
    mov eax,[procinfo.box.height]
1045
    sub eax,84
1045
    sub eax,84
1046
    drawfbox 16,54,270,eax,0x00000000
1046
    drawfbox 16,54,270,eax,0x00000000
1047
    mov eax,[procinfo.box.top]
1047
    mov eax,[procinfo.box.height]
1048
    sub eax,86
1048
    sub eax,86
1049
    drawfbox 17,55,268,eax,0x00ffffff
1049
    drawfbox 17,55,268,eax,0x00ffffff
Line 1143... Line 1143...
1143
 
1143
 
1144
;    mov eax,9
1144
;    mov eax,9
1145
;    mov ebx,procinfo
1145
;    mov ebx,procinfo
1146
;    mov ecx,-1
1146
;    mov ecx,-1
1147
;    mcall
1147
;    mcall
1148
;    mov  eax,[procinfo.box.left]
1148
;    mov  eax,[procinfo.box.width]
1149
;    cmp  eax,66
1149
;    cmp  eax,66
1150
;    jg  temp12345
1150
;    jg  temp12345
1151
;    ret
1151
;    ret
1152
; temp12345:
1152
; temp12345:
Line 1184... Line 1184...
1184
    mov eax,9
1184
    mov eax,9
1185
    mov ebx,procinfo
1185
    mov ebx,procinfo
1186
    mov ecx,-1
1186
    mov ecx,-1
1187
    mcall
1187
    mcall
Line 1188... Line 1188...
1188
 
1188
 
1189
    mov  eax,[procinfo.box.left]
1189
    mov  eax,[procinfo.box.width]
1190
    cmp  eax,66
1190
    cmp  eax,66
1191
    jg	 @f
1191
    jg	 @f
1192
.ret:
1192
.ret:
1193
    ret
1193
    ret
1194
 @@:
1194
 @@:
1195
    cmp  [procinfo.box.top], 0x70
1195
    cmp  [procinfo.box.height], 0x70
Line 1196... Line 1196...
1196
    jl  .ret
1196
    jl  .ret
1197
 
1197
 
1198
    cmp  [browser], 1 ;it's browser
1198
    cmp  [browser], 1 ;it's browser
1199
    jne  nob9
1199
    jne  nob9
1200
    mov  [listx],120
1200
    mov  [listx],120
1201
;    mov  eax,[procinfo.box.left]
1201
;    mov  eax,[procinfo.box.width]
1202
    sub  eax,127;[listx]+7
1202
    sub  eax,127;[listx]+7
1203
    cmp  eax,10
1203
    cmp  eax,10
1204
    jl   .ret
1204
    jl   .ret
1205
    mov  [listxsize],eax
1205
    mov  [listxsize],eax
1206
    mov  [listy],73
1206
    mov  [listy],73
1207
    mov  eax,[procinfo.box.top]
1207
    mov  eax,[procinfo.box.height]
1208
    sub  eax,73+7;[listy]+7
1208
    sub  eax,73+7;[listy]+7
1209
    mov  [listysize],eax
1209
    mov  [listysize],eax
1210
    jmp isb9
1210
    jmp isb9
1211
nob9:
1211
nob9:
1212
    mov  [listx],10
1212
    mov  [listx],10
1213
;    mov  eax,[procinfo.box.left]
1213
;    mov  eax,[procinfo.box.width]
1214
    sub  eax,17 ;[listx]+7
1214
    sub  eax,17 ;[listx]+7
1215
    mov  [listxsize],eax
1215
    mov  [listxsize],eax
1216
    mov  [listy],54
1216
    mov  [listy],54
1217
    mov  eax,[procinfo.box.top]
1217
    mov  eax,[procinfo.box.height]
1218
    sub  eax,54+34;[listy]+34
1218
    sub  eax,54+34;[listy]+34
Line 1246... Line 1246...
1246
 
1246
 
1247
;File STRING
1247
;File STRING
Line 1248... Line 1248...
1248
    glabel 8,25,'  FILE    VIEW    INFO  ',  cl_White ;Black
1248
    glabel 8,25,'  FILE    VIEW    INFO  ',  cl_White ;Black
1249
 
1249
 
1250
;BlackLine
1250
;BlackLine
1251
    mov eax,[procinfo.box.left]
1251
    mov eax,[procinfo.box.width]
Line 1252... Line 1252...
1252
    sub eax,10
1252
    sub eax,10
1253
    drawfbox 5,35, eax, 1, cl_Black
1253
    drawfbox 5,35, eax, 1, cl_Black
1254
 
1254
 
1255
;BlackLine2
1255
;BlackLine2
Line 1256... Line 1256...
1256
    mov eax,[procinfo.box.left]
1256
    mov eax,[procinfo.box.width]
1257
    sub eax,10
1257
    sub eax,10
1258
    drawfbox 5,68, eax, 1, cl_Black
1258
    drawfbox 5,68, eax, 1, cl_Black
1259
 
1259
 
Line 1260... Line 1260...
1260
;BlackLine2 vertical
1260
;BlackLine2 vertical
1261
;    mov eax,[procinfo.box.top]
1261
;    mov eax,[procinfo.box.height]
Line 1342... Line 1342...
1342
    cmp  [browser], 1 ;it's browser
1342
    cmp  [browser], 1 ;it's browser
1343
    jne  nob4
1343
    jne  nob4
1344
;But img browser
1344
;But img browser
1345
    setimg 10,37,butimg
1345
    setimg 10,37,butimg
1346
;left logo
1346
;left logo
1347
    add eax,[procinfo.box.left]
1347
    add eax,[procinfo.box.width]
1348
    sub eax,80
1348
    sub eax,80
1349
    mov [temp],eax
1349
    mov [temp],eax
1350
    setimg [temp],37,logoimg
1350
    setimg [temp],37,logoimg
1351
    jmp isb4
1351
    jmp isb4
1352
nob4:
1352
nob4:
Line 1357... Line 1357...
1357
    cmp  [browser], 1 ;it's browser
1357
    cmp  [browser], 1 ;it's browser
1358
    jne  nob5
1358
    jne  nob5
Line 1359... Line 1359...
1359
 
1359
 
1360
    mov [urlx],48
1360
    mov [urlx],48
1361
    mov [urly],55
1361
    mov [urly],55
1362
    mov eax,[procinfo.box.left]
1362
    mov eax,[procinfo.box.width]
1363
    sub eax,48+10
1363
    sub eax,48+10
1364
    mov [urlxsize],eax
1364
    mov [urlxsize],eax
Line 1365... Line 1365...
1365
    mov [urlysize],12
1365
    mov [urlysize],12
Line 1386... Line 1386...
1386
      db 'SAVE'
1386
      db 'SAVE'
Line 1387... Line 1387...
1387
 
1387
 
Line 1388... Line 1388...
1388
nob5:
1388
nob5:
1389
 
1389
 
1390
    mov [urlx],10
1390
    mov [urlx],10
1391
    mov eax,[procinfo.box.top]
1391
    mov eax,[procinfo.box.height]
1392
    sub eax,24
1392
    sub eax,24
1393
    mov [urly],eax
1393
    mov [urly],eax
1394
    mov eax,[procinfo.box.left]
1394
    mov eax,[procinfo.box.width]
1395
    sub eax,80
1395
    sub eax,80
Line 1396... Line 1396...
1396
    mov [urlxsize],eax
1396
    mov [urlxsize],eax
Line 1415... Line 1415...
1415
 
1415
 
1416
 
1416
 
1417
;Draw OPEN\SAVE button
1417
;Draw OPEN\SAVE button
1418
    mov ebx,0*65536+50
1418
    mov ebx,0*65536+50
1419
    mov ecx,0*65536+12
1419
    mov ecx,0*65536+12
1420
    mov eax,[procinfo.box.left]
1420
    mov eax,[procinfo.box.width]
1421
    sub eax,63
1421
    sub eax,63
1422
    shl eax,16
1422
    shl eax,16
1423
    add ebx,eax
1423
    add ebx,eax
1424
    mov eax,[procinfo.box.top]
1424
    mov eax,[procinfo.box.height]
1425
    sub eax,25
1425
    sub eax,25
1426
    shl eax,16
1426
    shl eax,16
1427
    add ecx,eax
1427
    add ecx,eax
1428
    mov  eax,8
1428
    mov  eax,8
1429
    mov  edx,5 ;button ID
1429
    mov  edx,5 ;button ID
Line 1430... Line 1430...
1430
    mov  esi,0x006699aa  ;gradient!!!
1430
    mov  esi,0x006699aa  ;gradient!!!
1431
    mcall
1431
    mcall
1432
 
1432
 
1433
; label OPEN or SAVE
1433
; label OPEN or SAVE
1434
    mov ebx,[procinfo.box.left]
1434
    mov ebx,[procinfo.box.width]
1435
    sub ebx,48
1435
    sub ebx,48
1436
    mov eax,[procinfo.box.top]
1436
    mov eax,[procinfo.box.height]
Line 1437... Line 1437...
1437
    sub eax,22
1437
    sub eax,22