16-04-2019, Saat: 09:53
Sevgili meslektaşlarım,
birkaç gün önce sormuş olduğum, VCL Chart önerisi konusunda verdiğiniz cevaplar ve Sn. Muharrem ARMAN [b]mrmarman [/b]hocamızın da örneklediği bilgiler ışığında, sorunumu gidermiş oldum. Daha sonraki süreçte, program arayüzünü güncellemek amacı ile, Alphaskin firmasının VCL ini kullanarak, arayüzde görsellik yaptım. Ancak, TeeChart üzerinde yazılmış olan kodlar artık çalışmamaktadır. Yani, teechart bileşeninin onmouseover eventına yazılan kod geçersiz kalmaktadır. Yeni bir proje açıp aynı kodu oraya yapıştırıp çalıştırdığımda ise sorun olmadan devem etmektedir. Bu şekilde, Alphaskin componenti kullanıp ta, böylesine sorun yaşayan arkadaşlarımız oldu mu bilgi verirlerse çok sevinirim.
Çalışan kod şu şekilde :
yardımlarınız için şimdiden çok teşekkür ederim.
birkaç gün önce sormuş olduğum, VCL Chart önerisi konusunda verdiğiniz cevaplar ve Sn. Muharrem ARMAN [b]mrmarman [/b]hocamızın da örneklediği bilgiler ışığında, sorunumu gidermiş oldum. Daha sonraki süreçte, program arayüzünü güncellemek amacı ile, Alphaskin firmasının VCL ini kullanarak, arayüzde görsellik yaptım. Ancak, TeeChart üzerinde yazılmış olan kodlar artık çalışmamaktadır. Yani, teechart bileşeninin onmouseover eventına yazılan kod geçersiz kalmaktadır. Yeni bir proje açıp aynı kodu oraya yapıştırıp çalıştırdığımda ise sorun olmadan devem etmektedir. Bu şekilde, Alphaskin componenti kullanıp ta, böylesine sorun yaşayan arkadaşlarımız oldu mu bilgi verirlerse çok sevinirim.
Çalışan kod şu şekilde :
procedure TForm1.PieMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var sIdx : Integer; aPoint : TPoint; begin sIdx := FChart.Series[0].Clicked(X, Y); FChart.ShowHint := sIdx <> -1; if FChart.ShowHint then begin FChart.Hint := FChart.Series[0].ValueMarkText[sIdx]; aPoint.X := X; aPoint.Y := Y - 30; Application.ActivateHint( ClientToScreen( aPoint )); end; end;
yardımlarınız için şimdiden çok teşekkür ederim.
Yazılımcı, kahveyi koda çeviren bir organizmadır.