Уважаемые мастера и другие

← →
vic_774N © (2002-11-16 09:36) [0]

У меня есть готовая форма созданная в Delphi5 кто нибудь сможет
конвертануть ее в форму Delphi6 и прислать мне результат ?

Спасибо за внимание !

← →
vic_774N © (2002-11-16 10:17) [1]

вот код :

Unit1.dfm
<------------------------------------------------------>
object Form1: TForm1 Left = 191 Top = 192 Width = 509 Height = 213 Caption = "Convert please this Form to Delphi 6 and send me result mail" + " to vic_774@rambler.ru" Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = "MS Sans Serif" Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object EnglishCharUp: TLabel Left = 24 Top = 24 Width = 237 Height = 13 Caption = "`1234567890-=qwertyuiop[]\asdfghjkl;"#39"zxcvbnm,./ " end object EnglishCharDown: TLabel Left = 24 Top = 48 Width = 297 Height = 13 Caption = "~!@#$%^&*()_+QWERTYUIOP{}|ASDFGHJKL:"ZXCVBNM<>? " end object RussianCharUp: TLabel Left = 32 Top = 120 Width = 289 Height = 13 Caption = "ё1234567890-=йцукенгшщзхъ\фывапролджэячсмитьбю. " end object RussianCharDown: TLabel Left = 32 Top = 144 Width = 335 Height = 13 Caption = "Ё!"№;%:?*()_+ЙЦУКЕНГШЩЗХЪ/ФЫВАПРОЛДЖЭЯЧСМИТЬБЮ, " end end
<--------------------------------------------------->

Unit1.pas

<--------------------------------------------------->
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) EnglishCharUp: TLabel; EnglishCharDown: TLabel; RussianCharUp: TLabel; RussianCharDown: TLabel; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} end.
<------------------------------------------------------>

← →
DiamondShark © (2002-11-16 10:54) [2]

Да пожалуйста! Сколько угодно!

Unit1.dfm
<------------------------------------------------------>
object Form1: TForm1
Left = 191
Top = 192
Width = 509
Height = 213
Caption =
"Convert please this Form to Delphi 6 and send me result mail" +
" to vic_774@rambler.ru"
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
PixelsPerInch = 96
TextHeight = 13
object EnglishCharUp: TLabel
Left = 24
Top = 24
Width = 237
Height = 13
Caption = "`1234567890-=qwertyuiop[]\asdfghjkl;"#39"zxcvbnm,./ "
end
object EnglishCharDown: TLabel
Left = 24
Top = 48
Width = 297
Height = 13
Caption = "~!@#$%^&*()_+QWERTYUIOP{}|ASDFGHJKL:"ZXCVBNM<>? "
end
object RussianCharUp: TLabel
Left = 32
Top = 120
Width = 289
Height = 13
Caption = "ё1234567890-=йцукенгшщзхъ\фывапролджэячсмитьбю. "
end
object RussianCharDown: TLabel
Left = 32
Top = 144
Width = 335
Height = 13
Caption = "Ё!"№;%:?*()_+ЙЦУКЕНГШЩЗХЪ/ФЫВАПРОЛДЖЭЯЧСМИТЬБЮ, "
end
end

<--------------------------------------------------->

Unit1.pas

<--------------------------------------------------->
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
EnglishCharUp: TLabel;
EnglishCharDown: TLabel;
RussianCharUp: TLabel;
RussianCharDown: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

end.
<------------------------------------------------------>

← →
daan_m © (2002-11-16 11:44) [3]

Прекрасно я всегда так ща делать буду.

← →
vic_774N © (2002-11-16 11:57) [4]

to DiamondShark

Спасибо, но результат к сожалению не тот что нужен - в delphi 6
буквы и знаки в Caption заменяются на коды типа #1034 #1055 ...
Собственно мне нужно полностью сопоставить эти коды и их обычное представление.

В принципе если просто конвертация не прокатила как сейчас
можно было бы создать полный аналог этой же формы, но чисто в Delphi6 !!!

← →
MBo © (2002-11-16 12:16) [5]

а если dfm в бинарном виде сделать в 5-ке? (convert.exe)

← →
vic_774N © (2002-11-16 12:28) [6]

to MBo
я собственно хочу написати конвертор формы D6 -> D5 для этого мне и нужна dfm из D6 с полным набором знаков !

← →
MBo © (2002-11-16 12:29) [7]

уже есть
http://delphibase.endimus.com/
раздел математика с текстом

← →
vic_774N © (2002-11-16 12:52) [8]

to MBo

Спасибо - посмотрю что это такое !

А разве Д6 не воспринимает формы из Д5 ?? Лично у меня ниразу слова против не сказала.

D5 не воспринимает формы из Д6 !

И D6 воспринимает формы из D5, и D5 воспринимает формы из D6 без всяких конвертеров. Там просто фишка есть - в D6 для формы нужно выбрать режим View as Text, и попросту скопировать из Редактора текст формы в DFM-файл.

Уважаемые мастера и другие Найти похожие ветки