hi,
i'm searching for Ruler as App using harbour / HMG like this
do some one have made it an can share some Code
App as Ruler
Moderator: Rathinagiri
- AUGE_OHR
- Posts: 2064
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
App as Ruler
have fun
Jimmy
Jimmy
-
- Posts: 245
- Joined: Sat Aug 02, 2008 5:03 pm
- AUGE_OHR
- Posts: 2064
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: App as Ruler
Grigory or any master in C can adopt in HMGCarlos Britos wrote: ↑Thu Jan 09, 2020 12:51 pm hope this can help you.
source code.C is in zip
ruler.zip
BPD
Convert Dream into Reality through HMG
Convert Dream into Reality through HMG
Re: App as Ruler
Refer GridPlus,you will find Function DrawScaleAUGE_OHR wrote: i'm searching for Ruler as App using harbour / HMG like this
http://hmgforum.com/viewtopic.php?f=10& ... s&start=20
BPD
Convert Dream into Reality through HMG
Convert Dream into Reality through HMG
- AUGE_OHR
- Posts: 2064
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: App as Ruler
hi,
please have a look at this Snapshot. Explorer does not show EXE Icon
and why in Tasklist vertical Icon is not shown ---
as the vertical is only 120 wide i can't use Titlebar to move it ... and it have a Artifact left of it.
how can i get ride of of Min/Max Button Space (!) under HMG
have made simple "pure" HMG_Ruler include Source and Icon as Resource.
please have a look at this Snapshot. Explorer does not show EXE Icon
and why in Tasklist vertical Icon is not shown ---
as the vertical is only 120 wide i can't use Titlebar to move it ... and it have a Artifact left of it.
how can i get ride of of Min/Max Button Space (!) under HMG
Code: Select all
/* Toggle window properties
Example:
A. To turn off (disable) the Maximise button:
SetWindowPropertyOff( oDlg, WS_MAXIMIZEBOX )
B. To turn off (disable) the Minimise button:
SetWindowPropertyOff( oDlg, WS_MINIMIZEBOX )
C. To turn off the max and min buttons:
SetWindowPropertyOff( oDlg, WS_MAXIMIZEBOX+WS_MINIMIZEBOX )
Notes:
Sample A only disables the maximise button.
Sample B only disables the minimise button.
Sample C actually removes the minimise and maximise buttons.
The inference here is that one cannot exist without the other.
*/
Function SetWindowPropertyOff( oWin, nProperties, lOnOff )
local nPtr
local i
DEFAULT lOnOff to FALSE // toggle=off
nPtr := GetWindowLongA( oWin:getHWnd(), GWL_STYLE )
for i := 1 to 32
if nProperties[i]
nPtr[i] := lOnOff
endif
next
SetWindowLongA( oWin:getHWnd(), GWL_STYLE, nPtr )
return Nil
DLLFUNCTION GetWindowLongA( nHwnd, nStyle ) USING STDCALL FROM User32.dll
DLLFUNCTION SetWindowLongA( nHwnd, nStyle, nPtr ) USING STDCALL FROM User32.dll
have fun
Jimmy
Jimmy
- AUGE_OHR
- Posts: 2064
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: App as Ruler
hi,
new Version :
5 Point mark
Context Menu for Transparency
NOMAXIMIZE NOMINIMIZE -> no Artefact
now vertical Ruler can be moved using Titlebar
here is the Source
new Version :
5 Point mark
Context Menu for Transparency
NOMAXIMIZE NOMINIMIZE -> no Artefact
now vertical Ruler can be moved using Titlebar
here is the Source
have fun
Jimmy
Jimmy