help me fast plz
lazarus / 16-Databases

----------------------------------------------------------------------
Stivano · 2018-01-07 09:42

im searching for source code of hourglass work with time in pascal plz

----------------------------------------------------------------------
howardpc · 2018-01-07 10:02

Are you looking for some adaptation of this sort of thing?
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses 
Forms, Controls, sysutils; procedure ShowHourglassCursor(aMSPeriod:
Cardinal);var  oldCursor: TCursor;begin  oldCursor:=Screen.Cursor; 
Screen.Cursor:=crHourGlass;  Sleep(aMSPeriod); 
Screen.Cursor:=oldCursor;end;

----------------------------------------------------------------------
Thaddy · 2018-01-07 10:42

Quote from: howardpc on January 07, 2018, 11:02:15 amAre you looking
for some adaptation of this sort of thing?

Well since it is a resource do not forget to protect it in real
applications:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses 
Forms, Controls, sysutils; procedure ShowHourglassCursor(aMSPeriod:
Cardinal);var  oldCursor: TCursor;begin  oldCursor:=Screen.Cursor; 
try    Screen.Cursor:=crHourGlass;    Sleep(aMSPeriod);  // do some
work  finally    Screen.Cursor:=oldCursor;  end;end;
The reason is that e.g. exit is called or an exception is raised and
handled during code execution you will end up with a permanent
hourglass if you do not protect it with try finally;

----------------------------------------------------------------------
Stivano · 2018-01-07 23:13

thnx guys but this not what i mean
i give exeemple in c++ and me need hhim in language pascal
work with the time
thats not the finall result because half of the pper triangle and over
time the lines of the upper triangle decrease and after an hour te
triangle becomes at the bootom
im sorry about my english because used google traduction
and thx guys for your times
uses
  Forms, Controls, sysutils;

procedure ShowHourglassCursor(aMSPeriod: Cardinal);
var
  oldCursor: TCursor;
begin
  oldCursor:=Screen.Cursor;
  try
    Screen.Cursor:=crHourGlass;
    Sleep(aMSPeriod);  // do some work
  finally
    Screen.Cursor:=oldCursor;
  end;
end;

----------------------------------------------------------------------
valdir.marcos · 2018-01-08 04:04

@Stivano
Est-ce un devoir scolaire?
Quel âge avez-vous?

----------------------------------------------------------------------
Stivano · 2018-01-08 18:14

ui marcos un petit projet
 21 ans

----------------------------------------------------------------------
valdir.marcos · 2018-01-08 19:15

Montrez votre code source en C ++ que je vais vous aider à convertir
dans Lazarus (Free Pascal).
Je ne suis peut-être pas aussi rapide que nécessaire, mais je vais
essayer de vous aider dans les jours qui suivent.

----------------------------------------------------------------------
Stivano · 2018-01-09 22:04

mrc bcp marcos