Zitat:
Das Zeichnen funktioniert soweit ganz gut. Was mir noch nicht klar ist, muss ich immer alles neu Zeichnen, wenn ich ein Shape verschiebe?
Definitiv.
Zitat:
MouseDown: Objekt identifizieren (Hit) und merken
Nicht nötig kann man in MouseMove Ereignis analysieren. Siehe PtInRect.
Zitat:
Gibt es bei
GDI+ so etwas wie zeichnen mit Penmode mit Copy, XOR
Klar gibt es das.
Zitat:
DoubleBuffered kannst du eigentlich auch aus machen, das machst du ja ohnehin selbst, oder? Also erst mal ein neues Bitmap anlegen, dann schön alles hin zeichnen und dann in einem Schritt das Bitmap auf die Paintbox malen.
Warum soll er den DoubleBuffer ausmachen?
Letztendlich macht doch Doublebuffer nichts anderes als ein temporäres Bitmap zu erstellen und darauf zu zeichnen.
Delphi-Quellcode:
function TSkinEngine.DoubleBuffer(hDC: longword; x: integer; y: integer;
Action: TAction): HDC;
begin
if Action = CreateBuffer then
begin
FDBufferhDCTemp := CreateCompatibleDC(hDC);
FDBufferhBMTemp := CreateCompatibleBitmap(hDC, x, y);
FDBufferhBMPrev := SelectObject(FDBufferhDCTemp, FDBufferhBMTemp);
FDBufferXx := x;
FDBufferYy := y;
FDBufferUseDC := hDC;
Result := FDBufferhDCTemp;
end
else
begin
// Zeichne das Resultat ins Target Window
BitBlt(FDBufferUseDC, x, y, FDBufferXx, FDBufferYy, FDBufferhDCTemp,
0, 0, SRCCOPY);
// Befreie die system resourcen
SelectObject(FDBufferhDCTemp, FDBufferhBMPrev);
DeleteObject(FDBufferhBMTemp);
DeleteDC(FDBufferhDCTemp);
Result := 0;
end;
end;
gruss