Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

Er aktuallisiert eine Zeit, aber dann nicht mehr?!

  Alt 22. Jun 2006, 16:54
Ich habe eim TImage... Auf dem wird mit den Farbwerten rumgespielt (Brailleimage siehe Freeware)!
Wenn ich dann die Prozedur aufrufe, dann arbeitet er schön und der Fortschrittsbalken bewegt sich vorwärts (ggf. änder ist auch das Image), abder dann plötzlich:
"stoppt" er, also aktuallisiert die GUI net mehr, aber er arbeitet weiter und funzt auch weiterhin, wenn er fertig ist!

Allerdings habe ich keinen Sinn entdeckt: Manchmal macht er es wie ers soll, und manchaml nicht. Manchaml hat er 1 % schon, manchmal hat er 30%. [stimmt nicht]Nur einen Zusammenhang haben alle: es war noch nie 50% fertig![/stimmt nicht]

Vielleicht hilft euch der Code:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, Start, l : Integer;
  k : Extended;
  p: ^PixArray;
begin
  Start := GetTickCount;

  PBProgress.Max := Image.Height * Image.Width * 3;
  PBProgress.Position := 0;

  k := 255 / (TBColors.Position - 1);

  for i := 0 to Image.Height - 1 do begin

    p := Image.Picture.Bitmap.ScanLine[i];

    for j := 0 to Image.Width do begin

      for l := 1 to 3 do begin
        p^[l] := Round(Round(p^[l] / k) * k);

        PBProgress.Position := PBProgress.Position + 1;
        PBProgress.Refresh;
      end;


      LTime.Caption := 'Working (' + IntToStr((GetTickCount - Start) div 1000) + ' s)';
      LTime.Refresh;

      inc(p);
    end;
    if CBRefresh.Checked then
      Image.Repaint;
  end;

  LTime.Caption := 'Ready (' + FloatToStr((GetTickCount - Start) / 1000) + ' s)';
end;
Und nebenbei eine Frage: Lohnt sich ProcessMessages, oder reicht .refresh ? Und wo ist der unterschied zu .repaint ?
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat