delphi 字体变小

Posted 2023-05-17

我的一个Delphi程序，运行的时候，字体自动变小，设置的是10号字体，有可能第一遍打开一个窗口是显示10号字，当第二遍打开这个窗口是就显示成8号字了，这是怎么回事呀？我的操作系统是2000
回复2楼：设置字号大小我是在属性里直接设定的，不是在程序里写代码来设定的。我的空间里默认相册中的最后一个图片是程序的一个切片图，你看一下吧

不可能,你把你做的程序代码贴上来,主要是那个窗口的,代码,我看看.你的字体是用什么显示.我试过用label控件和edit控件来显示,都不会出现字体变小变大情况.我只看到一幅图片,其它什么也都没没有看到.你应把显示字体是用什么控件说出来. 参考技术A 是否与屏幕的分辨率有关？你在网上查一下这方面的资料

Compose Text fontSize 字体大小 AutoSize 超过一行后自动变小 永远保持一行

      val textStyleBody1 = TextStyle(
                                color = HaiveColor_Main,
                                fontSize = 18.sp,
                                fontWeight = FontWeight.SemiBold
                            )
                            //文本自动缩小
                            var textStyle1 by remember  mutableStateOf(textStyleBody1) 
                            var readyToDraw1 by remember  mutableStateOf(false) 

                            val textStyleBody2 = TextStyle(
                                color = HaiveColor_Main,
                                fontSize = 18.sp,
                                fontWeight = FontWeight.SemiBold
                            )

Text(
                                        text = "$mMonthPrice/$stringResource(id = R.string.pop_vip_label_mo)",
                                        color= HaiveColor_White,
                                        textStyle = textStyle1,
                                        modifier = Modifier.drawWithContent 
                                            if (readyToDraw1) drawContent()
                                        ,
                                        //自动变小
                                        onTextLayout =  textLayoutResult ->

                                            if (textLayoutResult.didOverflowWidth) 
                                                textStyle1 =
                                                    textStyle1.copy(fontSize = textStyle1.fontSize * 0.9)
                                             else 
                                                readyToDraw1 = true
                                            
                                        ,


                                        )