bigger fonts in docpack; move /system/clip to /other/outdated/

git-svn-id: svn://kolibrios.org@6267 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/system/docpack/trunk/build.bat

@@ -1,3 +0,0 @@
-@fasm -m 32768 docpack.asm docpack
-@kpack docpack
-@pause

programs/system/docpack/trunk/build_en.bat

@@ -0,0 +1,6 @@
+@erase lang.inc
+@echo lang fix en >lang.inc
+@fasm -m 32768 docpack.asm docpack
+@erase lang.inc
+@kpack docpack
+@pause

programs/system/docpack/trunk/build_ru.bat

@@ -0,0 +1,6 @@
+@erase lang.inc
+@echo lang fix ru >lang.inc
+@fasm -m 32768 docpack.asm docpack
+@erase lang.inc
+@kpack docpack
+@pause

programs/system/docpack/trunk/docpack.asm

@@ -104,44 +104,50 @@ red:
 
   mcall 12,1
 
+BTN_H equ 21
+  
   mov  edx,[sc.work]
   or   edx,0x34000000
-  mcall 0, <220,120>, <30,FILECOUNT*16+35>, , ,title
+  mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title
 
   mov   ecx,FILECOUNT
-  mov   ebx,5 shl 16+100
+  mov   ebx,23 shl 16+100
   mov   esi,[sc.work_button]
-  mov   edi,5 shl 16+14
+  mov   edi,5 shl 16+BTN_H
   mov   edx,10
   mov   eax,8
  .btnlp:
   push  ecx
   mcall ,,edi
-  add   edi,16 shl 16
+  add   edi,(BTN_H+3) shl 16
   inc   edx
   pop   ecx
   loop  .btnlp
   mov   ecx,FILECOUNT
   mov   edx,embedded
   xor   edi,edi
-  mov   ebx,25 shl 16+8
+  mov   ebx,30 shl 16+8
   mov   eax,4
  .list:
   lea   edx,[edx+edi+8]
   mov   edi,[edx-8]
   pusha
-  sub   ebx,15 shl 16
-  mcall ,,0xff0000,my_param,1
+  sub   ebx,20 shl 16
+  mov ecx, [sc.work_text]
+  or  ecx, 0x30000000
+  mcall ,,,my_param,1
   inc   [my_param]
   popa
   push  ecx
   mov esi, [edx-4]
   sub esi, 4 ;remove .txt extension
-  mcall ,,[sc.work_button_text]
+  mov ecx, [sc.work_button_text]
+  or  ecx, 0x30000000
+  mcall
   pop   ecx
   add   esi, 4
   add   edx, esi
-  add   ebx,16
+  add   ebx,(BTN_H+3)
   loop  .list
   mcall 12,2