Diese Anwendung wird aufgrund eines ungültigen Vorgangs ...

[FriFra]

Hab ich... ich weiß nicht was das ganze soll... es werden ein paar *.pas files nach C:\Programme\madCollection kopiert und sonst passiert nichts
Nichts aus der Hilfe (zumindest in Bezug auf das Vorkommen eventueller Menüeinträge etc.) trifft zu... Wenn jetzt nicht jemand den untimativen Hinweis hat, was hier schief läuft fliegt der "Mist" in die Ablage "P" und ich muss weiter nach einer funktionierenden Lösung suchen

[turboPASCAL]

Code:

C:\PROGRAMME\MADCOLLECTION
├───madBasic
│   ├───BCB5
│   ├───BCB6
│   ├───Delphi 6
│   ├───Delphi2005
│   ├───Demos
│   ├───Help
│   │   └───Data
│   └───Sources
├───madDisAsm
│   ├───BCB5
│   ├───BCB6
│   ├───Delphi 6
│   ├───Delphi2005
│   ├───Demos
│   └───Help
└───madExcept
    ├───BCB5
    ├───BCB6
    ├───Delphi 6
    ├───Delphi2005
    ├───Demos
    ├───Help
    └───Tools

Das sollte bei der Installation angelegt werden.

[FriFra]

Die Ordner sind da... aber was fange ich damit nun an?
In C:\Programme\madCollection\madBasic\Sources gibt es das Package madBasic_.dpk, dessen Installation bewirkt auch nichts...

[turboPASCAL]

Mit den ordnern ja nu gar nix ...was ich nicht verstehe ist warum du keinen eintrag in die palette bekommst...

...im Normalfall kannst du dann die Komponente TMadExceptionHandler auf den Formular ziehen und dann dort Exception abfangen bearbeiten usw. und im Menue -> Projekte -> madExcept Settings einstellungen vornehmen wie MadC. auf eine Exception reagieren soll...

Zu deinem Code, klammer doch mal die Fontangelegenheit aust und schau mal was dann passiert.

Ist MyProg_Main. die Hauptform ?

[FriFra]

Naja, die madCollection werde ich dann wohl endgültig von meinem System entfernen, es hat anscheinend keinen Sinn da weitere Nachforschungen anzustellen ...

@turboPascal: Genau da war wohl der Fehler, bzw. der Code der Win9x zum Absturz bringt

Ich hab meine procedure nun entspr. angepasst und habe keine Probleme mehr

Delphi-Quellcode:

procedure TMyProg.ProgressWndProc(var Msg: TMessage);
var
  dc: HDC;
  rect: TRect;
  Text: string;
begin
  OldProgressWndProc(Msg);
  if ((Msg.Msg = 1026) or (Msg.Msg = WM_PAINT)) and (Timer3.Enabled = False)
    then
    // Wenn die Progressbar neugezeichnet wurde,
    // und somit die Zahl weg ist: Prozentzahl neu draufpinseln
  begin
    if (ProgressBar1.Max = 0) or (ProgressBar1.Position = 0) then
      Text := '0%'
    else if ProgressBar1.Max = ProgressBar1.Position then
      Text := '100%'
    else
      Text := IntToStr(Trunc(100 / ProgressBar1.Max * ProgressBar1.Position))
        + '%';
    dc := GetWindowDC(Progressbar1.Handle);
    try
      rect := ProgressBar1.ClientRect;
      //InvalidateRect(Progressbar1.Handle, @rect, True);
      if suiSkinEngine1.Active = True then
        SetBkMode(dc, TRANSPARENT);
      SetTextColor(dc, clBlack);
      SelectObject(dc, MyProg_Main.Font.Handle);
      DrawText(dc, PChar(Text), length(Text), rect, DT_SINGLELINE or DT_VCENTER
        or DT_CENTER);
    finally
      ReleaseDC(Progressbar1.Handle, dc);
    end;
  end;
end;

[Flocke]

hatte ich doch geschrieben ...


Ist aber so immer noch ein bisschen fehlerhaft: wie ich geschrieben habe, solltest du alle mit SelectObject in den DC gesetzten Handles wieder deselektieren, da sie ansonsten bei der Freigabe des DC gelöscht werden (DeleteDC bwz. ReleaseDC).

Code:

procedure TMyProg.ProgressWndProc(var Msg: TMessage);
var
  dc: HDC;
  [color=red]oldfont: THandle;[/color]
  rect: TRect;
  Text: string;
begin
  OldProgressWndProc(Msg);
  if ((Msg.Msg = 1026) or (Msg.Msg = WM_PAINT)) and (Timer3.Enabled = False)
    then
    // Wenn die Progressbar neugezeichnet wurde,
    // und somit die Zahl weg ist: Prozentzahl neu draufpinseln
  begin
    if (ProgressBar1.Max = 0) or (ProgressBar1.Position = 0) then
      Text := '0%'
    else if ProgressBar1.Max = ProgressBar1.Position then
      Text := '100%'
    else
      Text := IntToStr(Trunc(100 / ProgressBar1.Max * ProgressBar1.Position))
        + '%';
    dc := GetWindowDC(Progressbar1.Handle);
    try
      rect := ProgressBar1.ClientRect;
      //InvalidateRect(Progressbar1.Handle, @rect, True);
      if suiSkinEngine1.Active = True then
        SetBkMode(dc, TRANSPARENT);
      SetTextColor(dc, clBlack);
      [color=red]oldfont := [/color]SelectObject(dc, MyProg_Main.Font.Handle);
      DrawText(dc, PChar(Text), length(Text), rect, DT_SINGLELINE or DT_VCENTER
        or DT_CENTER);
      [color=red]SelectObject(dc, oldfont);[/color]
    finally
      ReleaseDC(Progressbar1.Handle, dc);
    end;
  end;
end;