📄 ui_pop_up_list.lst
字号:
\ 0622 CD0000 CALL LWRD ?SS_DIV_L02
\ 0625 DD6EF6 LD L,(IX-10)
\ 0628 DD66F7 LD H,(IX-9)
\ 062B A7 AND A
\ 062C ED52 SBC HL,DE
\ 062E 2013 JR NZ,?0043
\ 0630 ?0042:
241 {
242 old_active=active-1;
\ 0630 DD6EE0 LD L,(IX-32)
\ 0633 DD66E1 LD H,(IX-31)
\ 0636 2B DEC HL
\ 0637 DD75F2 LD (IX-14),L
\ 063A DD74F3 LD (IX-13),H
243 value_changed=TRUE;
\ 063D DD36FD01 LD (IX-3),1
244 }
245 else
\ 0641 1811 JR ?0045
\ 0643 ?0043:
246 need_draw = TRUE;
\ 0643 DD36FB01 LD (IX-5),1
\ 0647 ?0044:
247 }
248 else
\ 0647 180B JR ?0045
\ 0649 ?0041:
249 {
250 active = 0;
\ 0649 AF XOR A
\ 064A DD77E0 LD (IX-32),A
\ 064D DD77E1 LD (IX-31),A
251 need_draw = TRUE;
\ 0650 DD36FB01 LD (IX-5),1
\ 0654 ?0045:
252 }
253 if(callback != NULL)
\ 0654 DD7E0A LD A,(IX+10)
\ 0657 DDB60B OR (IX+11)
\ 065A DDB60C OR (IX+12)
\ 065D 2812 JR Z,?0047
\ 065F ?0046:
254 callback(active);
\ 065F DD5EE0 LD E,(IX-32)
\ 0662 DD56E1 LD D,(IX-31)
\ 0665 DD7E0C LD A,(IX+12)
\ 0668 DD6E0A LD L,(IX+10)
\ 066B DD660B LD H,(IX+11)
\ 066E CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0671 ?0047:
\ 0671 ?0049:
255 while(ap_get_message() != 0);
\ 0671 CD0000 CALL LWRD ap_get_message
\ 0674 B7 OR A
\ 0675 CA3600 JP Z,?0003
\ 0678 ?0050:
256 break;
\ 0678 18F7 JR ?0047
\ 067A ?0048:
\ 067A ?0051:
257
258
259 case AP_KEY_PREV:
260 case AP_KEY_PREV | AP_KEY_HOLD:
261 if(active > 0)
\ 067A DD4EE0 LD C,(IX-32)
\ 067D DD46E1 LD B,(IX-31)
\ 0680 210000 LD HL,0
\ 0683 F680 OR 128
\ 0685 ED42 SBC HL,BC
\ 0687 E28B06 JP PO,?0085
\ 068A AC XOR H
\ 068B ?0085:
\ 068B F2CB06 JP P,?0053
\ 068E ?0052:
262 {
263 active--;
\ 068E DD6EE0 LD L,(IX-32)
\ 0691 DD66E1 LD H,(IX-31)
\ 0694 2B DEC HL
\ 0695 DD75E0 LD (IX-32),L
\ 0698 DD74E1 LD (IX-31),H
264 if(active/LIST_NUM_ONE_PAGE==cur_group)
\ 069B 010600 LD BC,6
\ 069E DD5EE0 LD E,(IX-32)
\ 06A1 DD56E1 LD D,(IX-31)
\ 06A4 CD0000 CALL LWRD ?SS_DIV_L02
\ 06A7 DD6EF6 LD L,(IX-10)
\ 06AA DD66F7 LD H,(IX-9)
\ 06AD A7 AND A
\ 06AE ED52 SBC HL,DE
\ 06B0 2013 JR NZ,?0055
\ 06B2 ?0054:
265 {
266 old_active=active+1;
\ 06B2 DD6EE0 LD L,(IX-32)
\ 06B5 DD66E1 LD H,(IX-31)
\ 06B8 23 INC HL
\ 06B9 DD75F2 LD (IX-14),L
\ 06BC DD74F3 LD (IX-13),H
267 value_changed=TRUE;
\ 06BF DD36FD01 LD (IX-3),1
268 }
269 else
\ 06C3 1817 JR ?0057
\ 06C5 ?0055:
270 need_draw = TRUE;
\ 06C5 DD36FB01 LD (IX-5),1
\ 06C9 ?0056:
271 }
272 else
\ 06C9 1811 JR ?0057
\ 06CB ?0053:
273 {
274 active = list->total - 1;
\ 06CB FD6E02 LD L,(IY+2)
\ 06CE FD6603 LD H,(IY+3)
\ 06D1 2B DEC HL
\ 06D2 DD75E0 LD (IX-32),L
\ 06D5 DD74E1 LD (IX-31),H
275 need_draw = TRUE;
\ 06D8 DD36FB01 LD (IX-5),1
\ 06DC ?0057:
276 }
277 if(callback != NULL)
\ 06DC DD7E0A LD A,(IX+10)
\ 06DF DDB60B OR (IX+11)
\ 06E2 DDB60C OR (IX+12)
\ 06E5 2812 JR Z,?0059
\ 06E7 ?0058:
278 callback(active);
\ 06E7 DD5EE0 LD E,(IX-32)
\ 06EA DD56E1 LD D,(IX-31)
\ 06ED DD7E0C LD A,(IX+12)
\ 06F0 DD6E0A LD L,(IX+10)
\ 06F3 DD660B LD H,(IX+11)
\ 06F6 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 06F9 ?0059:
\ 06F9 ?0061:
279 while(ap_get_message() != 0);
\ 06F9 CD0000 CALL LWRD ap_get_message
\ 06FC B7 OR A
\ 06FD CA3600 JP Z,?0003
\ 0700 ?0062:
280 break;
\ 0700 18F7 JR ?0059
\ 0702 ?0060:
\ 0702 ?0063:
281
282
283
284 case AP_KEY_PLAY | AP_KEY_UP: //取消退出
285 SetPenColor(oldDC_sav.PenColor);
\ 0702 DD4EEC LD C,(IX-20)
\ 0705 DD46ED LD B,(IX-19)
\ 0708 DD5EEA LD E,(IX-22)
\ 070B DD56EB LD D,(IX-21)
\ 070E CD0000 CALL LWRD SetPenColor
286 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0711 210E00 LD HL,14
\ 0714 39 ADD HL,SP
\ 0715 5E LD E,(HL)
\ 0716 23 INC HL
\ 0717 56 LD D,(HL)
\ 0718 23 INC HL
\ 0719 4E LD C,(HL)
\ 071A 23 INC HL
\ 071B 46 LD B,(HL)
\ 071C CD0000 CALL LWRD SetBackgdColor
287 ///-SetTextOutMode(0); //设字体不透明
288 return RESULT_IGNORE;
\ 071F 213400 LD HL,52
289
290 case AP_KEY_MODE | AP_KEY_UP: //确认退出
\ 0722 C3BE07 JP LWRD ?0074
\ 0725 ?0064:
291 list->active = active;
\ 0725 DD6EE0 LD L,(IX-32)
\ 0728 DD66E1 LD H,(IX-31)
\ 072B FD7504 LD (IY+4),L
\ 072E FD7405 LD (IY+5),H
292 SetPenColor(oldDC_sav.PenColor);
\ 0731 DD4EEC LD C,(IX-20)
\ 0734 DD46ED LD B,(IX-19)
\ 0737 DD5EEA LD E,(IX-22)
\ 073A DD56EB LD D,(IX-21)
\ 073D CD0000 CALL LWRD SetPenColor
293 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0740 210E00 LD HL,14
\ 0743 39 ADD HL,SP
\ 0744 5E LD E,(HL)
\ 0745 23 INC HL
\ 0746 56 LD D,(HL)
\ 0747 23 INC HL
\ 0748 4E LD C,(HL)
\ 0749 23 INC HL
\ 074A 46 LD B,(HL)
\ 074B CD0000 CALL LWRD SetBackgdColor
294 ///-SetTextOutMode(0); //设字体不透明
295 return 0;
\ 074E 210000 LD HL,0
296
297 case AP_MSG_WAIT_TIMEOUT:
\ 0751 186B JR ?0074
\ 0753 ?0065:
298 if(ui_auto_select)
\ 0753 3A0000 LD A,(ui_auto_select)
\ 0756 B7 OR A
\ 0757 CA3600 JP Z,?0003
\ 075A ?0066:
299 {
300 SetPenColor(oldDC_sav.PenColor);
\ 075A DD4EEC LD C,(IX-20)
\ 075D DD46ED LD B,(IX-19)
\ 0760 DD5EEA LD E,(IX-22)
\ 0763 DD56EB LD D,(IX-21)
\ 0766 CD0000 CALL LWRD SetPenColor
301 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0769 210E00 LD HL,14
\ 076C 39 ADD HL,SP
\ 076D 5E LD E,(HL)
\ 076E 23 INC HL
\ 076F 56 LD D,(HL)
\ 0770 23 INC HL
\ 0771 4E LD C,(HL)
\ 0772 23 INC HL
\ 0773 46 LD B,(HL)
\ 0774 CD0000 CALL LWRD SetBackgdColor
302 ///-SetTextOutMode(0); //设字体不透明
303 return RESULT_IGNORE;
\ 0777 213400 LD HL,52
304 }
\ 077A 1842 JR ?0074
\ 077C ?0067:
305 break;
\ 077C ?0068:
306
307 default:
308 key = ap_handle_hotkey(key);
\ 077C DD5EFA LD E,(IX-6)
\ 077F CD0000 CALL LWRD ap_handle_hotkey
\ 0782 DD77FA LD (IX-6),A
309 if(key == RESULT_REDRAW) need_drawall = TRUE;
\ 0785 FE32 CP 50
\ 0787 2007 JR NZ,?0070
\ 0789 ?0069:
\ 0789 DD36FE01 LD (IX-2),1
310 else
\ 078D C33600 JP LWRD ?0003
\ 0790 ?0070:
311 if(key != 0)
\ 0790 AF XOR A
\ 0791 DDB6FA OR (IX-6)
\ 0794 CA3600 JP Z,?0003
\ 0797 ?0072:
312 {
313 SetPenColor(oldDC_sav.PenColor);
\ 0797⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -