WIn32Api ScrollBox emulieren\erstellen

[EWeiss]

Hmm ist immer noch nicht fertig.

Wenn ich das Window nach links verschiebe nach dem zeichnen bleibt die größe ja trotzdem erhalten.
Ich würde aber das Child Window lieber abschneiden und zwar den Teil der gebraucht wurde.

Habe es mal so versucht bin mir aber nicht sicher ob da nicht vielleicht besser InflateRect zur Geltung kommen sollte.
Wenn ich das recht verstehe sollte durch das OffsetRect der Bereiche der nun links übersteht abgeschnitten werden..
also X - Offeset dann sollte sich die Weite des Rect verändern danach erstelle ich von dem geänderten Rect einen neuen und Setze ihn.
Funktioniert aber nicht so wie es sollte.

Delphi-Quellcode:

GetClientRect(RenderFrameHandle, rc);      
OffsetRect(rc, -xOffset, 0);
ROuter := CreateRectRgn(rc.Left, rc.Top, rc.Right, rc.Bottom);
SetWindowRgn(RenderFrameHandle, ROuter, True);

Ob das überhaupt funktioniert das Child window zu cropen?
Das Problem ist wenn sich das Window links und rechts die waage hält(Übersteht) dann lässt es sich anschließend nicht mehr verschieben.
Abhängig natürlich von der Größe des Fensters.

Vielleicht gehe ich das ganze auch falsch an.
Muss mein Fenster überhaupt so groß sein?
Es sollte doch reichen wenn ich die Bitmap Daten in einem Buffer habe.

Einfach den Buffer Offset verschieben und das Fenster gar nicht vergrößern oder verkleinern?
Hmmm.. Denken..

Ich hänge noch mal den kompletten Render Bereich an.
Vielleicht hilft mir jemand auf die Sprünge

Delphi-Quellcode:

procedure TMainApp.RenderSpectragram(position: QWORD; Y: integer; cl: TColor);
var
  Graphics: Cardinal;
  sectime: integer;
  str: string;
  rc: TRect;
  X: integer;

begin

  sectime := trunc(Bass_ChannelBytes2Seconds(Channel, position));

  //Zeit Formatieren
  str := '';
  if (sectime mod 60 < 10) then
    str := '0';
  str := str + IntToStr(sectime mod 60);
  str := IntToStr(sectime div 60) + ':' + str;

  SKAERO_SetCTLText(lblTime.handle, PWideChar('Time: ' + BassAudioToTime(BassChannelGetPos)
        + ' / ' + BassAudioToTime(1000 * Bass_ChannelBytes2Seconds(Channel, Bass_ChannelGetLength
            (Channel, 0)))));

  GetClientRect(RenderFrameHandle, rc);
  PaintDC := GetDc(RenderFrameHandle);

  if GDIP_CreateFromHDC(PaintDC, Graphics) = 0 then
  begin
    X := position div bpp;

    if X >= xOffset then
    begin
      MoveWindow(RenderFrameHandle, -xOffset, 10, rc.Right, rc.Bottom, False);
      GDIP_FillRect(Graphics, 0, 0, rc.Right, rc.Bottom, SKAERO_ColorARGB(255, 0));
//      OffsetRect(rc, -xOffset, 0);
//      ROuter := CreateRectRgn(rc.Left, rc.Top, rc.Right, rc.Bottom);
//      SetWindowRgn(RenderFrameHandle, ROuter, True);

      xOffset := ((BuffBMP.Width div 580) + X) + 580;
      HScroll.Value := X;
      if xOffset >  BuffBMP.Width then
      begin
        GDIP_FillRect(Graphics, 0, 0, rc.Right, rc.Bottom, SKAERO_ColorARGB(255, 0));
        xOffset := BuffBMP.Width;
        HScroll.Value := X;
      end;
    end;
    // Hintergrund löschen
    GDIP_FillRect(Graphics, 0, 0, X + DrawTLWidth, rc.Bottom, SKAERO_ColorARGB(255, 0));

    // Transparenz für den Zeitanzeige Label
    SetBkMode(PaintDC, TRANSPARENT);

    // Zeichnen
    BitBlt(PaintDC, 0, 0, (XPos div integer(bpp)) + DrawTLWidth + 580, rc.Bottom, BuffBMP.Canvas.handle,
      0, 0, SRCPAINT);

    // Linie überzeichnen
    GDIP_DrawLine(Graphics, X, 0, X, BuffBMP.Height, 1, SKAERO_ColorARGB(255, cl));

    // Zeitanzeige zeichnen
    rc.Left := X + 2;
    rc.top := 0;
    GDIP_DrawTextToDC(PaintDC, PWideChar(str), rc, SKAERO_ACTIVECAPTION, PWideChar
      (SKAERO_TEXTFONT), SKAERO_PUSHBUTFONTSIZE, FontStyleBoldItalic, 1.1, 0);

    // Graphics löschen
    GDIP_DeleteGraphics(Graphics);
    ReleaseDC(RenderFrameHandle, MainApp.PaintDC);
  end;

end;

gruss