Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

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

---

← →
SPeller   (2002-11-16 13:00) [9]

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

---

← →
vic_774N   (2002-11-16 13:05) [10]

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

---

← →
drpass   (2002-11-16 13:21) [11]

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

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.012 c