kada radim ovako nema pocetka a ni kraja scrol...
Code:
void __fastcall TGlavnaF::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
TPoint &MousePos, bool &Handled)
{
Panel1-> ScrollBy(0, WheelDelta);
}
void __fastcall TGlavnaF::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
TPoint &MousePos, bool &Handled)
{
Panel1-> ScrollBy(0, WheelDelta);
}
Kad koristim event OnScroll od TScrollbar onda skrolovanje ide samo prema nagore (TOP) za y koodrinatu uzima sve manje i manje vredoste bez obzira dali sa skrolom ides nagore ili nadole...BCB je upitanju...moze neko resenje :D Hvala
Code:
void __fastcall TGlavnaF::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode,
int &ScrollPos)
{
Panel1-> ScrollBy(0, ScrollPos);
}
void __fastcall TGlavnaF::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode,
int &ScrollPos)
{
Panel1-> ScrollBy(0, ScrollPos);
}