Button
Posted: Tue Feb 21, 2017 1:25 pm
Could we have standard picture buttons for Save, Cancel, Print,... ?
Serge
Serge
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Code: Select all
/* Embbeded pictures from HMG resource file.
Read at ..\RESOURCES\hmg32.rc
Icons too and any other file being at .rc files
*/
#include <hmg.ch>
Function Main()
SET DEFAULT ICON TO "ZZZ_LED_OFF" // To set for InputBox /
DEFINE WINDOW Demo AT 254, 369 WIDTH 539 HEIGHT 443 BACKCOLOR {0,162,232} ;
TITLE "Standard pictures for buttons (HMG Resource)" ICON "_DBGICON" MAIN
DEFINE BUTTON Button_1
ROW 40
COL 60
WIDTH 50
HEIGHT 70
ACTION InputWindow_Click()
CAPTION "Print"
TRANSPARENT .T.
TOOLTIP '"HP_PRINT"'
PICTURE "HP_PRINT"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_2
ROW 40
COL 120
WIDTH 50
HEIGHT 70
ACTION InputBox("Name: ","")
CAPTION "Save"
TRANSPARENT .T.
TOOLTIP '"HP_SAVE"'
PICTURE "HP_SAVE"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_3
ROW 40
COL 180
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Exit"
TRANSPARENT .T.
TOOLTIP '"HP_CLOSE"'
PICTURE "HP_CLOSE"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_4
ROW 40
COL 240
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Close"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_CLOSE"'
PICTURE "HMG_EDIT_CLOSE"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_5
ROW 40
COL 300
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "New"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_NEW"'
PICTURE "HMG_EDIT_NEW"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_6
ROW 40
COL 360
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Cancel"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_CANCEL"'
PICTURE "HMG_EDIT_CANCEL"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_7
ROW 40
COL 420
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Edit"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_EDIT"'
PICTURE "HMG_EDIT_EDIT"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_8
ROW 120
COL 60
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Next"
TRANSPARENT .T.
TOOLTIP '"HP_NEXT"'
PICTURE "HP_NEXT"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_9
ROW 120
COL 120
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Back"
TRANSPARENT .T.
TOOLTIP '"HP_BACK"'
PICTURE "HP_BACK"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_10
ROW 120
COL 180
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Top"
TRANSPARENT .T.
TOOLTIP '"HP_TOP"'
PICTURE "HP_TOP"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_11
ROW 120
COL 240
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Bottom"
TRANSPARENT .T.
TOOLTIP '"HP_END"'
PICTURE "HP_END"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_12
ROW 120
COL 300
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Go To"
TRANSPARENT .T.
TOOLTIP '"HP_GOPAGE"'
PICTURE "HP_GOPAGE"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_13
ROW 120
COL 360
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Right"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_ADD"'
PICTURE "HMG_EDIT_ADD"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_14
ROW 120
COL 420
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Left"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_DEL"'
PICTURE "HMG_EDIT_DEL"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_15
ROW 200
COL 60
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Ok"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_OK"'
PICTURE "HMG_EDIT_OK"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_16
ROW 200
COL 120
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Delete"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_DELETE"'
PICTURE "HMG_EDIT_DELETE"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_17
ROW 200
COL 180
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Copy"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_COPY"'
PICTURE "HMG_EDIT_COPY"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_18
ROW 200
COL 240
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Search"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_FIND"'
PICTURE "HMG_EDIT_FIND"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_19
ROW 200
COL 300
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Folder"
TRANSPARENT .T.
TOOLTIP '"HP_FOLDER"'
PICTURE "HP_FOLDER"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_20
ROW 200
COL 360
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Print"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_PRINT"'
PICTURE "HMG_EDIT_PRINT"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_21
ROW 200
COL 420
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Zoom"
TRANSPARENT .T.
TOOLTIP '"HP_ZOOM"'
PICTURE "HP_ZOOM"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_22
ROW 280
COL 60
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Play"
TRANSPARENT .T.
TOOLTIP '"HMG_EDIT_SET"'
PICTURE "HMG_EDIT_SET"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_23
ROW 280
COL 120
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Cancel"
TRANSPARENT .T.
TOOLTIP '"GRID_MCAN"'
PICTURE "GRID_MCAN"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_24
ROW 280
COL 180
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Save"
TRANSPARENT .T.
TOOLTIP '"GRID_MSAV"'
PICTURE "GRID_MSAV"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_25
ROW 280
COL 240
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Pointer"
TRANSPARENT .T.
TOOLTIP '"_pointer"'
PICTURE "_pointer"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_26
ROW 280
COL 300
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Open"
TRANSPARENT .T.
TOOLTIP '"_open"'
PICTURE "_open"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_27
ROW 280
COL 360
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "Refresh"
TRANSPARENT .T.
TOOLTIP '"_refresh"'
PICTURE "_refresh"
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_28
ROW 280
COL 420
WIDTH 50
HEIGHT 70
ACTION Nil
CAPTION "T.Nail"
TRANSPARENT .T.
TOOLTIP '"hp_thumbnail"'
PICTURE "hp_thumbnail"
PICTALIGNMENT TOP
END BUTTON
END WINDOW
Demo.Center
Demo.Activate
Return Nil
Function InputWindow_Click()
LOCAL Title , aLabels , aInitValues , aFormats , aResults
Title := 'InputWindow Test'
aLabels := { 'Field 1:' , 'Field 2:', 'Field 3:', 'Field 4:', 'Field 5:', 'Field 6:' }
aInitValues := { 'Init Text', .t. , 2, Date(), 12.34,'Init text' }
aFormats := { 20, Nil, {'Option 1','Option 2'}, Nil, '99.99', 50 }
aResults := InputWindow ( Title , aLabels , aInitValues , aFormats )
Return Nil
It's fine idea, but icons should be modern than these presented, but it's only my humble opiniondragancesu wrote: ↑Wed Feb 22, 2017 7:32 am
IMHO, should be 2 or 3 sets of icons, size 32x32/24x24, colored/BW, perhaps in blue, green, brown tones (I prefer blue)
I wrote in old message
http://hmgforum.com/viewtopic.php?f=11&t=4216
And it is because of it that the HMG needs to be installed in folder that do not contain spaces. I wrote about it here: viewtopic.php?p=49337#p49337GNU windres (GNU Binutils) 2.25
Copyright (C) 2014 Free Software Foundation, Inc.
This program is free software; You can redistribute it under the terms of
The GNU General Public License version 3 or (at your option) any later version.
This program has absolutely no warranty.
E é por causa dele que o HMG precisa estar instalado em pasta que não contenham espaços. Eu escrevi a respeito disso aqui: viewtopic.php?p=49337#p49337GNU windres (GNU Binutils) 2.25
Copyright (C) 2014 Free Software Foundation, Inc.
This program is free software; you may redistribute it under the terms of
the GNU General Public License version 3 or (at your option) any later version.
This program has absolutely no warranty.
Y es gracias a él que el inhibidor de que HMG debe estar instalado en la carpeta que no contenga espacios. Escribí sobre ello aquí: viewtopic.php?p=49337#p49337Windres GNU (GNU Binutils) 2:25
Copyright (C) 2014 Free Software Foundation, Inc.
Este programa es software libre; puede redistribuirlo bajo los términos de
la versión de GNU Licencia Pública General 3 o (a su elección) cualquier versión posterior.
Este programa no tiene absolutamente la garantía.