Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Wie kann ich einen viereckigen Bereich auf GLSceneViewer markieren?

  Alt 1. Mai 2012, 13:03
Etwas in der Art funktioniert, bringt Dich aber wahrscheinlich nicht weiter, da Du ja Quasi nur ein Guckloch definierst.

Delphi-Quellcode:
type
  TGLSceneViewer = class(GLWin32Viewer.TGLSceneViewer)
        procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

  end;

  TForm1 = class(TForm)
.......
......
procedure TGLSceneViewer.WMPaint(var Message: TWMPaint);
var
 DC:HDC;
begin
   inherited;
   DC := GetDC(handle);
   Windows.FrameRect(DC, Rect(FMdownX, MDownY, FMCurrentX,FMCurrentY),TForm(Owner).Brush.Handle);
   ReleaseDC(Handle,DC);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat