Autor Téma: Sinea 2004 rolování náhledu sestavy  (Přečteno 314 krát)

Offline Viktor Marek

  • Mladík
  • **
  • Příspěvků: 79
  • Karma: 1
    • Verze Delphi: Delphi 5
Sinea 2004 rolování náhledu sestavy
« kdy: 05-04-2020, 20:06:56 »
Stále používám v Delphi 5 generátor sestav Sinea 2004. Neřešil někdo s úspěchem rolování náhledu tiskové sestavy kolečkem myši?

Offline Marek Weyda

  • Plnoletý
  • ***
  • Příspěvků: 241
  • Karma: 8
    • Verze Delphi: Delphi 2007, 10.1 Berlin
Re:Sinea 2004 rolování náhledu sestavy
« Odpověď #1 kdy: 06-04-2020, 09:49:02 »
Netuším, o jaký generátor sestav se jedná, ale v prehistorických dobách Delphi vím, že jsme obecně řešili problém s rolováním kolečkem myši v gridech a možná i někde jinde. Dělalo se to tak, že se odchytávala WM_MOUSEWHEEL a naprogramovala se pak vlastní funkčnost, která nedělala problémy. Tak možná to bude něco podobného i v tomto vašem případě. Jinak netuším. Jiný generátor sestav než Fast Reports jsem nikdy nepoužíval a ani jsem neměl a nemám důvod. Velice doporučuji, je to fakt profesionální nástroj a relativně dost levný.

Offline Viktor Marek

  • Mladík
  • **
  • Příspěvků: 79
  • Karma: 1
    • Verze Delphi: Delphi 5
Re:Sinea 2004 rolování náhledu sestavy
« Odpověď #2 kdy: 06-04-2020, 13:20:57 »
Fast Reports je nepochybně dokonalý, ale jaksi jak říkáš prehistorické Delphi 5 nezná (Fast Reports VCL 6 - minimálně Delphi 7)
Cena 300 euro pro domácí kutění není také zanedbatelná.

Offline Jirka

  • Plnoletý
  • ***
  • Příspěvků: 211
  • Karma: 8
    • Verze Delphi: XE2
Re:Sinea 2004 rolování náhledu sestavy
« Odpověď #3 kdy: 06-04-2020, 14:20:17 »
Fast Reports je nepochybně dokonalý, ale jaksi jak říkáš prehistorické Delphi 5 nezná (Fast Reports VCL 6 - minimálně Delphi 7)
no zas tak dokonalý není , ale asi je v současné nabídce nejlepší.
Sinea byla ve své době výborná (zejména pokud porovnám s tehdejším Crystal Reportem). Co nejvíce  pokulhávalo byl design rozhraní ..
Ale už je to hafo let...  Jinak autor byl pan Krmela  a +- pan Škeřík

Offline jirka52

  • Mladík
  • **
  • Příspěvků: 57
  • Karma: 2
    • Verze Delphi: D2, D5, D6, D2005, D2006, D2009, DXE2,DXE7,D10.2
Re:Sinea 2004 rolování náhledu sestavy
« Odpověď #4 kdy: 07-04-2020, 13:08:50 »
Ahoj,
v Delphi 6 jsem to řešil ve svém kódu takhle.

Kód: Delphi [Vybrat]
  1. //komponenta TApplicationEvents na formu
  2.   AppEvents: TApplicationEvents;
  3.  
  4. //implementace události OnMessage
  5. procedure TMainForm.AppEventsMessage(var Msg: tagMSG;
  6.   var Handled: Boolean);
  7. var
  8.   I : Integer;  
  9. begin
  10.   if (Msg.message = WM_MOUSEWHEEL) then
  11.   begin
  12.     Msg.message := WM_KEYDOWN;
  13.     Msg.lParam := 0;
  14.     i := HiWord(Msg.wParam);
  15.     if (i > 0) then
  16.     begin
  17.       Msg.wParam := VK_UP;
  18.     end
  19.     else
  20.     begin
  21.       Msg.wParam := VK_DOWN;
  22.     end;      
  23.     Handled := False;
  24.   end;  
  25. end;
  26.