Merged |
Top Previous Next |
Merged:Boolean
Příznak sloučené buňky - True/False. Slučování buňek a nastavování příznaků Merged obsluhuje designer reportu automaticky. Pokud je třeba slučovat buňky skriptem, doporučujeme použít
Sheet.MergeCells(col1,row1,col2,row2);
kde col1,row1 je levý horní roh sloučených buněk a col2,row2 pravý dolní roh sloučených buněk.
Pro zobrazení dat ve sloučených buňkách a také odkaz na komponenty přiřazené sloučeným buňkám se použije index levého horního rohu.
Příklad V následujícím příkladu jsou sloučeny buňky B2+C2 na kterých leží komponenta TBrowserLookupEdit odkazovat se na komponentu LookupEditu se tedy budeme přes buňku B2
procedure BrowserLookupChange(Sender: TObject); begin OkBox(TBrowserLookupEdit(Sheet.GetCellProperty('B2').CellComponent).Text); end;
procedure OnPrepareScript(Sender : TReportProperty); begin If Sheet.GetCellProperty('B2').CellComponent<>nil then TBrowserLookupEdit(Sheet.GetCellProperty('B2').CellComponent).OnChange:=@BrowserLookupChange; end; |