Subversion Repositories Kolibri OS

Rev

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

Rev 5098 Rev 6267
Line 102... Line 102...
102 
 
 102 
 
Line 103... Line 103...
103 
  mcall 48, 3, sc, sizeof.system_colors
 103 
  mcall 48, 3, sc, sizeof.system_colors
Line -... Line 104...
- 
 
 104 
 
- 
 
 105 
  mcall 12,1
104 
 
 106 
 
105 
  mcall 12,1
 107 
BTN_H equ 21
106 
 
 108
Line 107... Line 109...
107 
  mov  edx,[sc.work]
 109 
  mov  edx,[sc.work]
108 
  or   edx,0x34000000
 110 
  or   edx,0x34000000
109 
  mcall 0, <220,120>, <30,FILECOUNT*16+35>, , ,title
 111 
  mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title
110 
 
 112 
 
111 
  mov   ecx,FILECOUNT
 113 
  mov   ecx,FILECOUNT
112 
  mov   ebx,5 shl 16+100
 114 
  mov   ebx,23 shl 16+100
113 
  mov   esi,[sc.work_button]
 115 
  mov   esi,[sc.work_button]
114 
  mov   edi,5 shl 16+14
 116 
  mov   edi,5 shl 16+BTN_H
115 
  mov   edx,10
 117 
  mov   edx,10
116 
  mov   eax,8
 118 
  mov   eax,8
117 
 .btnlp:
 119 
 .btnlp:
118 
  push  ecx
 120 
  push  ecx
119 
  mcall ,,edi
 121 
  mcall ,,edi
120 
  add   edi,16 shl 16
 122 
  add   edi,(BTN_H+3) shl 16
121 
  inc   edx
 123 
  inc   edx
122 
  pop   ecx
 124 
  pop   ecx
123 
  loop  .btnlp
 125 
  loop  .btnlp
124 
  mov   ecx,FILECOUNT
 126 
  mov   ecx,FILECOUNT
125 
  mov   edx,embedded
 127 
  mov   edx,embedded
126 
  xor   edi,edi
 128 
  xor   edi,edi
127 
  mov   ebx,25 shl 16+8
 129 
  mov   ebx,30 shl 16+8
128 
  mov   eax,4
 130 
  mov   eax,4
129 
 .list:
 131 
 .list:
- 
 
 132 
  lea   edx,[edx+edi+8]
- 
 
 133 
  mov   edi,[edx-8]
130 
  lea   edx,[edx+edi+8]
 134 
  pusha
131 
  mov   edi,[edx-8]
 135 
  sub   ebx,20 shl 16
132 
  pusha
 136 
  mov ecx, [sc.work_text]
133 
  sub   ebx,15 shl 16
 137 
  or  ecx, 0x30000000
134 
  mcall ,,0xff0000,my_param,1
 138 
  mcall ,,,my_param,1
135 
  inc   [my_param]
 139 
  inc   [my_param]
136 
  popa
 140 
  popa
- 
 
 141 
  push  ecx
- 
 
 142 
  mov esi, [edx-4]
137 
  push  ecx
 143 
  sub esi, 4 ;remove .txt extension
138 
  mov esi, [edx-4]
 144 
  mov ecx, [sc.work_button_text]
139 
  sub esi, 4 ;remove .txt extension
 145 
  or  ecx, 0x30000000
140 
  mcall ,,[sc.work_button_text]
 146 
  mcall
141 
  pop   ecx
 147 
  pop   ecx
142 
  add   esi, 4
 148 
  add   esi, 4
Line 143... Line 149...
143 
  add   edx, esi
 149 
  add   edx, esi
144 
  add   ebx,16
 150 
  add   ebx,(BTN_H+3)