11 August, 2007

HowTo move objects within the html page via JavaScript

For one of my web projects I created universal JavaScript for moving any objects within the page. This is my simple Drag and Drop implementation.
I'm publishing this source. I think, it will be illustrative and useful example.

This screenshot shows how to this script works.



<style type="text/css">
.movable {
position: absolute;
width: 100px;
height: 100px;
background-color: yellow;
border:solid 1px gray;

<script type="text/javascript">

var posx;
var posy;
var zMax = 0;
var obj;

function drag_start(itemToMove, e)
itemToMove.style.zIndex = ++window.zMax;
if (!e) e = window.event;
obj = itemToMove;
posx = e.clientX - parseInt(obj.style.left);
posy = e.clientY - parseInt(obj.style.top);
if (e.preventDefault) e.preventDefault();
else e.returnValue = false;

function drag_stop(e)
if (obj) {
obj = null;

function drag(e)
if (!obj) return;

if (!e) e = window.event;

var height, width;
if (document.all)
height = document.body.offsetHeight;
width = document.body.offsetWidth;
else if (document.layers)
height = window.innerHeight;
width = window.innerWidth;
var newX = e.clientX - posx;
var newY = e.clientY - posy;
if (newX < -obj.clientWidth / 2)
newX = -obj.clientWidth / 2;
posx = e.clientX - parseInt(obj.style.left);
if (newY < -obj.clientHeight / 2)
newY = -obj.clientHeight / 2;
posy = e.clientY - parseInt(obj.style.top);

obj.style.left = newX;
obj.style.top = newY;

if (e.preventDefault) e.preventDefault();
else e.returnValue = false;

document.onmousemove = drag;
document.onmouseup = drag_stop;

document.ondragstart = function()
return false;
document.onselectstart = function()
return false;

<div class="movable" style="left:100px; top:100px;" onmousedown="drag_start(this,event)"></div>
<div class="movable" style="left:200px; top:200px;" onmousedown="drag_start(this,event)"></div>

E.g.: I used this script in my Online Ruler.
You may see how it works, see in action.

09 August, 2007

HowTo remove service in Windows

Sometimes it is necessary to remove service from the Service List in the Windows Managment Console.
In the past I used program, which I compiled from the MSDN's sources (MSDN Library - October 2001: Samples\VC98\sdk\winbase\winnt\service).

But I found another way: Windows XP contains special program SC.exe, which can communicates with the Service Controller and installed services (start, stop, remove, create, query, etc.).
After that I use this command in my shell scripts.

E.g.: for removal of MySQL service, execute command:
sc delete MySQL
(! You may restore MySQL service via command mysqld-nt.exe --install)

But if you want to do this from your C++ program, you may use sample's sources from MSDN.

Part of these is listed below:

void CmdRemoveService()
SC_HANDLE schService;
SC_HANDLE schSCManager;

schSCManager = OpenSCManager(
NULL, // machine (NULL == local)
NULL, // database (NULL == default)
SC_MANAGER_ALL_ACCESS // access required
if ( schSCManager )
schService = OpenService(schSCManager, TEXT(SZSERVICENAME), SERVICE_ALL_ACCESS);

if (schService)
// try to stop the service
if ( ControlService( schService, SERVICE_CONTROL_STOP, &ssStatus ) )
_tprintf(TEXT("Stopping %s."), TEXT(SZSERVICEDISPLAYNAME));
Sleep( 1000 );

while( QueryServiceStatus( schService, &ssStatus ) )
if ( ssStatus.dwCurrentState == SERVICE_STOP_PENDING )
Sleep( 1000 );

if ( ssStatus.dwCurrentState == SERVICE_STOPPED )
_tprintf(TEXT("\n%s stopped.\n"), TEXT(SZSERVICEDISPLAYNAME) );
_tprintf(TEXT("\n%s failed to stop.\n"), TEXT(SZSERVICEDISPLAYNAME) );


// now remove the service
if( DeleteService(schService) )
_tprintf(TEXT("%s removed.\n"), TEXT(SZSERVICEDISPLAYNAME) );
_tprintf(TEXT("DeleteService failed - %s\n"), GetLastErrorText(szErr,256));

_tprintf(TEXT("OpenService failed - %s\n"), GetLastErrorText(szErr,256));

_tprintf(TEXT("OpenSCManager failed - %s\n"), GetLastErrorText(szErr,256));

07 August, 2007

Profound poetry, Shakespeare Sonnet 66

The most profound text which I ever read is Shakespeare's "Sonnet 66".
Tired with all these, for restful death I cry,
As, to behold desert a beggar born,
And needy nothing trimm'd in jollity,
And purest faith unhappily forsworn,
And guilded honour shamefully misplaced,
And maiden virtue rudely strumpeted,
And right perfection wrongfully disgraced,
And strength by limping sway disabled,
And art made tongue-tied by authority,
And folly doctor-like controlling skill,
And simple truth miscall'd simplicity,
And captive good attending captain ill: 

Tired with all these, from these would I be gone,
Save that, to die, I leave my love alone.

It sounds very beautiful in Russian.
Зову я смерть. Мне видеть невтерпеж
Достоинство, что просит подаянья,
Над простотой глумящуюся ложь,
Ничтожество в роскошном одеянье,
И совершенству ложный приговор,
И девственность, поруганную грубо,
И неуместной почести позор,
И мощь в плену у немощи беззубой,
И прямоту, что глупостью слывет,
И глупость в маске мудреца, пророка,
И вдохновения зажатый рот,
И праведность на службе у порока.

Все мерзостно, что вижу я вокруг...
Но как тебя покинуть, милый друг!
перевод Маршака

Измучась всем, я умереть хочу.
Тоска смотреть, как мается бедняк,
И как шутя живется богачу,
И доверять, и попадать впросак,

И наблюдать, как наглость лезет в свет,
И честь девичья катится ко дну,
И знать, что ходу совершенствам нет,
И видеть мощь у немощи в плену

И вспоминать, что мысли заткнут рот,
И разум сносит глупости хулу,
И прямодушье простотой слывет,
И доброта прислуживает злу.

Измучась всем, не стал бы жить и дня,
Да другу будет трудно без меня.
перевод Пастернака