Delphi

Delphi - TEdit Labels are not displaying (Windows 7/Vista only)

半腔热情 提交于 2020-01-04 02:44:34
问题 I we got few TEdit forms inserted on another form, but their labels are not displaying until I change size of the window. This happens just on Windows Vista / Windows 7. Windows XP has everything labeled correctly. Ive already tested repaint / refresh (just TEdit / all form etc.) with no result. Delphi 7. Thank you for your answer bad version Correct version code will be added soon enough :) 回答1: May be it is ALT Key press causes controls to disappear under Themes in Vista and XP bug? 回答2: I

Delphi - TEdit Labels are not displaying (Windows 7/Vista only)

谁说我不能喝 提交于 2020-01-04 02:44:31
问题 I we got few TEdit forms inserted on another form, but their labels are not displaying until I change size of the window. This happens just on Windows Vista / Windows 7. Windows XP has everything labeled correctly. Ive already tested repaint / refresh (just TEdit / all form etc.) with no result. Delphi 7. Thank you for your answer bad version Correct version code will be added soon enough :) 回答1: May be it is ALT Key press causes controls to disappear under Themes in Vista and XP bug? 回答2: I

Downloading list of files from remote FTP

☆樱花仙子☆ 提交于 2020-01-04 02:44:27
问题 I'm getting a problem using the TidFTP component. I'm able to connect with the server using a code like this vFileList := TStringList.Create; oClientFTP := TidFTP.Create(nil); oClientFTP.Port := PortFTP; oClientFTP.Host := IPHost; oClientFTP.UserName := UserFTP; oClientFTP.Password := PasswordFTP; After getting several files from the StringList (this one has exactly 778 elements) when the element no. 137 is retrieved the exception EIdAcceptTimeout is raised with "Accept timed out." message.

Delphi 2009 using MSBuild in RAD Studio Command Prompt F1026 File not found

一个人想着一个人 提交于 2020-01-04 02:11:52
问题 I have been struggling to get the MSBuild to successfully build my .dproj file for the last few days on a build machine. First, I needed the EnvOptions.proj file from the developer's machine, which got me clear of the missing system.pas file, but now I am getting a compile error for a missing .dcu C:\Program Files\CodeGear\RAD Studio\6.0\Bin\CodeGear.Delphi.Targets(123,3): error : myproject.dpr(17) Fatal: F1026 File not found: 'mymissing.dcu' Now the path to "mymissing.dcu" is included in the

DLL (Delphi) with ADO (connection and query) not work in Java (using jna)

我怕爱的太早我们不能终老 提交于 2020-01-04 02:10:06
问题 I have a dll (Delphi) that contains a ADOConnection and ADOQuery, but when running the called DLL in java (using JNA) appear some error information to the console (below): A fatal error has been detected by the Java Runtime Environment: Internal Error (0xeedfade), pid=4400, tid=3840 JRE version: 6.0_25-b06 Java VM: Java HotSpot(TM) Client VM (20.0-b11 mixed mode, sharing windows-x86 ) Problematic frame: C [KERNELBASE.dll+0x812f] An error report file with more information is saved as: C:\Users

Resizing frames with width constraints

时光总嘲笑我的痴心妄想 提交于 2020-01-04 02:02:06
问题 I have simple form TForm1 with 2 panels. First with Align := alLeft and second with Align := alClient and empty frame TFrame1 . When i add following procedures to the form, everything works without problems. procedure TForm1.FormCreate(Sender: TObject); var lFrame1, lFrame2 : TFrame1; begin lFrame1 := TFrame1.Create(nil); lFrame1.Parent := pnl1; lFrame1.Align := alClient; lFrame2 := TFrame1.Create(nil); lFrame2.Parent := pnl2; lFrame2.Align := alClient; end; procedure TForm1.FormResize(Sender

What event fires every time a TDbGrid's selected location is changed?

ε祈祈猫儿з 提交于 2020-01-04 01:58:50
问题 I've got a TDbGrid in my project, and I'm trying to have an event go off every time I change the selected row. Any change in row already updates all the data-aware controls linked to the same DataSource, but there are other changes to be made too, that I need an event handler for. I thought OnColEnter would work. According to the helpfile, it fires when: The user navigates to the cell using the keyboard. For example, when the user uses the Tab key, or the Home key. The user clicks the mouse

Default printer settings are ignored

試著忘記壹切 提交于 2020-01-04 01:58:11
问题 Using Windows Print Spooler API's, we can print out XPS files. The problem is that the print spooler ignores the default printer settings . (We've given up on trying to apply printer settings. Default printer settings will just have to suffice.) For example... the printouts always come out in colour and on one paper per page, regardless of what the settings are set to in the control panel: black & white/colour, duplex/not duplex, multiple pages per sheet/single page per sheet. Other

How to change color of TDateTimePicker?

早过忘川 提交于 2020-01-04 01:38:50
问题 How do i change the color of a TDateTimePicker ? A Date and Time Picker can have a color: Normally this is done by setting the Color : procedure TForm1.FormCreate(Sender: TObject); begin DateTimePicker1.Color := clLime; end; But when using version 6 of the Date and Time Picker Control, the color no longer works: I tried using SetWindowTheme to disable the style of the TDateTimePicker : procedure TForm1.FormCreate(Sender: TObject); begin UxTheme.SetWindowTheme(DateTimePicker1.Handle, '', '');

GetEnumName TypeInfo problems (pascal / Delphi console)

旧街凉风 提交于 2020-01-03 20:58:09
问题 Working on a console application using Delphi 7, and have run into a problem. I get an error on line 26 after str := GetEnumName(TypeInfo (words[3].group), The error reads "[Error] Project1.dpr(26): TYPEINFO standard function expects a type identifier" if anyone could help with this, it would be a great help! Cheers! program Project1; {$APPTYPE CONSOLE} uses SysUtils, TypInfo; type wordset = Record word : String; group : (flavour, colour, place, animal); end; Var words : Array [1..50] of