DGL • Thema anzeigen - Eigene Scrollbox - Nur sichtbare Bereiche zeichnen

Eigene Scrollbox - Nur sichtbare Bereiche zeichnen

Moderator: DGL-Team

Seite 2 von 2

[ 16 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Pluto

Betreff des Beitrags:

Verfasst: So Aug 03, 2008 17:22

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

ich müsste glaube ich nur wissen, wie ich hier prüfen kann ob gezeichnet werden muss oder nicht:

Code:

 
procedure TPlScrollBoxOBJScroll.Paint;
var
  r,r1,r2:TRect;
begin
  inherited Paint;
{  r1.Left:=left;
  r1.Top:=top;
  r1.Right:=(r1.Left+Scrollbox.ClientWidth);
  r1.Bottom:=(r1.Top+Scrollbox.ClientHeight);
 
  r2.Left:=items[i].Left;
  r2.Top:=items[i].Top;
  r2.Right:=r2.Left+items[i].Width;
  r2.Bottom:=r2.Top+items[i].Height;}
  writeln(top,'',PaintY);
 
  Scrollbox.SetBounds(PaintX, PaintY, Width, Height);
 
end; 
 

Hier wird jetzt ein neues Scroll Bereich gezeichnet. ScrollBox ist meine eigene ScrollBox.
Ich kann Objekte erstellen und diese Verschiedene ScorllBoxen zuordnen. Was ganz Praktisch ist.
Somit schaffe ich verschiedene ScrollBereiche.

Das Problem ist jetzt glaube ich einfach in TPlScrollBoxOBJScroll.Paint drin. Hier müsste ich jetzt prüfen ob gezeichnet werden soll oder nicht Weil SetBounds habe ich gesehen, löst intern ein Paint aus.

_________________
MFG<br> Michael Springwald, <br>
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Seite 2 von 2

[ 16 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.