о формах

← →
tradakad © (2006-02-13 10:39) [0]

Приветсвую всех!

есть ли какой нибудь редактор, позволяющий просматривать/редактировать формы не считая IDE ?

Спасибо!

← →
Marser © (2006-02-13 10:43) [1]

Блокнот

← →
tradakad © (2006-02-13 10:52) [2]

СПасибо, очень остроумно, но имелось в виду ВИЗУАЛЬНОЕ отбражение формы, а не текста.

← →
КаПиБаРа © (2006-02-13 11:00) [3]

Может Lazarus?

← →
Ega23 © (2006-02-13 11:06) [4]

> СПасибо, очень остроумно, но имелось в виду ВИЗУАЛЬНОЕ отбражение
> формы, а не текста.

Блокнот отлично визуально показывает ресурсы формы.

← →
tradakad © (2006-02-13 11:14) [5]

2 КаПиБаРа

- вот именно!! как я мог забыть! возможно это то что нужно! (дело в том , что я переехал на FreeBSD но нужно писать на делфи, вот и кручусь и извращаюсь, пытаюсь delphi к wine прикрутить и т.п.)

2 Ega23

честно говоря даже не представляю как? :)

← →
Ega23 © (2006-02-13 11:18) [6]

object GUIAccRolePropsFrame: TGUIAccRolePropsFrame Left = 0 Top = 0 Width = 528 Height = 610 TabOrder = 0 object pnAccRoleGrid: TPanel Left = 0 Top = 0 Width = 528 Height = 137 Align = alTop BevelOuter = bvNone Caption = "pnAccRoleGrid" TabOrder = 0 object Label1: TLabel Left = 0 Top = 0 Width = 528 Height = 16 Align = alTop Caption = " Роли доступа" Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = "MS Sans Serif" Font.Style = [fsBold] ParentFont = False end object dbgAccessRoles: TDBGridEh Left = 0 Top = 16 Width = 528 Height = 121 Align = alClient DataSource = dsAccRoles FooterColor = clWindow FooterFont.Charset = DEFAULT_CHARSET FooterFont.Color = clWindowText FooterFont.Height = -11 FooterFont.Name = "MS Sans Serif" FooterFont.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = "MS Sans Serif" TitleFont.Style = [] Columns = < item EditButtons = <> FieldName = "ObjNam" Footers = <> Title.Alignment = taCenter Title.Caption = "Название" Width = 200 end item EditButtons = <> FieldName = "ObjLab" Footers = <> Title.Alignment = taCenter Title.Caption = "Сокращение" Width = 100 end item EditButtons = <> FieldName = "ObjMskStr" Footers = <> Title.Alignment = taCenter Title.Caption = "Используется"

Вот так. А чего тут непонятного???

← →
tradakad © (2006-02-13 11:27) [7]

:) ну вобщем все понятно :))

← →
Ega23 © (2006-02-13 11:30) [8]

> :) ну вобщем все понятно :))

А раз всё понятно, тогда к чему был [2]?
Если настолько сильно надо - напиши собственный парсер dfm и построение формы по нему.
И будет тебе щщастье.

← →
tradakad © (2006-02-13 11:41) [9]

А раз всё понятно, тогда к чему был [2]?

- честно говоря тогда я подумал, что человек просто издевается

Если настолько сильно надо - напиши собственный парсер dfm и построение формы по нему.

- в принципе это конечно идея, и очень интересная, думаю реализация её многим окажеться полезной, только вероятнее всего у меня на такое дело ума не пока хватит, хотя попробовать конечно же будет интересно, главное сама идея замечательная, но для начала попробую lazarus

← →
Ega23 © (2006-02-13 11:44) [10]

> - честно говоря тогда я подумал, что человек просто издевается

Ну, в общем, не издевался. Хотя я предпочитаю notepad++ использовать - там подсветка синтаксиса.

> - в принципе это конечно идея, и очень интересная, думаю
> реализация её многим окажеться полезной, только вероятнее
> всего у меня на такое дело ума не пока хватит, хотя попробовать
> конечно же будет интересно, главное сама идея замечательная,
> но для начала попробую lazarus

Вопрос только один: А НАФИГА??? Есть же Delphi?

← →
Marser © (2006-02-13 11:49) [11]

> - честно говоря тогда я подумал, что человек просто издевается

Не издевался :-)
Вам надо было открыть dfm-файл и убедиться. Правда, при оключенном Text DFM там было бы нечто нечитабельное.

← →
tradakad © (2006-02-13 11:53) [12]

читайте ниже :)

>- вот именно!! как я мог забыть! возможно это то что нужно! (дело в том , что я >переехал на FreeBSD но нужно писать на делфи, вот и кручусь и извращаюсь, >пытаюсь delphi к wine прикрутить и т.п.)

← →
Ega23 © (2006-02-13 11:56) [13]

> пытаюсь delphi к wine прикрутить и т.п.

у-у-у-у-у.....
В сторону Kylix посмотри

> Не издевался :-)
> Вам надо было открыть dfm-файл и убедиться. Правда, при
> оключенном Text DFM там было бы нечто нечитабельное.
>

то ли у меня куча страниц открыта , то ли кофе не действует - прошу всех простить меня и еще раз сказать - НЕУЖЕЛИ и ПРАВДА можно открыть болкнотом dfm файл и увидеть кнопочки и все остальные виджеты???

> и увидеть кнопочки и все остальные виджеты???

Нет, конечно. Но можно увидеть их описание; профессионалу это достаточно.

Ega23 © (13.02.06 12:03) [15]
Например посмотришь на этот текст, сразу понятно что где находится. Только название таблицы нужно на 5 пикселей влево сместить, а то не красиво как то выглядит :)

object CargoDayRepForm: TCargoDayRepForm
Left = 313
Top = 268
Width = 640
Height = 386
Caption = "CargoDayRepForm"
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 337
Width = 632
Height = 3
Cursor = crVSplit
Align = alBottom
end
object Splitter2: TSplitter
Left = 0
Top = 202
Width = 632
Height = 3
Cursor = crVSplit
Align = alBottom
AutoSnap = False
MinSize = 100
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 66
Width = 632
Height = 136
Align = alClient
DataSource = dsCargo
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
PopupMenu = PopupMenu1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = "MS Sans Serif"
TitleFont.Style = []
OnDrawColumnCell = DBGridEh1DrawColumnCell
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = "MS Sans Serif"
FooterFont.Style = []
FooterColor = clWindow
UseMultiTitle = True
AutoFitColWidths = True
Flat = True
OnGetCellParams = DBGridEh1GetCellParams
Columns = <
item
FieldName = "NAMEDIRECTION"
Footers = <>
end
item
FieldName = "SURNAME"
Footers = <>
end
item
FieldName = "CARGONUMBER"
Footers = <>
end
item
FieldName = "PLACES"
Footers = <>
end
item
FieldName = "PAYALL"
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Title.Caption = "Оплачено|$"
Footers = <>
end
item
FieldName = "PAYD"
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Title.Caption = "Оплачено|в $"
Footers = <>
end
item
FieldName = "PAYR"
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Title.Caption = "Оплачено|в руб."
Footers = <>
end>
end
object DBGridEh2: TDBGridEh
Left = 0
Top = 205
Width = 632
Height = 132
Align = alBottom
DataSource = DataSource1
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
PopupMenu = PopupMenu1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = "MS Sans Serif"
TitleFont.Style = []
OnDrawColumnCell = DBGridEh2DrawColumnCell
FooterRowCount = 1
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = "MS Sans Serif"
FooterFont.Style = []
FooterColor = clBtnFace
UseMultiTitle = True
AutoFitColWidths = True
SumList.Active = True
Flat = True
OnGetCellParams = DBGridEh2GetCellParams
Columns = <
item
FieldName = "NAMEDIRECTION"
Footer.Alignment = taRightJustify
Footer.ValueType = fvtStaticText
Footer.Value = "Сумма:"
Footers = <>
end
item
FieldName = "SUM OF PLACES"
Footer.ValueType = fvtSum
Footer.FieldName = "SUM OF PLACES"
Footers = <>
end
item
FieldName = "SUM OF PAYALL"
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Title.Caption = "Сумма|$"
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clGreen
Footer.Font.Height = -11
Footer.Font.Name = "MS Sans Serif"
Footer.Font.Style = []
Footer.ValueType = fvtSum
Footer.FieldName = "SUM OF PAYALL"
Footers = <>
end
item
FieldName = "SUM OF PAYD"
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Title.Caption = "Сумма|в $"
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clGreen
Footer.Font.Height = -11
Footer.Font.Name = "MS Sans Serif"
Footer.Font.Style = []
Footer.ValueType = fvtSum
Footer.FieldName = "SUM OF PAYD"
Footers = <>
end
item
FieldName = "SUM OF PAYR"
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
Title.Caption = "Сумма|в руб."
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clBlue
Footer.Font.Height = -11
Footer.Font.Name = "MS Sans Serif"
Footer.Font.Style = []
Footer.ValueType = fvtSum
Footer.FieldName = "SUM OF PAYR"
Footers = <>
end>
end
object tlbPan: TToolBar
Left = 0
Top = 0
Width = 632
Height = 42
ButtonHeight = 38
ButtonWidth = 39
Caption = "tlbPan"
Flat = True
Images = ImagesDataModule.imlButtons
ParentShowHint = False
ShowHint = True

TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = ExportToExcel
end
object ToolButton3: TToolButton
Left = 39
Top = 0
Width = 8
Caption = "ToolButton3"
ImageIndex = 2
Style = tbsSeparator
end
object Panel2: TPanel
Left = 47
Top = 0
Width = 138
Height = 38
BevelOuter = bvNone
TabOrder = 0
object Label2: TLabel
Left = 8
Top = 8
Width = 26
Height = 13
Caption = "Дата"
end
object dtpDate: TDateTimePicker
Left = 47
Top = 4
Width = 82
Height = 21
CalAlignment = dtaLeft
Date = 37633.960000081
Time = 37633.960000081
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
OnCloseUp = dtpDateCloseUp
OnChange = dtpDateChange
OnExit = dtpDateCloseUp
OnKeyDown = dtpDateKeyDown
end
end
end
object Panel1: TPanel
Left = 0
Top = 42
Width = 632
Height = 24
Align = alTop
BevelOuter = bvLowered
TabOrder = 3
object Label1: TLabel
Left = 8
Top = 6
Width = 85
Height = 13
Caption = "Отчет за день"
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = [fsBold]
ParentFont = False
end
object Panel3: TPanel
Left = 536
Top = 1
Width = 95
Height = 22
Align = alRight
BevelOuter = bvNone
Caption = "Курс: 32,85"
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
ParentFont = False
TabOrder = 0
OnDblClick = Panel3DblClick
end
end
object qryCargo: TQuery
BeforeOpen = qryCargoBeforeOpen
AfterOpen = qryCargoAfterOpen
DatabaseName = "Cargo"
DataSource = TablesDataModule.dsCargoes
SQL.Strings = (

"SELECT Cargoes.IDNCARGO, Directs.NAMEDIRECTION, Clients.SURNAME," +
" Cargoes.CARGONUMBER, Cargoes.PLACES, Cargoes.PAYALL, Cargoes.PA" +
"YD, Cargoes.PAYR, Cargoes.IDNDIRECTION, Cargoes.CGPAYMENT, Cargo" +
"es.CGRECEPTIONS"
"FROM "cargoes.DB" Cargoes"
" INNER JOIN "clients.DB" Clients"
" ON (Cargoes.IDNCLIENT = Clients.IDNCLIENT) "
" INNER JOIN "directs.DB" Directs"
" ON (Cargoes.IDNDIRECTION = Directs.IDNDIRECTION) "
"WHERE (Cargoes.INTRANZIT = FALSE) "
" AND (Cargoes.DATEPAYMENT = "#39"01/12/2003"#39") "
" AND (Cargoes.CGPAYMENT = TRUE) "
"ORDER BY Directs.NAMEDIRECTION, Clients.SURNAME")
Left = 376
Top = 152
object qryCargoIDNCARGO: TIntegerField
FieldName = "IDNCARGO"
Visible = False
end
object qryCargoSURNAME: TStringField
DisplayLabel = "Фамилия"
FieldName = "SURNAME"
end
object qryCargoCARGONUMBER: TStringField
DisplayLabel = "№ груза"
FieldName = "CARGONUMBER"
Size = 15
end
object qryCargoPLACES: TIntegerField
DisplayLabel = "Кол-во мест"
FieldName = "PLACES"
end
object qryCargoPAYALL: TCurrencyField
DisplayLabel = "$"
FieldName = "PAYALL"
DisplayFormat = ",0.00 $"
end
object qryCargoPAYD: TCurrencyField
DisplayLabel = "в $"
FieldName = "PAYD"
DisplayFormat = ",0.00 $"
end
object qryCargoPAYR: TCurrencyField
DisplayLabel = "в руб."
FieldName = "PAYR"
DisplayFormat = ",0.00 р"
end
object qryCargoIDNDIRECTION: TIntegerField
FieldName = "IDNDIRECTION"
Visible = False
end
object qryCargoNAMEDIRECTION: TStringField
DisplayLabel = "Направление"
FieldName = "NAMEDIRECTION"
end
object qryCargoCGPAYMENT: TBooleanField
FieldName = "CGPAYMENT"
Visible = False
end
object qryCargoCGRECEPTIONS: TBooleanField
FieldName = "CGRECEPTIONS"
Visible = False
end
end
object dsCargo: TDataSource
DataSet = qryCargo
Left = 352
Top = 248
end
object qryDirect: TQuery
BeforeOpen = qryDirectBeforeOpen
DatabaseName = "Cargo"
DataSource = TablesDataModule.dsCargoes
SQL.Strings = (

"SELECT Directs.NAMEDIRECTION, Directs.IDNDIRECTION, SUM( Cargoes" +
".PLACES ), SUM( Cargoes.PAYALL ), SUM( Cargoes.PAYD ), SUM( Carg" +
"oes.PAYR ), Cargoes.IDNTRANZIT"
"FROM "directs.DB" Directs"
" LEFT OUTER JOIN "cargoes.DB" Cargoes"
" ON (Directs.IDNDIRECTION = Cargoes.IDNDIRECTION) "
"WHERE (Cargoes.CGPAYMENT = TRUE) "
" AND (Cargoes.DATEPAYMENT = "#39"01/12/2003"#39") "
" AND (Cargoes.INTRANZIT = FALSE) "

"GROUP BY Directs.NAMEDIRECTION, Directs.IDNDIRECTION, Cargoes.ID" +
"NTRANZIT")
Left = 312
Top = 88
object qryDirectNAMEDIRECTION: TStringField
DisplayLabel = "Направление"
FieldName = "NAMEDIRECTION"
Origin = "CARGO."directs.DB".NAMEDIRECTION"
end
object qryDirectIDNDIRECTION: TIntegerField
FieldName = "IDNDIRECTION"
Origin = "CARGO."directs.DB".IDNDIRECTION"
Visible = False
end
object qryDirectSUMOFPLACES: TFloatField
DisplayLabel = "Кол-во мест"
FieldName = "SUM OF PLACES"
Origin = "CARGO."cargoes.DB".PLACES"
end
object qryDirectSUMOFPAYALL: TCurrencyField
DisplayLabel = "$"
FieldName = "SUM OF PAYALL"
Origin = "CARGO."cargoes.DB".PAYALL"
DisplayFormat = ",0.00 $"
end
object qryDirectSUMOFPAYD: TCurrencyField
DisplayLabel = "в $"
FieldName = "SUM OF PAYD"
Origin = "CARGO."cargoes.DB".PAYD"
DisplayFormat = ",0.00 $"
end

object qryDirectSUMOFPAYR: TCurrencyField
DisplayLabel = "в руб."
FieldName = "SUM OF PAYR"
Origin = "CARGO."cargoes.DB".PAYR"
DisplayFormat = ",0.00 р"
end
object qryDirectIDNTRANZIT: TIntegerField
FieldName = "IDNTRANZIT"
Origin = "CARGO."cargoes.DB".IDNTRANZIT"
Visible = False
end
end
object DataSource1: TDataSource
DataSet = qryDirect
Left = 216
Top = 88
end
object ActionList1: TActionList
Images = ImagesDataModule.imlButtons
Left = 512
Top = 208
object ExportToExcel: TAction
Caption = "Отчет за день"
Hint = "Отчет за день"
ImageIndex = 13
OnExecute = ExportToExcelExecute
OnUpdate = ExportToExcelUpdate
end
end
object MainMenu1: TMainMenu
Left = 336
Top = 152
object N1: TMenuItem
Caption = "Действия"
object N2: TMenuItem
Action = ExportToExcel
end
end
end
object PopupMenu1: TPopupMenu
Left = 440
Top = 152
object N3: TMenuItem
Action = ExportToExcel
end
end
object qryRemDayRep: TQuery
DatabaseName = "Cargo"
SessionName = "Session1_1"
SQL.Strings = (

"SELECT Remit.REMNO, Remit.REMDATE, Remit.PAYD, Remit.PAYR, Clien" +
"ts.SURNAME, Countrys.COUNTRYNAME, Clients.NAME, Clients.PATRONYM" +
"IC"
"FROM "remit.DB" Remit"
" INNER JOIN "countrys.db" Countrys"
" ON (Remit.IDNCOUNTRY = Countrys.IDNCOUNTRY) "
" INNER JOIN "clients.DB" Clients"
" ON (Remit.IDNCLIENT = Clients.IDNCLIENT) "
"WHERE Remit.REMDATE = :FirstDate"
"ORDER BY Remit.REMNO")
Left = 200
Top = 152
ParamData = <
item
DataType = ftDateTime
Name = "FirstDate"
ParamType = ptUnknown
Value = 0d
end>
end
end

> В сторону Kylix посмотри

жутко глючная вещь. в линуксе еле еле поднял :) виснет страх как. тот же лазарус не в пример лучше, хотя и бинарники получаються огромные :(

а кайликс во фре вообще ОЧЕНЬ тяжело поднять. правда это не мое имхо, но судя по форумам - это так..

> Нет, конечно. Но можно увидеть их описание; профессионалу
> это достаточно.

да ясно.. в принцепе все можно . и в шестнадцатиричных кодах написать dfm файл, и так же его читать, но ведь это не настолько удобно и бытро как визуальное воспроятие нескольких сгруппированных виджетов.. это мое имхо.

о формах Найти похожие ветки