Diseñador de RibbonBar - En desarrollo

[joseluisysturiz]

Saludos A.L., veo que no hay opcion para eliminar botones en el grupo sino solo despues que se genera el codigo fuente, seria una buena idea, nose, que cuando se generen los botones se quede de una vez la opcion de edit label, asi no hay que crear e ir a la edicion para cambiar el nombre que uno quiera, es solo una idea claro esta... seguire probando.

[Antonio Linares]

Ya soporta bitmaps en los botones y en la generación del código:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign7.zip&can=2&q=

[Antonio Linares]

Versión mejorada:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign8.zip&can=2&q=

[Antonio Linares]

Versión mejorada:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign9.zip&can=2&q=

Ya genera los nombres de las variables de todos los grupos y los botones

Ejemplo:

Code: Select all  Expand view  RUN

  local oRBar, oGr1_1, oGr2_1, oGr3_1, oGr1_2, oGr2_2, oGr1_3, oBtn1_1_3, oBtn2_1_3

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT  "One", "Two", "Three" HEIGHT 134 TOPMARGIN 25

   ADD GROUP oGr1_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201

   ADD GROUP oGr2_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201

   ADD GROUP oGr3_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201

   ADD GROUP oGr1_2 RIBBON oRBar TO OPTION 2 PROMPT "new" WIDTH 201

   ADD GROUP oGr2_2 RIBBON oRBar TO OPTION 2 PROMPT "new" WIDTH 201

   ADD GROUP oGr1_3 RIBBON oRBar TO OPTION 3 PROMPT "new" WIDTH 201

   @ 3, 3 ADD BUTTON  oBtn1_1_3 PROMPT "new" GROUP oGr1_3 ACTION MsgInfo( "click" ) SIZE 80, 83 BOTTOM

   @ 3, 83 ADD BUTTON  oBtn2_1_3 PROMPT "new" GROUP oGr1_3 ACTION MsgInfo( "click" ) SIZE 80, 83 BOTTOM

 

[Antonio Linares]

Nueva versión que ya permite salvar a un PRG el diseño que estemos haciendo y cargarlo !!!

http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign10.zip&can=2&q=

[QAZWSX2K]

en mi opinion que no lea las imagenes desde una ubicacion sino desde recursos

[Antonio Linares]

Todo se andará

[FiveWiDi]

Todo se andará

Hola Antonio,

Supongo que aun queda lejos la fase en la que te plantees como gestionar el código que obtienes, una sugerencia que no dudo que tendrás en mente:

-la declaración de variables la podrías grabar en ficheros .lcl (por ejemplo)

-la declaración de la definción dela Ribon la podrías grabar en ficheros .def (por ejemplo)

Así en nuestro código podríamos hacer un:

#include miribon01.lcl
.... más código.... mi código....
#include miribon01.def

De esta manera cuando cambiemos el diseño de la Ribon no alteraríamos nuestro .PRG

Por cierto, no estaría de más acabar el código así //DESINGRIBON, a partir de esa palabra podrías poner 'más cosas' que quizás te sean útiles para la herramienta de diseño i que no molestarían al preprocesador.

En fin, tienes un 'curro' muy interesante por delante.

No se si me he explicado bien.

[Antonio Linares]

Carlos,

Gracias por tus sugerencias

De momento estamos centrado en completar el diseñador y efectivamente se podría generar el código como indicas

saludos

Antonio

[Antonio Linares]

Nueva versión:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign11.zip&can=2&q=

[Antonio Linares]

Nueva versión que ya permite salvar los diseños, volver a cargarlos y continuar su desarrollo!!!

http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign12.zip&can=2&q=

[joseluisysturiz]

Antonio, vi que aun no permite ELIMINAR BOTONES de los grupos, sera que no es necesario, aunque lo hice desde el .PRG, no lo quita, hice un diseño, lo salve como .prg, cuando lo llamo de nuevo da este error:

Error F0029 Can't open #include file 'FiveWin.ch'

y si cuando estoy abriendo el archivo le doy cancelar, sale estos errores:

Application
===========
Path and name: C:\Documents and Settings\Administrador\Escritorio\rbdesign12\rbdesign.exe (32 bits)
Size: 2,234,880 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 05/25/11, 23:14:26
Error description: Error BASE/9996 Corruption detected: HB_HRBRUN

Stack Calls
===========
Called from: => HB_HRBRUN(0)
Called from: C:\fwteam\samples\rbdesign.prg => COMPILERIBBON(202)
Called from: C:\fwteam\samples\rbdesign.prg => (b)RIBBONBAROPTIONS(77)
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(485)
Called from: C:\fwteam\samples\rbdesign.prg => RIBBONBAROPTIONS(81)
Called from: C:\fwteam\samples\rbdesign.prg => (b)SETRIBBONEDITABLE(36)
Called from: .\source\classes\WINDOW.PRG => TCONTROL:RBUTTONDOWN(1912)
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RBUTTONDOWN(1464)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1499)
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:HANDLEEVENT(1136)
Called from: .\source\classes\WINDOW.PRG => _FWH(3417)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(993)
Called from: C:\fwteam\samples\rbdesign.prg => MAIN(26)

System
======
CPU type: Intel(R) Core(TM)2 Duo CPU E7400 @ 2.80GHz 2800 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour 2.1.0rc2 (Rev. 16626)
Windows version: 5.1, Build 2600 Service Pack 3

Windows total applications running: 71
1 TF_FloatingLangBar_WndTitle
2 CiceroUIWndFrame
3 Menú desplegable de Autosugerir
4 AutoComplete
5 SysFader
6 Default IME
7 Menú Inicio
8 CLayoutEngine-Tooltip
9 CLayoutHostWnd-Tooltip
10 HDMI Settings
11 S/PDIF IN/OUT Settings
12 Set Device Type
13 Mixer ToolBox
14 Configuración de conector
15 RibbonBar designer (c) FiveTech Software 2011
16 rbdesign12
17 FiveTech Software tech support forums • Publicar una respuesta - Visita www.landerextremo.s5.com
18 MCI command handling window
19 Acrobat IEHelper
20 AcroStubUnloadWClass
21 DDE Server Window
22 Timer
23 JDownloader
24 TrayMessageWindow
25 D3DFocusWindow
26 theAwtToolkitWindow
27 curtain
28 Yahoo! Messenger
29 ??????????w
30 AXWIN Frame Window
31 AppData Downloader
32 Hidden Plug-in Session Window
33 YahooMediaSDK_Hidden
34 YMsgrBaseWnd
35 CPluginManager
36 AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_jo ... otmail.com
37 B1E4D14A-F6D0-457d-8F12-711BF924E011_jo ... otmail.com
38 D897EE71-E263-449d-9241-5E918A81AF41_jo ... otmail.com
39 0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_jo ... otmail.com
40 CTicketManagerWnd
41 ActiveMovie Window
42 YHiddenContentManagerWindow
43 HiddenYESMsgHandler
44 AMD:CCC-AEMCapturingWindow
45 LogMeIn Hamachi
46 DeviceIO Notificaton Window
47 GrandPrix Hidden Window
48 Alerts Timer Window
49 Connections Tray
50 Medidor de energía
51 TSVNCacheWindow
52 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}
53 DTS Connect
54 Dolby Home Threater
55 Advance Setting
56 TOOLBOX
57 Load EQ Preset
58 DeleteEQ
59 Save EQ
60 Realtek HD Audio Manager
61 BackMain_Form
62 Administrador de sonido Realtek HD
63 .NET-BroadcastEventWindow.2.0.0.0.3d893c.0
64 AvgTrayMainWnd
65 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0
66 HPWU
67 NokiaMServer
68 ATI video bios poller client
69 GDI+ Window
70 MS_WebcheckMonitor
71 Program Manager

Variables in use
================
Procedure Type Value
==========================
HB_HRBRUN
Param 1: O Class: ERROR
COMPILERIBBON
Param 1: C "ÀHRB "
Param 2: O Class: TWINDOW
Param 3: O Class: TRIBBONBAR
Local 1: U
Local 2: N 0
(b)RIBBONBAROPTIONS
Param 1: O Class: TWINDOW
Param 2: O Class: TRIBBONBAR
Local 1: C "ÀHRB "
Local 2: C ""
Local 3: C ""
TMENU:ACTIVATE
Param 1: O Class: TMENUITEM
RIBBONBAROPTIONS
Param 1: N 15
Param 2: N 275
Param 3: O Class: TRIBBONBAR
Param 4: L .T.
Param 5: N 0
Local 1: A Len: 2
(b)SETRIBBONEDITABLE
Param 1: N 15
Param 2: N 275
Param 3: O Class: TRIBBONBAR
Param 4: O Class: TWINDOW
Local 1: O Class: TMENU
TCONTROL:RBUTTONDOWN
Param 1: N 15
Param 2: N 275
Param 3: N 2
Param 4: O Class: TRIBBONBAR
TRIBBONBAR:RBUTTONDOWN
Param 1: N 15
Param 2: N 275
Param 3: N 2
TWINDOW:HANDLEEVENT
Param 1: N 15
Param 2: N 275
Param 3: N 2
TCONTROL:HANDLEEVENT
Param 1: N 516
Param 2: N 2
Param 3: N 983315
TRIBBONBAR:HANDLEEVENT
Param 1: N 516
Param 2: N 2
Param 3: N 983315
Local 1: U
_FWH
Param 1: N 516
Param 2: N 2
Param 3: N 983315
Local 1: O Class: TRIBBONBAR
WINRUN
Param 1: N 983315
Param 2: N 516
Param 3: N 2
Param 4: N 983315
Param 5: N 2
Local 1: O Class: TRIBBONBAR
TWINDOW:ACTIVATE
Param 1: N 591112
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TWINDOW
5 TBRUSH
6 TFONT
7 TCONTROL
8 TRIBBONBAR
9 TRPANEL
10 TMSGBAR
11 TRECT
12 TMENU
13 TMENUITEM
14 TREG32

Memory Analysis
===============
212 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

[Antonio Linares]

Jose Luis,

El diseñador busca los ficheros de cabecera en c:\fwh\include aunque a veces se me olvida cambiarlo y los busca en c:\fwteam\include

Hoy ó mañana publicaremos la nueva versión de FWH y asi podreis construir rbdesign.prg vosotros mismos y adaptarlo a vuestros paths, etc.

Vamos a implementar el eliminar botones y grupos! Gracias!

[Antonio Linares]

Implementado el borrado de botones y grupos

http://code.google.com/p/fivewin-contributions/downloads/detail?name=rbdesign14.zip&can=2&q=

[joseluisysturiz]

Cuando se borra un grupo automaticamente se ajustan los demas, si se borra un boton ese espacio ocupado por el boton queda muerto y no hay manera de ocuparlo, es decir, no se ajustan como los grupos, seria bueno si se pudirean intercambiar los botones de posicion arrastrandolos para que se inserten, imagino que mas adelante esto podria ser posible, hasta ahora lo que he probado a funcionado bien, solo lo de los botones, otra cosa es que no se le pueden dar tamaños a los botones... saludos...