さらに今回は、マルチプラットフォームサポートを重要なフォーカスとしているため、複数バージョンの Windowsプラットフォームのほかに、Mac OS X、Linuxの主要なディストリビューションをテスト環境として利用できる方を募集します。ということで、Delphi/C++Builder 2011はWindows/MacOS X/Linuxのクロスプラットフォームになるようです。
It is not Delphi's issue.って話じゃないと思うんだけど。
[Code] セクションでイベント関数 CheckSerial を記述している場合には、シリアル番号入力欄が表示される。ということで可能なようです。
JIS0213:2004制定時に字体変更された文字の旧字体を異体字として収容とのこと。
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
Button1.Enabled := False;
FLastTick := 0;
Timer1Timer(Sender);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
LII: TLastInputInfo;
begin
FillChar(LII,SizeOf(LII),0);
LII.cbSize := SizeOf(LII);
if GetLastInputInfo(LII) = False then
begin
Exit;
end;
Label1.Caption := 'Last user input: ' + IntToStr(LII.dwTime);
if FLastTick <> LII.dwTime then
begin
Label1.Font.Color := clWindowText;
FLastTick := LII.dwTime;
end
else
begin
Label1.Font.Color := clRed;
end;
if (GetTickCount - LII.dwTime) > (10 * MSecsPerSec) then
begin
Timer1.Enabled := False;
Button1.Enabled := True;
MessageDlg('Detect for input idle (10 seconds).',
mtInformation,[mbOk],0);
Label1.Caption := '';
end;
end;
The problem does not occur in the latest 2010 version.)とのことです。
# IpcName = IpcName = Global\FIREBIRDIpcName = Global\FirebirdIPIThis fix has not been tested at all, and it is not supported in any way by Embarcadero. If it works for you, great… if not, you’ve been warned.(超訳:この修正は完全にテストされてはおらず、エンバカデロによりサポートされません。あなたの環境で動作すれば素晴らしい…んですが、もし駄目だったとしても、警告しましたよ)だそうです。
Sorry Delphi 5 users, but I can’t support you anymoreとのこと)。
we are working on a fix that will cover everyoneだそうです。
program Project2;
uses
Windows,
SysUtils,
Messages,
Forms,
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
const
{ Atom name }
CAtomName: String = '{7B0C8E12-F168-4DA4-89C9-E4C86BE404FE}';
var
AppAtom: ATOM;
Wnd: HWnd;
AppWnd: HWnd;
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
if GlobalFindAtom(PChar(CAtomName)) <> 0 then
begin
{ Search main form }
Wnd := FindWindow(PChar('TForm2'),nil); // Class name of the main form
if Wnd = 0 then
begin
Exit;
end;
{ Bring foreground and activate }
SetForegroundWindow(Wnd);
{ Get window handle of TApplication }
AppWnd := GetWindowLong(Wnd,GWL_HWNDPARENT);
if AppWnd <> 0 then
begin
Wnd := AppWnd;
end;
{ Restore if iconized }
if IsIconic(Wnd) then
begin
SendMessage(Wnd,WM_SYSCOMMAND,SC_RESTORE,-1);
end;
Exit;
end;
AppAtom := GlobalAddAtom(PChar(CAtomName));
try
Application.CreateForm(TForm2, Form2);
Application.Run;
finally
GlobalDeleteAtom(AppAtom);
end;
end.
But I should note that this isn’t an "officially sponsored" Embarcadero deal. This is at best "semi-official".)ことになったそうです(オープンソース化された経緯については旧Delphi-MLの73894以下のスレッドが参考になります)。現在TurboPowerプロジェクトには以下のプロジェクトが存在しています。
procedure TDataModule1.IdFTP1DataChannelCreate(ASender: TObject;
ADataChannel: TIdTCPConnection);
begin
if (ASender <> nil) and (ASender is TIdFTP) then
begin
if (TIdFTP(ASender).Passive = True) and
(ADataChannel <> nil) and (ADataChannel is TIdTCPClientCustom) then
begin
TIdTCPClientCustom(ADataChannel).ReadTimeout := TIdFTP(ASender).TransferTimeout;
end;
end;
end;