AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TabSheet Hintergrund zeichen

Ein Thema von CReber · begonnen am 9. Feb 2005 · letzter Beitrag vom 9. Feb 2005
Antwort Antwort
Benutzerbild von CReber
CReber

Registriert seit: 26. Nov 2003
Ort: Berlin
343 Beiträge
 
Delphi 2006 Professional
 
#1

TabSheet Hintergrund zeichen

  Alt 9. Feb 2005, 18:41
Ich habe es jetzt mittels zwei Varianten probiert, einen Hintergrund auf meine TabSheets zu kriegen (JvPageControl)

BG_CONTENT_LINE = selbst wenn man BorderWidth usw. ausstellt, hat man immernoch einen 2px hohen Rand oben bei der PageControl

BG_CONTENT = ein einfaches Hintergrundbild

1.) per Button - funktioniert aber die Objekte werden übermalt
2.) per OwnerDraw - funktioniert erst gar nicht (OwnerDraw ist aktiviert)

Delphi-Quellcode:
procedure Tf_USBLOCK.jvPagesDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
  var jpeg : TJpegImage;
      sFile : String;
begin

  // PaintPageControl
  jpeg := TJpegImage.Create;
  with jpeg do begin
    Canvas.Handle := GetDC(jvPages.Handle);
    sFile := ExtractFilePath(Application.ExeName) + 'Images\BG_CONTENT_LINE.jpg';
    LoadFromFile(sFile);
    try
      Canvas.Draw(0,0, jpeg);
    finally
      ReleaseDC(Canvas.Handle, jvPages.Handle);
      Free;
    end;
  end;

  // PaintTab
  jpeg := TJpegImage.Create;
  with jpeg do begin
    Canvas.Handle := GetDC(jvPages.ActivePage.Handle);
    sFile := ExtractFilePath(Application.ExeName) + 'Images\BG_CONTENT.jpg';
    LoadFromFile(sFile);
    try
      Canvas.Draw(0,0, jpeg);
    finally
      ReleaseDC(Canvas.Handle, jvPages.ActivePage.Handle);
      Free;
    end;
  end;
end;
Meine Frage ist also, wie kann ich verhindern, das die Objekte übermalt werden?
Christian Reber
  Mit Zitat antworten Zitat
Benutzerbild von CReber
CReber

Registriert seit: 26. Nov 2003
Ort: Berlin
343 Beiträge
 
Delphi 2006 Professional
 
#2

Re: TabSheet Hintergrund zeichen

  Alt 9. Feb 2005, 20:38
Mir ist aufgefallen das lediglich Images, Labels o. ä. Objekte übermalt werden, aber die anderen Sachen nicht. Kann mir jemand sagen wieso?
Christian Reber
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz