Komisches Problem beim Neuzeichnen

[turboPASCAL]

@DevilsCamp, da is wohl dein Antivirscanner etwas zu straff eingestellt, oder doch ein Virus ?

@Rastaman,

Das stimmt schon so, du müsstest nur nach dem ändern des Wertes im Editfeld das zeichnen des Windows mit InvalidateRect aktualisieren...

Delphi-Quellcode:

var r: TRect;

//...

WM_COMMAND:
      begin
        if HiWord(wParam) = EN_CHANGE then
        begin
          SendMessage(GetDlgItem(hWnd, 1), WM_GETTEXT, 3, Integer(@Buffer));
          Val(Buffer, Radius, Code);

          GetClientRect(hWnd, r);
          InvalidateRect(hWnd, @r, true);
        end;
      end

Delphi-Quellcode:

WM_PAINT:
      begin
        WndDC := BeginPaint(hWnd, ps);

        Brush := CreateSolidBrush($0000D0D0);
        BrushOld := SelectObject(WndDC, Brush);
        RectAngle(WndDC, -1, -1, 401, 361);
        SelectObject(WndDC, BrushOld);
        DeleteObject(Brush);

        Brush := CreateSolidBrush($00FF00FF);
        BrushOld := SelectObject(WndDC, Brush);
        Ellipse(WndDC, Mittelpunkt.X - Radius, Mittelpunkt.Y - Radius,
          Mittelpunkt.X + Radius, Mittelpunkt.Y + Radius);
        SelectObject(WndDC, BrushOld);
        DeleteObject(Brush);


        EndPaint(WndDC, ps);
        Result := 0;
      end;