Delphi

How can I change the orientation of the label on a TPageControl?

由 不问归期 提交于 2020-01-23 10:42:28
问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

How can I change the orientation of the label on a TPageControl?

由 拟墨画扇 提交于 2020-01-23 10:41:42
问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

实验9-5 查找书籍 (20分)（需要读入反斜杠）

由 三世轮回 提交于 2020-01-23 10:41:24
实验9-5 查找书籍 (20分) 给定n本书的名称和定价，本题要求编写程序，查找并输出其中定价最高和最低的书的名称和定价。 输入格式: 输入第一行给出正整数n（<10），随后给出n本书的信息。每本书在一行中给出书名，即长度不超过30的字符串，随后一行中给出正实数价格。题目保证没有同样价格的书。 输出格式: 在一行中按照“价格, 书名”的格式先后输出价格最高和最低的书。价格保留2位小数。 输入样例: 3 Programming in C 21.5 Programming in VB 18.5 Programming in Delphi 25.0 输出样例: 25.00, Programming in Delphi 18.50, Programming in VB # include <stdio.h> int main ( ) { int n , i , j ; scanf ( "%d" , & n ) ; struct cj { char book [ 30 ] ; double price ; } all [ n ] ; for ( i = 0 ; i < n ; i ++ ) { scanf ( "\n" ) ; //需要读入这个，否则后面的都不能读全； gets ( all [ i ] . book ) ; scanf ( "%lf" , & all [ i ] .

How can I change the orientation of the label on a TPageControl?

由 半腔热情 提交于 2020-01-23 10:41:07
问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

How do I get the version number of the current project using ToolsAPI in Delphi 10.2

由 北城余情 提交于 2020-01-23 07:34:39
问题 In Delphi 2007 I can easily get the version information of the current project using the following ToolsAPI calls: procedure Test; var ProjectOptions: IOTAProjectOptions; Project: IOTAProject; Major: Variant; Minor: Variant; Release: Variant; Build: Variant; begin // GxOtaGetCurrentProject is a function in GExpert's GX_OTAUtils unit that returns the current IOTAProject Project := GxOtaGetCurrentProject; if Assigned(Project) then begin ProjectOptions := Project.ProjectOptions; if Assigned

Delphi SVN integration that works with SVN 1.7?

由 。_饼干妹妹 提交于 2020-01-23 05:45:07
问题 I've just upgraded my SVN repository from 1.6 to 1.7. A major change to the repository format in 1.7 is that the ".svn" folders are no longer stored in each subdirectory; only in the root folder of the repository. Unfortunately this seems to confuse the JCL SVN integration I have been using. It seems to think my files are not under source control. Is there any Delphi SVN integration that works with 1.7 now or that has plans to support it in the near future? I am using Delphi 2010. UPDATE

Steps to enable and use iconv on Windows with Indy 10.5.9

由 廉价感情. 提交于 2020-01-23 03:35:32
问题 For cross-platform development with Internet Direct (Indy), it can be useful to enable iconv support instead of the OS-specific Windows character conversions. This would allow to continue developing and testing code on Windows in the Delphi IDE, but still be able to find conversion related issues before compiling the code on a different platform. Indy 10 already includes code to use the iconv API on Linux and Windows. On Windows, some preparation is required: copy the iconv API DLL to the app

form:Transparent, Control on form:non Transparent?

由 ∥☆過路亽．° 提交于 2020-01-23 02:43:29
问题 How can change alphablend of a form without affect on control in form? Delphi XE7 回答1: One solution to this problem is to use Multi-Device Application (if using VCL is not possible). If you need to leave a transparent TForm just changing a property Transparency = True . If you need to leave a semi-transparent component, all components have the Opacity property that can be assigned a more transparent value between 0 and 1, where 0 is closer to that component. For example you could put the

How to Invalidate only part of a paintbox/bitmap to optimise its performance?

由 我怕爱的太早我们不能终老 提交于 2020-01-23 01:48:18
问题 The question relates to: Drawing on a paintbox - How to keep up with mouse movements without delay? I was going to at some point ask the question of how to repaint only part of a paintbox without invalidating the whole paintbox, which is slow when there is a lot of drawing going on or in my case when there are a lot of tiles drawn on screen. From the link above Peter Kostov did touch on the subject briefly in one of his comments: you can partly BitBlt the offscreen bitmap (only regions where

Winsoft Joystick for FireMonkey v1.3-SEO-狼术

由 十年热恋 提交于 2020-01-23 01:35:08
　　 Winsoft Joystick for FireMonkey v1.3 for Delphi & C++ Builder 10 - 10.3 Rio Full Source 　　适用于Delphi和C ++ Builder 10的FireMonkey v1.3的Winsoft游戏杆-10.3 Rio完整源代码 　　Delphi和C ++ Builder组件，用于检索操纵杆的位置和状态。 　　使用标准的Windows游戏杆API 　　支持Delphi / C ++ Builder 10-10.3 FireMonkey应用程序 　　支持Windows 32/64位 　　注册版本中包含的源代码 　　应用程序的免版税分配 　　Delphi and C++ Builder component for retrieving joystick position and status. 　　uses standard Windows Joystick API 　　supports Delphi/C++ Builder 10 - 10.3 FireMonkey applications 　　supports Windows 32/64-bits 　　source code included in registered version 　　royalty free distribution
订阅 Delphi