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;