WIn32Api ScrollBox emulieren\erstellen

[Fritzew]

https://msdn.microsoft.com/en-us/lib....aspx#wm_paint

[EWeiss]

Zitat von Fritzew:

https://msdn.microsoft.com/en-us/lib....aspx#wm_paint

Zitat:

Ein Panel mit einer HScrollbar Komponente zu verbinden (die ich gestern fertig gestellt habe)

die ich gestern fertig gestellt habe
Ich muss keine Scrollbar erstellen die habe ich schon fertig.
Es geht mir wie der Titel schon sagt um eine ScrollBox.

Mein Test Window
Danke dir

gruss

[EWeiss]

Wie kann ich vermeiden das diese Ränder überzeichnet werde?
Siehe Anhang!

Ich gehe im Moment so vor.

Delphi-Quellcode:

{$REGION 'Procedure DrawTime_Line'}

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

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

  //format time
  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(BackSpectraRenderFrame, rc);
  PaintCapture(BackSpectraRenderFrame, PaintDC, TCaptureAction.Capture);

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

    if X >= xOffset then
    begin
      HScroll.Value := X;
      MoveWindow(BackSpectraRenderFrame, -xOffset, 10, rc.Right, rc.Bottom, False);
      GDIP_FillRect(Graphics, 0, 0, rc.Right, rc.Bottom, SKAERO_ColorARGB(255, 0));
      xOffset := xOffset + 580;
    end;

    //SetBkMode(PaintDC, TRANSPARENT);

    XPos := Bass_ChannelGetPosition(MainApp.Channel, BASS_POS_BYTE);

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

    //GDIP_DrawLine(Graphics, X, 0, X, BuffBMP.Height, 1, SKAERO_ColorARGB(255, cl));
    
    //SetTextColor(PaintDC, cl);
    //TextOut(hDCView, X + 2, Y, PWideChar(str), Length(str));

    PaintCapture(BackSpectraRenderFrame, PaintDC, TCaptureAction.Blitter);

    GDIP_DeleteGraphics(Graphics);
  end;

end;
{$ENDREGION}

Der wichtige Part ist dieser hier..

Delphi-Quellcode:

    if X >= xOffset then
    begin
      HScroll.Value := X;
      MoveWindow(BackSpectraRenderFrame, -xOffset, 10, rc.Right, rc.Bottom, False);
      GDIP_FillRect(Graphics, 0, 0, rc.Right, rc.Bottom, SKAERO_ColorARGB(255, 0));
      xOffset := xOffset + 580;
    end;

Wenn ich die Bitmap weite erstelle dann geht mein Render Window rechts aus dem Frame hinaus.. bzw. zeichnet über den Rand.
Wenn die Datei am spielen ist und die weite des Render Window überschritten ist dann reche ich -xOffset nun zeichnet das Fenster über den
linken Bereich meines Frames.

Nicht wundern über die aus kommentierten teile bin noch nicht fertig mit dem Kram.

Irgend jemand eine Idee?
Ich verstehe es nicht einmal *.jpg dann wider *.png

gruss

[stahli]

Kann Dir CreateRectRgn weiter helfen?


PS: Optisch finde ich Deine Lösungen übrigens immer top

[EWeiss]

Zitat von stahli:

Kann Dir CreateRectRgn weiter helfen?

Mein Problem ist das ich nicht weis wie ich das Fenster daran hindern soll nicht über meine Rand zu zeichen.
Ich weis nicht ob CreateRectRgn da weiter helfen kann.

OB das die Lösung ist den Bereich jedes Mal auszuschneiden nach jeden Wechsel der Seite?

Hmmm... Wieder mal so ein Problem wo ich auf dem Schlauch stehe.

Die Scrollwindow oder ScrollwindowEx Funktion möchte ich nicht verwenden wenn möglich.
Vielleicht muss ich da noch was an meinen Fenster Arbeiten

Zitat:

PS: Optisch finde ich Deine Lösungen übrigens immer top

Jo Danke wenn es den mal funktioniert.
Ist jetzt erst mal nur ein Test soll nachher eine eigenständige Komponente werden. (ohne Spectragram )

Ok! Ich werde es mal damit versuchen Danke.

gruss

[EWeiss]

Ich bekomme den Kram nicht ausgeschnitten..
Habe mal feste werte angegeben.

Delphi-Quellcode:

  ROuter := CreateRectRgn(0, 0, 600, 197);
  RInner := CreateRectRgn(0, 0, 580, 160);
  RCombined := CreateRectRgn(0, 0, 0, 0);
  CombineRgn(RCombined, ROuter, RInner, RGN_DIFF);
  SetWindowRgn(BackSpectraRenderFrame, RCombined, True);

eigentlich möchte ich ja nur den linken und rechten Rand ausschneiden.
Das Render Fenster soll sichtbar bleiben lediglich die 10 Pixel links und rechts müssen weg.

Will irgendwie nicht.

gruss

[Fritzew]

Benutze einfach nur Dein RInner

RInner := CreateRectRgn(0, 0, 580, 160); Sollte reichen

Das was Du machst siehst Du im Bild
Das Rote ist Deine Region