Thumbnails von Pagecontrol-Pages ...

[DerAndereMicha]

Hallo Zusammen,

hat einer von Euch nen Ansatzpunkt für mich, wie ich es realisieren könnte, beim MOUSEOVER über die einzelnen Tabs der Reiter eines TPageControl-Objektes, deren Inhalt als Thumbnail anzeigen zu lassen - ähnlich wie es Opera macht.

Gruß
Micha

[SirThornberry]

Opera kann das ohne Probleme weil es die Seite ja zusammenstellt und selbst malt. Wenn Opera also weiß was gemalt wird, kann es das auch in ein Vorschaubild malen. Du malst bei dir aber die Buttons nicht selbst. Demzufolge bleibt nur der Mechanismus des Screenshots der zuverlässig funktioniert.

[DGL-luke]

ähm... (TWinControl.?)PaintTo gabs doch da mal. such da mal

[SirThornberry]

@DGL-Luke: das funktioniert leider mit Controls welche von Windows gezeichnet werden nicht ganz zuverlässig

[DerAndereMicha]

Trotzdem vielen Dank, dann werd ich's wohl lassen.

Gruß
Micha

[guidok]

Ich habe mir mal Gedanken dazu gemacht und einen Lösungsansatz dazu gefunden.

Delphi-Quellcode:

var
  bm: TBitmap;
  x,y: Integer;
begin
  bm:=TBitmap.Create;
  bm.SetSize(Width,Height);
  for x := 0 to Width do
    for y := 0 to Height do
      bm.Canvas.Pixels[x,y]:=Canvas.Pixels[x,y];
  Image1.Picture.Bitmap.Assign(bm);
  Image1.Stretch:=True;
  bm.Free;
end;

Das ganze ist natürlich grottig langsam und darum nicht praktikabel und leider funktioniert es nur teilweise, das kopierte Bild der Formulars ist irgendwie nur schwarzweiß. Aber wieso?

Guido

[SirThornberry]

anstelle die Pixel einzeln zu kopieren kannst du auch BitBlt nehmen (vieeeel schneller). Warum es schwarz ist kann ich dir nicht sagen. Auf jeden Fall funktioniert der Ansatz nur wenn der Teil den du sichern willst auch sichtbar ist (auf dem Bildschirm).

[DerAndereMicha]

Diesen Gedanken hatte ich ja auch schon und genau das ist ja mein Problem, es funktioniert nur für den aktuell sichtbaren Reiter des Pagecontrols.

Gruß
Micha

[guidok]

Schade, aber ihr habt (wie immer) recht. Naja, das war in meinem Fall eh nur just for fun. Ich habe das mal mit PaintTo ausprobiert, es funktioniert auch mit nicht sichtbaren Fenstern, allerdings werden schon einige Komponenten weggelassen.

Mein Testcode dazu

Delphi-Quellcode:

var
  bm: TBitmap;
begin
  //frmBotEditor.Show;
  bm:=TBitmap.Create;
  bm.SetSize(frmBotEditor.Width,frmBotEditor.Height);
  //bm.Canvas.Lock;
  frmBotEditor.PaintTo(bm.Canvas,0,0);
  //bm.Canvas.Unlock;
  Image1.Picture.Bitmap.Assign(bm);
  Image1.Stretch:=True;
  bm.Free;
end;

Falls sich deine Seiten nicht dynamisch ändern, dann würde ich eine verkleinerte Screenshoot bmp in eine Imagelist packen und entsprechend einblenden.

Guido