Einzelnen Beitrag anzeigen

r29d43

Registriert seit: 18. Jan 2007
287 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: Raster ein- und ausblenden

  Alt 21. Mär 2008, 16:52
Nimm ein Bmp, zeichne da das Raster drauf, und im FormPaint-Handler fügst Du dann noch folgende Zeile ein:


if StrgAltKeyFlag=true then TransparentBlt(Canvas.Handle,0,0,width,height,RasterBmp.Canvas.Handle,0,0,RasterBmp.Width,RasterBmp.Height,$ffffff); (wobei $ffffff natürlich die Untergrundfarbe deines Rasterbitmaps wäre).

Wann immer sich dann mal was am State deiner Strg + Alt -Keys ändert, ändert das ggf. auch das StrgAltKey-Flag ...und mit einem dann anschließenden Aufruf von Form.Repaint auch ohne weitere Arbeiten entsprechend dein Form-Output.

mfg


[edit: statt FormPaint war natürlich die Form.Repaint-Methode gemeint ...die anschließend nochmal aufgerufen werden muss ]
  Mit Zitat antworten Zitat