我在自定义按钮上使用 onPaint 事件处理程序,但我不知道该写什么来获取图像列表或为此按钮添加标题。
procedure TForm1.TitleBarPanel1CustomButtons0Paint(Sender: TObject);
begin
...
end;
答案 0 :(得分:3)
在这个事件处理程序中,results <- do.call(rbind,lapply(1:length(data_list), function(x) {
results = metagen(data = data_list[[x]], TE = b, pval = p, level.ci = 0.95, lower = lci, upper = uci,
studlab = id, method.tau = "PM", sm = "MD", hakn = F, adhoc.hakn = "ci", title = data_list[[x]]$id[1]);
data.frame(title = results$title,
fe_effect = results$TE.fixed,
fe_lower = results$lower.fixed,
fe_upper = results$upper.fixed,
fe_p = results$pval.fixed,
re_effect = results$TE.random,
re_lower = results$lower.random,
re_upper = results$upper.random,
re_p = results$pval.random,
q = results$Q,
q_df = results$df.Q,
q_p = results$pval.Q,
tau2 = results$tau2,
tau2_se = results$se.tau2,
tau = results$tau,
h = results$H,
i1 = results$I2)
}))
实际上是一个 > results
title fe_effect fe_lower fe_upper fe_p re_effect re_lower re_upper re_p q q_df q_p tau2 tau2_se tau h i1
1 e1_o1 1 0.7113249 1.288675 1.125116e-11 1 0.7113249 1.288675 1.125116e-11 0 2 1 0 0.06507944 0 1 0
2 e1_o1 1 0.7113249 1.288675 1.125116e-11 1 0.7113249 1.288675 1.125116e-11 0 2 1 0 0.06507944 0 1 0
。您可以将其转换为访问他的属性,例如 Sender
。有了 TSystemTitlebarButton
,您可以绘制任何需要的东西。
简单使用示例:
Canvas