Tinypad: integer zoom feature

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

programs/develop/tinypad/trunk/data/tp-defines.inc

@@ -37,3 +37,5 @@ define mm.Options.AutoIndents  set_opt.auto_indents
 define mm.Options.SmartTabs    0
 define mm.Options.OptimalFill  set_opt.optimal_fill
 define mm.Options.LineNumbers  set_opt.line_numbers
+define mm.Options.ZoomIn       key.ctrl_plus
+define mm.Options.ZoomOut      key.ctrl_minus

programs/develop/tinypad/trunk/data/tp-idata.inc

@@ -1,11 +1,12 @@
 
-vscrl_capt dd -1
-hscrl_capt dd -1
-body_capt  dd -1
-
-ins_mode db 1
-
-s_status dd 0
+vscrl_capt	dd	-1
+hscrl_capt	dd	-1
+body_capt	dd	-1
+s_status	dd	0
+lineHeight	dd	LINEH
+charWidth	dd	6
+scale		db	0
+ins_mode	db	1
 
 sz app_fasm    ,'/rd/1/develop/fasm',0
 sz app_board   ,'/rd/1/develop/board',0

programs/develop/tinypad/trunk/data/tp-locale.inc

@@ -9,12 +9,12 @@ menubar_res main_menu,\
   ru,'Š®¤¨à®¢ª ',mm.Encoding,onshow.recode ,\
   ru,'Ž¯æ¨¨'	,mm.Options ,onshow.options,\
 \
-  en,'File'    ,mm.File    ,onshow.file   ,\
-  en,'Edit'    ,mm.Edit    ,onshow.edit   ,\
-  en,'Search'  ,mm.Search  ,onshow.search ,\
-  en,'Run'     ,mm.Run	   ,onshow.run	  ,\
-  en,'Encoding',mm.Encoding,onshow.recode ,\
-  en,'Options' ,mm.Options ,onshow.options,\
+  en,'File'	,mm.File    ,onshow.file   ,\
+  en,'Edit'	,mm.Edit    ,onshow.edit   ,\
+  en,'Search'	,mm.Search  ,onshow.search ,\
+  en,'Run'	,mm.Run     ,onshow.run    ,\
+  en,'Encoding'	,mm.Encoding,onshow.recode ,\
+  en,'Options'	,mm.Options ,onshow.options,\
 \
   et,'Fail'	,mm.File    ,onshow.file   ,\
   et,'Muuda'	,mm.Edit    ,onshow.edit   ,\
@@ -23,183 +23,191 @@ menubar_res main_menu,\
   et,'Kodeering',mm.Encoding,onshow.recode ,\
   et,'Seaded'	,mm.Options ,onshow.options,\
 \
-  sp,'Archivo' ,mm.File    ,onshow.file   ,\
-  sp,'Editar'  ,mm.Edit    ,onshow.edit   ,\
-  sp,'Buscar' ,mm.Search  ,onshow.search ,\
-  sp,'Ejecutar'  ,mm.Run     ,onshow.run    ,\
-  sp,'Codificación',mm.Encoding,onshow.recode ,\
-  sp,'Opciones' ,mm.Options ,onshow.options
+  sp,'Archivo'	,mm.File    ,onshow.file   ,\
+  sp,'Editar'	,mm.Edit    ,onshow.edit   ,\
+  sp,'Buscar'	,mm.Search  ,onshow.search ,\
+  sp,'Ejecutar'	,mm.Run     ,onshow.run    ,\
+  sp,'Codificación',mm.Encoding,onshow.recode,\
+  sp,'Opciones'	,mm.Options ,onshow.options
 
 popup_res mm.File,\
-  ru,'�®¢ë©'	       ,'Ctrl+N'      ,New   ,\
-  ru,'Žâªàëâì...'      ,'Ctrl+O'      ,Open  ,\
-  ru,'‘®åà ­¨âì'       ,'Ctrl+S'      ,Save  ,\
+  ru,'�®¢ë©'	 ,'Ctrl+N'	,New	,\
+  ru,'Žâªàëâì...','Ctrl+O'	,Open	,\
+  ru,'‘®åà ­¨âì' ,'Ctrl+S'	,Save	,\
   ru,'‘®åà ­¨âì ª ª...','Ctrl+Shift+S',SaveAs,\
-  ru,'-'	       ,''	      ,      ,\
-  ru,'‡ ªàëâì'	       ,'Ctrl+F4'     ,Close ,\
-  ru,'-'	       ,''	      ,      ,\
-  ru,'‚ë室'	       ,'Alt+X'       ,Exit  ,\
+  ru,'-','',,\
+  ru,'‡ ªàëâì'	 ,'Ctrl+F4'	,Close	,\
+  ru,'-','',,\
+  ru,'‚ë室'	 ,'Alt+X'	,Exit	,\
 \
-  en,'New'	 ,'Ctrl+N'	,New   ,\
-  en,'Open...'	 ,'Ctrl+O'	,Open  ,\
-  en,'Save'	 ,'Ctrl+S'	,Save  ,\
-  en,'Save as...','Ctrl+Shift+S',SaveAs,\
-  en,'-'	 ,''		,      ,\
-  en,'Close'	 ,'Ctrl+F4'	,Close ,\
-  en,'-'	 ,''		,      ,\
-  en,'Exit'	 ,'Alt+X'	,Exit,\
+  en,'New'	 ,'Ctrl+N'	,New	,\
+  en,'Open...'	 ,'Ctrl+O'	,Open	,\
+  en,'Save'	 ,'Ctrl+S'	,Save	,\
+  en,'Save as...','Ctrl+Shift+S',SaveAs	,\
+  en,'-','',,\
+  en,'Close'	 ,'Ctrl+F4'	,Close	,\
+  en,'-','',,\
+  en,'Exit'	 ,'Alt+X'	,Exit	,\
 \
-  et,'Uus'		 ,'Ctrl+N'	,New   ,\
-  et,'Ava...'		 ,'Ctrl+O'	,Open  ,\
-  et,'Salvesta' 	 ,'Ctrl+S'	,Save  ,\
+  et,'Uus'	,'Ctrl+N'	,New	,\
+  et,'Ava...'	,'Ctrl+O'	,Open	,\
+  et,'Salvesta'	,'Ctrl+S'	,Save	,\
   et,'Salvesta nimega...','Ctrl+Shift+S',SaveAs,\
-  et,'-'		 ,''		,      ,\
-  et,'Sulge'		 ,'Ctrl+F4'	,Close ,\
-  et,'-'		 ,''		,      ,\
-  et,'Välju'		 ,'Alt+X'	,Exit,\
+  et,'-','',,\
+  et,'Sulge'	,'Ctrl+F4'	,Close	,\
+  et,'-','',,\
+  et,'Välju'	,'Alt+X'	,Exit	,\
 \
-  sp,'Nuevo'   ,'Ctrl+N'  ,New	 ,\
-  sp,'Abrir...'   ,'Ctrl+O'  ,Open  ,\
-  sp,'Guardar'	,'Ctrl+S'  ,Save  ,\
+  sp,'Nuevo'	,'Ctrl+N' ,New	,\
+  sp,'Abrir...'	,'Ctrl+O' ,Open	,\
+  sp,'Guardar'	,'Ctrl+S' ,Save	,\
   sp,'Guardar como...','Ctrl+Shift+S',SaveAs,\
-  sp,'-'   ,''	  ,	 ,\
-  sp,'Cerrar'	,'Ctrl+F4' ,Close ,\
-  sp,'-'   ,''	  ,	 ,\
-  sp,'Salir'  ,'Alt+X' ,Exit
+  sp,'-','',,\
+  sp,'Cerrar'	,'Ctrl+F4',Close,\
+  sp,'-','',,\
+  sp,'Salir'	,'Alt+X'  ,Exit
 
 popup_res mm.Edit,\
-  ru,'‚ë१ âì'    ,'Ctrl+X',Cut   ,\
-  ru,'Š®¯¨à®¢ âì'  ,'Ctrl+C',Copy  ,\
-  ru,'‚áâ ¢¨âì'    ,'Ctrl+V',Insert,\
-  ru,'“¤ «¨âì'	   ,''	    ,Delete,\
-  ru,'-'	   ,''	    ,	   ,\
-  ru,'‚뤥«¨âì ¢áñ','Ctrl+A',SelAll,\
+  ru,'‚ë१ âì'		,'Ctrl+X',Cut	,\
+  ru,'Š®¯¨à®¢ âì'	,'Ctrl+C',Copy	,\
+  ru,'‚áâ ¢¨âì'		,'Ctrl+V',Insert,\
+  ru,'“¤ «¨âì'		,''	 ,Delete,\
+  ru,'-','',,\
+  ru,'‚뤥«¨âì ¢áñ'	,'Ctrl+A',SelAll,\
 \
-  en,'Cut'	 ,'Ctrl+X',Cut	 ,\
+  en,'Cut'	 ,'Ctrl+X',Cut   ,\
   en,'Copy'	 ,'Ctrl+C',Copy  ,\
   en,'Paste'	 ,'Ctrl+V',Insert,\
   en,'Delete'	 ,''	  ,Delete,\
-  en,'-'	 ,''	  ,	 ,\
+  en,'-','',,\
   en,'Select all','Ctrl+A',SelAll,\
 \
-  et,'Lõika'	 ,'Ctrl+X',Cut	 ,\
-  et,'Kopeeri'	 ,'Ctrl+C',Copy  ,\
-  et,'Kleebi'	 ,'Ctrl+V',Insert,\
-  et,'Kustuta'	 ,''	  ,Delete,\
-  et,'-'	 ,''	  ,	 ,\
-  et,'Vali kõik' ,'Ctrl+A',SelAll,\
+  et,'Lõika'	,'Ctrl+X',Cut	,\
+  et,'Kopeeri'	,'Ctrl+C',Copy	,\
+  et,'Kleebi'	,'Ctrl+V',Insert,\
+  et,'Kustuta'	,''	 ,Delete,\
+  et,'-','',,\
+  et,'Vali kõik','Ctrl+A',SelAll,\
 \
   sp,'Cortar'	,'Ctrl+X',Cut	,\
-  sp,'Copiar'  ,'Ctrl+C',Copy  ,\
-  sp,'Pegar'   ,'Ctrl+V',Insert,\
-  sp,'Eliminar'  ,''	,Delete,\
-  sp,'-'   ,''	  ,  ,\
+  sp,'Copiar'	,'Ctrl+C',Copy	,\
+  sp,'Pegar'	,'Ctrl+V',Insert,\
+  sp,'Eliminar'	,''	 ,Delete,\
+  sp,'-','',,\
   sp,'Seleccionar todo','Ctrl+A',SelAll
 
 popup_res mm.Search,\
   ru,'�¥à¥©â¨...' ,'Ctrl+G',Position,\
-  ru,'-'	  ,''	   ,	    ,\
+  ru,'-','',,\
   ru,'� ©â¨...'   ,'Ctrl+F',Find    ,\
   ru,'� ©â¨ ¤ «¥¥','F3'    ,FindNext,\
   ru,'‡ ¬¥­¨âì...','Ctrl+H',Replace ,\
 \
   en,'Position...','Ctrl+G',Position,\
-  en,'-'	  ,''	   ,	    ,\
-  en,'Find...'	  ,'Ctrl+F',Find    ,\
+  en,'-','',,\
+  en,'Find...'    ,'Ctrl+F',Find    ,\
   en,'Find next'  ,'F3'    ,FindNext,\
   en,'Replace...' ,'Ctrl+H',Replace ,\
 \
   et,'Positsioon...','Ctrl+G',Position,\
-  et,'-'	    ,''      ,	      ,\
-  et,'Leia...'	    ,'Ctrl+F',Find    ,\
+  et,'-','',,\
+  et,'Leia...'      ,'Ctrl+F',Find    ,\
   et,'Leia järgmine','F3'    ,FindNext,\
   et,'Asenda...'    ,'Ctrl+H',Replace ,\
 \
-  sp,'Posición...','Ctrl+G',Position,\
-  sp,'-'    ,''    ,	  ,\
+  sp,'Posición...'  ,'Ctrl+G',Position,\
+  sp,'-','',,\
   sp,'Buscar...'    ,'Ctrl+F',Find    ,\
-  sp,'Buscar siguiente'  ,'F3'	  ,FindNext,\
-  sp,'Reemplazar...' ,'Ctrl+H',Replace
+  sp,'Buscar siguiente','F3' ,FindNext,\
+  sp,'Reemplazar...','Ctrl+H',Replace
 
 popup_res mm.Run,\
-  ru,'‡ ¯ãáâ¨âì'	,'F9'	  ,Run	   ,\
+  ru,'‡ ¯ãáâ¨âì'	,'F9'	  ,Run     ,\
   ru,'‡ ¯ãáâ¨âì ¢ ¤¥¡ ££¥à¥','F10',Debug   ,\
   ru,'Š®¬¯¨«¨à®¢ âì'	,'Ctrl+F9',Compile ,\
-  ru,'-'		,''	  ,	   ,\
+  ru,'-','',,\
   ru,'„®áª  ®â« ¤ª¨'	,''	  ,DbgBoard,\
   ru,'‘¨á⥬­ë¥ ä㭪樨',''	  ,SysFuncs,\
 \
-  en,'Run'		,'F9'	  ,Run	   ,\
+  en,'Run'		,'F9'	  ,Run     ,\
   en,'Run in debugger'	,'F10'	  ,Debug   ,\
   en,'Compile'		,'Ctrl+F9',Compile ,\
-  en,'-'		,''	  ,	   ,\
+  en,'-','',,\
   en,'Debug board'	,''	  ,DbgBoard,\
-  en,'System functions' ,''	  ,SysFuncs,\
+  en,'System functions'	,''	  ,SysFuncs,\
 \
-  et,'Käivita'		,'F9'	  ,Run	   ,\
-  et,'Käivita aastal siluri'	 ,'F10'    ,Debug   ,\
+  et,'Käivita'		,'F9'	  ,Run     ,\
+  et,'Käivita aastal siluri','F10',Debug   ,\
   et,'Kompileeri'	,'Ctrl+F9',Compile ,\
-  et,'-'		,''	  ,	   ,\
+  et,'-','',,\
   et,'Silumis paneel'	,''	  ,DbgBoard,\
-  et,'Süsteemi funktsioonid' ,''	  ,SysFuncs,\
+  et,'Süsteemi funktsioonid',''	  ,SysFuncs,\
 \
-  sp,'Ejecutar'    ,'F9'   ,Run     ,\
-  sp,'Ejecutar en el depurador'     ,'F10'    ,Debug   ,\
-  sp,'Compilar'    ,'Ctrl+F9',Compile ,\
-  sp,'-'    ,''   ,    ,\
-  sp,'Depuración'  ,''	 ,DbgBoard,\
-  sp,'Funciones del sistema' ,''   ,SysFuncs
+  sp,'Ejecutar'		,'F9'	  ,Run     ,\
+  sp,'Ejecutar en el depurador','F10',Debug,\
+  sp,'Compilar'		,'Ctrl+F9',Compile ,\
+  sp,'-','',,\
+  sp,'Depuración'	,''	  ,DbgBoard,\
+  sp,'Funciones del sistema'   ,'',SysFuncs
 
 popup_res mm.Encoding,\
   @!,<'CP866  ',0x1A,' CP1251'>,'',CP866.CP1251,\
   @!,<'CP1251 ',0x1A,' CP866' >,'',CP1251.CP866,\
-  @!,<'-'		      >,'',	       ,\
+  @!,<'-'>,'',,\
   @!,<'CP866  ',0x1A,' KOI8-R'>,'',CP866.KOI8R ,\
   @!,<'KOI8-R ',0x1A,' CP866' >,'',KOI8R.CP866 ,\
-  @!,<'-'		      >,'',	       ,\
+  @!,<'-'>,'',,\
   @!,<'CP1251 ',0x1A,' KOI8-R'>,'',CP1251.KOI8R,\
   @!,<'KOI8-R ',0x1A,' CP1251'>,'',KOI8R.CP1251
 
 popup_res mm.Options,\
-  ru,'‚­¥è­¨© ¢¨¤...'	     ,'',Appearance  ,\
-  ru,'-'		     ,'',	     ,\
-  ru,'�¥§®¯ á­®¥ ¢ë¤¥«¥­¨¥'  ,'',SecureSel   ,\
-  ru,'€¢â®¬ â¨ç¥áª¨¥ ᪮¡ª¨' ,'',AutoBrackets,\
-  ru,'€¢â®¬ â¨ç¥áª¨© ®âáâã¯' ,'',AutoIndents ,\
-  ru,'“¬­ ï â ¡ã«ïæ¨ï'	     ,'',SmartTabs   ,\
-  ru,'Ž¯â¨¬ «ì­®¥ á®åà ­¥­¨¥','',OptimalFill ,\
-  ru,'-'		     ,'',	     ,\
-  ru,'�®¬¥à  áâப'	     ,'',LineNumbers ,\
+  ru,'“¢¥«¨ç¨âì'	  ,'Ctrl +',ZoomIn	,\
+  ru,'“¬¥­ìè¨âì'	  ,'Ctrl -',ZoomOut	,\
+  ru,'-','',,\
+  ru,'�®¬¥à  áâப'		,'',LineNumbers	,\
+  ru,'�¥§®¯ á­®¥ ¢ë¤¥«¥­¨¥'	,'',SecureSel	,\
+  ru,'€¢â®¬ â¨ç¥áª¨¥ ᪮¡ª¨'	,'',AutoBrackets,\
+  ru,'€¢â®¬ â¨ç¥áª¨© ®âáâã¯'	,'',AutoIndents	,\
+  ru,'“¬­ ï â ¡ã«ïæ¨ï'		,'',SmartTabs	,\
+  ru,'Ž¯â¨¬ «ì­®¥ á®åà ­¥­¨¥'	,'',OptimalFill	,\
+  ru,'-','',,\
+  ru,'‚­¥è­¨© ¢¨¤...'		,'',Appearance	,\
 \
-  en,'Appearance...'	     ,'',Appearance  ,\
-  en,'-'		     ,'',	     ,\
-  en,'Secure selection'      ,'',SecureSel   ,\
-  en,'Automatic brackets'    ,'',AutoBrackets,\
-  en,'Automatic indents'     ,'',AutoIndents ,\
-  en,'Smart tabulation'      ,'',SmartTabs   ,\
-  en,'Optimal fill on saving','',OptimalFill ,\
-  en,'-'		     ,'',	     ,\
-  en,'Line numbers'	     ,'',LineNumbers ,\
+  en,'Zoom in'		  ,'Ctrl +',ZoomIn	,\
+  en,'Zoom out'		  ,'Ctrl -',ZoomOut	,\
+  en,'-','',,\
+  en,'Line numbers'		,'',LineNumbers	,\
+  en,'Secure selection'		,'',SecureSel	,\
+  en,'Automatic brackets'	,'',AutoBrackets,\
+  en,'Automatic indents'	,'',AutoIndents	,\
+  en,'Smart tabulation'		,'',SmartTabs	,\
+  en,'Optimal fill on saving'	,'',OptimalFill	,\
+  en,'-','',,\
+  en,'Appearance...'		,'',Appearance	,\
 \
-  et,'Välimus...'	     ,'',Appearance  ,\
-  et,'-'		     ,'',	     ,\
-  et,'Turvaline valimine'      ,'',SecureSel   ,\
-  et,'Automaatsed sulud'     ,'',AutoBrackets,\
-  et,'Automaatsed taandread' ,'',AutoIndents ,\
-  et,'Tark tabulatsioon'     ,'',SmartTabs   ,\
-  et,'Optimaalne täitmine salvestamisel','',OptimalFill ,\
-  et,'-'		     ,'',	     ,\
-  et,'Rea numbrid'	     ,'',LineNumbers ,\
+  et,'Zoom in'		  ,'Ctrl +',ZoomIn	,\
+  et,'Zoom out'		  ,'Ctrl -',ZoomOut	,\
+  et,'-','',,\
+  et,'Rea numbrid'		,'',LineNumbers	,\
+  et,'Turvaline valimine'	,'',SecureSel	,\
+  et,'Automaatsed sulud'	,'',AutoBrackets,\
+  et,'Automaatsed taandread'	,'',AutoIndents	,\
+  et,'Tark tabulatsioon'	,'',SmartTabs	,\
+  et,'Optimaalne täitmine salvestamisel','',OptimalFill,\
+  et,'-','',,\
+  et,'Välimus...'		,'',Appearance	,\
 \
-  sp,'Apariencia...'	   ,'',Appearance  ,\
-  sp,'-'	 ,'',	   ,\
-  sp,'Selección segura'      ,'',SecureSel   ,\
-  sp,'Paréntesis automáticos'	 ,'',AutoBrackets,\
-  sp,'Identación automática'	 ,'',AutoIndents ,\
-  sp,'Tabulación inteligente'	   ,'',SmartTabs   ,\
-  sp,'Llenado óptimo al guardar','',OptimalFill ,\
-  sp,'-'	 ,'',	   ,\
-  sp,'Números en líneas'      ,'',LineNumbers
+  sp,'Zoom in'		  ,'Ctrl +',ZoomIn	,\
+  sp,'Zoom out'		  ,'Ctrl -',ZoomOut	,\
+  sp,'-','',,\
+  sp,'Números en líneas'	,'',LineNumbers	,\
+  sp,'Selección segura'		,'',SecureSel	,\
+  sp,'Paréntesis automáticos'	,'',AutoBrackets,\
+  sp,'Identación automática'	,'',AutoIndents	,\
+  sp,'Tabulación inteligente'	,'',SmartTabs	,\
+  sp,'Llenado óptimo al guardar','',OptimalFill	,\
+  sp,'-','',,\
+  sp,'Apariencia...'		,'',Appearance
 
 lsz s_defname,\
   en,<'Untitled',0>,\

programs/develop/tinypad/trunk/data/tp-tables.inc

@@ -83,6 +83,8 @@ accel_table_main dd		    \
   0x00010150,key.shift_down	   ,\ ; Shift+Down
   0x00010151,key.shift_pgdn	   ,\ ; Shift+PageDown
   0x00010153,key.del		   ,\ ; Shift+Delete
+  0x0002000C,key.ctrl_minus	   ,\ ; Ctrl+Minus
+  0x0002000D,key.ctrl_plus	   ,\ ; Ctrl+Plus
   0x0002000F,key.ctrl_tab	   ,\ ; Ctrl+Tab
   0x00020015,key.ctrl_y 	   ,\ ; Ctrl+Y
   0x00020018,key.ctrl_o 	   ,\ ; Ctrl+O
@@ -108,6 +110,7 @@ accel_table_main dd		    \
 \;0x00020150,key.ctrl_down         ,\ ; Ctrl+Down
   0x00020151,key.ctrl_pgdn	   ,\ ; Ctrl+PageDown
   0x00020153,key.del		   ,\ ; Ctrl+Del
+  0x0003000D,key.ctrl_plus	   ,\ ; Ctrl+Plus
   0x0003000F,key.shift_ctrl_tab    ,\ ; Shift+Ctrl+Tab
   0x0003001F,key.shift_ctrl_s	   ,\ ; Shift+Ctrl+S
   0x00030147,key.shift_ctrl_home   ,\ ; Shift+Ctrl+Home