如何解决如何 Delphi“VCL 表单的自定义标题栏”向自定义按钮添加标题或字形?
我在自定义按钮上使用 onPaint 事件处理程序,但我不知道该写什么来获取图像列表或为此按钮添加标题。
procedure TForm1.TitleBarPanel1CustomButtons0Paint(Sender: TObject);
begin
...
end;
解决方法
在这个事件处理程序中,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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。