WIn32Api ScrollBox emulieren\erstellen

[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

[EWeiss]

Zitat von 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

Danke geht aber leider auch nicht.
Es wird aber genau das ausgeschnitten was du gezeichnet hast.
Nur unten und oben darf nichts weggeschnitten werden nur an den Seiten.

Mit einem Rechteckigen Loch funktioniert das also auch nicht.. Hmmm
Dann würden auch die anderen Seiten beschnitten.

gruss

[Fritzew]

Benutze SelectClipRgn nicht

SetWindowRgn

[EWeiss]

Zitat von Fritzew:

Benutze SelectClipRgn nicht

SetWindowRgn

Delphi-Quellcode:

  RInner := CreateRectRgn(0, 0, 590, 170);
  SetWindowRgn(BackSpectraWinFrame.Handle, RInner, True);

BackSpectraWinFrame ist das äußere Fenster (Panel)
Funktioniert jetzt mit der unteren und der Rechten seite.
Die linke wird noch überzeichnet.

Danke!

PS: Allerdings verursacht diese Funktion eine 30% CPU Auslastung von 0 auf 30..
Ok meine Dummheit einmalig aufrufen reicht.

gruss

[stahli]

Wie oft führst Du die Funktion aus?
Die Region bleibt gültig, bis Du sie wieder frei gibst.

Vielleicht kannst Du ja nochmal schauen, ob Du da noch etwas optimieren kannst.

[EWeiss]

Zitat von stahli:

Wie oft führst Du die Funktion aus?
Die Region bleibt gültig, bis Du sie wieder frei gibst.

Vielleicht kannst Du ja nochmal schauen, ob Du da noch etwas optimieren kannst.

Ich lade sie jetzt nur noch einmal und habe wieder 0% beim initialisieren des Bitmaps.

Danke .. War meine eigene Dummheit.
Die linke Seite noch dann läuft's (Übrigens war eine gute Idee.)

Denke mal über DeleteObject(RInner);

Delphi-Quellcode:

  ROuter := CreateRectRgn(10, 0, 590, 170);
  SetWindowRgn(BackSpectraWinFrame.Handle, ROuter , True);

OK das war's. Danke für die Hilfe.

gruss