* Updates February 2, 2015
Added NoMax property to hide Max Button. This should not be confused with _noMax property which simply disables the max button
Added NoMin property to hide Minimum Button
Added 3 shapes at the bottom to give an illusion of a gradient bottom border. Although GDI+X is good for gradient, I want my classes to not be dependent of an external file like an .app. Maybe in the future I may change decision or not
Added Form Pinning capability on Controlbox section. When it is pinned, the pin icon will turn into red and you won't be able to move the form. To unpin, click on it again
Removed the date and showed instead plain time(). Made it bigger
Added _shade method. That is what you can use to get a different shade of the current color you pick for other objects in the form (using _SwapColor Method). So now you can implement color themes with variying shades not only on the class itself but on any objects you wish. Here is how it looks like
This is dedicated in assisting others on developing and non-developing matters. It is also the official home of ssUltimate Library.
Thursday, January 29, 2015
Friday, January 16, 2015
Tick/Untick a checkbox on Grid with AllowCellSelection = .F.
Normally, when we want to put a checkbox on grid for the purpose of ticking and unticking it, then most probably most of you do it this way:
An alternative way is to set AllowCellSelection = .F. and use grid's double-click on toggling the value of the logical field bound to that checkbox, then perform a grid refresh
- Set AllowCellSelection = .T.
- Drill to every textbox object inside each columns and put under When method Return(.f.). That is to prohibit the cell in getting focus
An alternative way is to set AllowCellSelection = .F. and use grid's double-click on toggling the value of the logical field bound to that checkbox, then perform a grid refresh
Monday, January 12, 2015
ShellExecute, Force open file to non-default application
As most of us know, ShellExecute() is a very useful tool to open a file on its external associated application. When you issue this command:
Then that document file will be opened by MsWord or its counterpart like say on LibreOffice
Or if you do:
Or even:
Local lcFile
lcFile = Getfile('doc,docx')
If !Empty(m.lcFile)
ShellExecute(0,'open',m.lcFile,'','',1)
EndifThen that document file will be opened by MsWord or its counterpart like say on LibreOffice
Or if you do:
Local lcFile
lcFile = Getfile('xls,xlsx')
If !Empty(m.lcFile)
ShellExecute(0,'open',m.lcFile,'','',1)
EndifOr even:
Subscribe to:
Posts (Atom)