Dbgrid, petlja, smrzavanje

Code:

//
// Temperature changer thread
// temperature is stored in kelvins, and there are two getters, for kelvins and celsius
//
unit uTemperatureChanger;

interface

uses
  Winapi.Windows, System.Classes;

type
  TTemperatureChanger = class(TThread)
                        private
                          FTemperature   : Double;
                          FVariation     : Double;
                          FSpeed         : Double;
                          FUpdateEvent   : THandle;
                          FMessageHandler: HWND;
                          FWindowMessage : UINT;

                          function GetCelsiusTemperature: Double;
                        protected
                          procedure Execute; override;
                        public
                          constructor Create(const AMessageHandler: HWND; const AWindowMessage: UINT; const AInitial, AVariation, ASpeed: Double);
                          destructor Destroy; override;

                          property TemperatureKelvin: Double read FTemperature;
                          property TemperatureCelsius: Double read GetCelsiusTemperature;
                          property Variation: Double read FVariation;
                          property Speed: Double read FSpeed;
                        end;

implementation

uses
  System.SysUtils;

constructor TTemperatureChanger.Create(const AMessageHandler: HWND; const AWindowMessage: UINT; const AInitial, AVariation, ASpeed: Double);
//
// class constructor
//
begin
  Randomize;

  inherited Create(TRUE);

  FMessageHandler := AMessageHandler;
  FWindowMessage := AWindowMessage;
  FTemperature := AInitial + 273.15;
  FVariation := AVariation;
  FSpeed := ASpeed;
end;

destructor TTemperatureChanger.Destroy;
//
// class destructor
//
begin
  if (not Terminated) and
     (not Suspended) then
  begin
    Terminate;
    SetEvent(FUpdateEvent);
    WaitFor;
  end;

  inherited;
end;

procedure TTemperatureChanger.Execute;
begin
  FUpdateEvent := CreateEvent(nil, FALSE, FALSE, nil);

  while not Terminated do
  begin
    case Random(3) of
      0: ;
      1: FTemperature := FTemperature + FVariation;
      2: FTemperature := FTemperature - FVariation;
    end;

    if FTemperature < 0 then
      FTemperature := 0;

    PostMessage(FMessageHandler, FWindowMessage, 0, 0);
    WaitForSingleObject(FUpdateEvent, Round(Speed * 1000));
  end;
end;

function TTemperatureChanger.GetCelsiusTemperature: Double;
//
// convert temperature to celsius
//
begin
  result := FTemperature - 273.15;
end;

end.

Code:

While not PDM.cdsRedVoznje.Eof do begin

 if GetAsyncKeyState(VK_ESCAPE) = 1 then begin
   exit;
 end ;


  PDM.cdsRedVoznje.Next ;
  PDM.cdsRelacije.Filter   := 'FIRMA_ID = ' + PDM.cdsRedVoznjeFIRMA_ID.AsString  + 'AND PRAVAC_ID = ' + PDM.cdsRedVoznjePRAVAC_ID.AsString  + 'AND CIJENA>0';
  DBGrid2.Refresh ;

  SysUtils.Sleep(PDM.cdsTimeParamTimeScroll1.AsInteger*1000) ;

end ;

Code:

procedure SmartSleep(aMils: cardinal); // milisekunde
var
  aFutureTick: cardinal;
begin
  aFutureTick := GetTickCount + aMils;
  while GetTickCount < aFutureTick do
  begin
    Sleep(20); // bilo sta vece od 0, ali dovoljno malo da kod 'tece'
    Application.ProcessMessages;
  end;
end;

Code:

fScrollStopped := false; // pocinjemo skrolovanje kursora
while not(PDM.cdsRedVoznje.Eof) and not(fScrollStopped) do 
begin
  if GetAsyncKeyState(VK_ESCAPE) = 1 then begin
    exit;
  end ;

  PDM.cdsRedVoznje.Next ;
  PDM.cdsRelacije.Filter   := 'FIRMA_ID = ' + PDM.cdsRedVoznjeFIRMA_ID.AsString  + 'AND PRAVAC_ID = ' +
                                      PDM.cdsRedVoznjePRAVAC_ID.AsString  + 'AND CIJENA>0';
  DBGrid2.Refresh ;

 // SysUtils.Sleep(PDM.cdsTimeParamTimeScroll1.AsInteger*1000) ;
  SmartSleep(PDM.cdsTimeParamTimeScroll1.AsInteger*1000); // ovde imamo ProcessMessages

end ;

Code:

procedure TMyThread.SmartSleep(aMils: cardinal); // milisekunde
var
  aFutureTick: cardinal;
begin
  aFutureTick := GetTickCount + aMils;
  while (GetTickCount < aFutureTick) and not(Terminated) do
    Sleep(20); // bilo sta vece od 0, ali dovoljno malo da kod 'tece'  
end;