可恶的Borland(300分)

我的程序就是分别在5核上分别的编译，
哈哈哈哈哈
真是有病

有的時候自己改一改也不錯,我想可能是因為要加入一些新的東西或是調整一下
Delphi的結構.

这是DELPHI的灵活之处啊
〔：D

这表明D6没有D5的拖累，它的功能也越强大。
不过我是越来越不喜欢DELPHI了。

继续用d5

http://delphi.icm.edu.pl/是个好地方。

http://delphi.icm.edu.pl/
我这的服务器解析不了这个域名，谁能直接把它的IP写出来。

其实国外的支持中文不好，我用过所有了都一样。
还有不只是加DesignIntf，好像是去掉原来的什么，加入新的什么什么的。
返正我是通过的编译，也是一个语法着色的东东。

＊＊＊＊＊＊＊＊＊
我看了一下D6的帮助，里面有DesignIntf这东西，它在DesignIntf单元
你将这个单元加到dsgnintf.pas的uses里面看能行吗
＊＊＊＊＊＊＊＊＊

的确如此！太可恶了！

dsigo 你想想看嘛，不要好象什么什么。这太深渊啦。
或者你把你通过的编译的东西，放上某个地方。

c#

很容易的。分给我：
修改：mwEditPropertyReg.pas
将代码复制下来，保存为 mwEditPropertyReg.pas
//----------------------------------//
{+-----------------------------------------------------------------------------+
| Unit: mwEditPropertyReg
| Created: 1999-10-31
| Version: 0.88
| Last change: 1999-10-31
|
| Property editors for the mwEdit component suite
| (moved into this unit to separate design-time only code)
+----------------------------------------------------------------------------+}

unit mwEditPropertyReg;

{$I mwEdit.inc}

interface

procedure Register;

implementation

uses
Classes, DesignEditors,DesignIntf, Dialogs, Forms, Graphics, Controls,
mwCustomEdit, mwKeyCmds, mwKeyCmdsEditor;

type
{ TmwEditorFontProperty = class(TSetProperty)
public
procedure Edit; override;
end;}

TmwEditorCommandProperty = class(TIntegerProperty)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes; override;
function GetValue: string; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure SetValue(const Value: string); override;
end;

TmwKeyStrokesProperty = class(TClassProperty)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes; override;
end;

{ TmwEditorFontProperty }

{procedure TmwEditorFontProperty.Edit;
const
hcDFontEditor = 25000;
var
FontDialog: TFontDialog;
begin
FontDialog := TFontDialog.Create(Application);
try
FontDialog.Font := TFont(GetOrdValue);
FontDialog.HelpContext := hcDFontEditor;
FontDialog.Options := FontDialog.Options + [fdShowHelp, fdForceFontExist,
fdFixedPitchOnly];
if FontDialog.Execute then
SetOrdValue(Longint(FontDialog.Font));
finally
FontDialog.Free;
end;
end;
}
{ TmwEditorCommandProperty }

procedure TmwEditorCommandProperty.Edit;
begin
ShowMessage('I''m thinking that this will show a dialog that has a list'#13#10+
'of all editor commands and a description of them to choose from.');
end;

function TmwEditorCommandProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect, paDialog, paValueList, paRevertable];
end;

function TmwEditorCommandProperty.GetValue: string;
begin
Result := EditorCommandToCodeString(TmwEditorCommand(GetOrdValue));
end;

procedure TmwEditorCommandProperty.GetValues(Proc: TGetStrProc);
begin
GetEditorCommandValues(Proc);
end;

procedure TmwEditorCommandProperty.SetValue(const Value: string);
var
NewValue: longint;
begin
if IdentToEditorCommand(Value, NewValue) then
SetOrdValue(NewValue)
else
inherited SetValue(Value);
end;

{ TmwKeyStrokesProperty }

procedure TmwKeyStrokesProperty.Edit;
var
Dlg: TmwKeystrokesEditorForm;
begin
Application.CreateForm(TmwKeystrokesEditorForm, Dlg);
try
Dlg.Caption := Self.GetName;
Dlg.Keystrokes := TmwKeystrokes(GetOrdValue);
if Dlg.ShowModal = mrOk then
begin
{ SetOrdValue will operate on all selected propertiy values }
SetOrdValue(Longint(Dlg.Keystrokes));
Modified;
end;
finally
Dlg.Free;
end;
end;

function TmwKeyStrokesProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;

{ Register }

procedure Register;
begin
{ RegisterPropertyEditor(TypeInfo(TFont), TmwCustomEdit,
'Font', TmwEditorFontProperty);}
RegisterPropertyEditor(TypeInfo(TmwEditorCommand), NIL,
'Command', TmwEditorCommandProperty);
RegisterPropertyEditor(TypeInfo(TmwKeystrokes), NIL, '',
TmwKeyStrokesProperty);
end;

end.

這是什麽話？
我前幾天把一個d6做的項目改成d5的，那真叫累，，，呵呵

就是！升級容易降級難啊

同情 nizvoo 哈哈

to tinytao：
我给你发过去了，在里，注意接收
共两个文件，SynEdit_CVS.rar、DFMConverterVCL.zip，一共700K

把DesignIntf替换成DesignIntf,VCLEditors,DesignEditors

http://delphi.icm.edu.pl/

我PING不通，對不起，，，哪位再幫忙

因此我现在还在用D3