Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

Zum markierten Objekt scrollen in einer Scrollbox

  Alt 18. Jan 2007, 17:48
Hallo,
ich habe da ein problem und zwar habe ich eine liste wo objekte drin stehen(eigene) Trechteck, TKreis und soweiter.... wenn ich da doppelt draufklicke möchte ich gerne zum makierten obejkt springen... leider macht folgender code garnichts:
Delphi-Quellcode:
  if Paint2main.liste.selobject <> NIL then begin
    with Paint2main.liste.selobject do begin
      (PageControl2.ActivePage.Controls[0] as TScrollBox).ScrollBy(Position.x,position.y );
      ((PageControl2.ActivePage.Controls[0] as TScrollBox).Controls[0] as TPanel).Invalidate;

      paint2main.asf:=(PageControl2.ActivePage.Controls[0] as TScrollBox).Canvas.ClipRect;
    end;
  end;
den befehl ScrollBy habe ich aus dem forem dank der such funktion gefunden.... aber ich komme einfach nicht weiter !
kann mir da jemmand weiter helfen ???

achja ich arbeitet unter linux mit lazarus - sollte aber trozdem funktnienrn denke ich oder ? bzw. sollte kein größers problem dastellen !!
da lazarus fast so funktniert wie Delphi

[edit=MrSpock]Schreibfehler in Überschrift korrigiert. Mfg, MrSpock[/edit]
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat