Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.01.2014, 14:01
LW1 LW1 вне форума
Прохожий
 
Регистрация: 22.01.2014
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Текстовое редактирование

Я решил для удобства сделать программку для редактирования текстового ресурса (скрипта) тоесть код разбить для удобства по таблицам
пример самого ресурса
Код:
[Section]
; ==> 1
FX_Type = FxPerpAppearance

Node_Name = sp_bloodhound_01.app ; 0xF738124B 4147647051

Node_LifeSpan = Infinite

Node_Transform = {}

Appearance_LODCurve = {
Entry = 0.0000000000000000
EFlag = 4
SubEntry = 0.0000000000000000, 1.0000000000000000
SubFlag = 4
}

RectApp_ViewingAngleFade = True

BasicApp_Color = {
Flag = 4
Entry = 0.0000000000000000
SubFlag = 4
SubEntry = 0.0000000000000000, 0.4000000000000000, 1.0000000000000000, 0.2000000000000000
}

BasicApp_Alpha = {
Entry = 0.0000000000000000
EFlag = 4
SubEntry = 0.0000000000000000, 1.0000000000000000, 1.0227882862091064, -0.0017369985580444
SubFlag = 1
}

BasicApp_Size = {
Entry = 0.0000000000000000
EFlag = 4
SubEntry = 0.0100739998742938, 50.0000000000000000
SubFlag = 4
}

BasicApp_TexName = kioncanring ; 0x1CCD8E81 483233409

BasicApp_BlendInfo = 5, 2

BasicApp_UseCommonTexFrame = True

BasicApp_TexFrame = {
Flag = 4
Entry = 0.0000000000000000
SubFlag = 4
SubEntry = 0.0000000000000000, 0.0000000000000000
}

BasicApp_CommonTexFrame = {
Entry = 0.0000000000000000, 0.0000000000000000
}

BasicApp_FlipTexU = True

BasicApp_FlipTexV = True
и вот ищу какой нибудь пример для разбития по таблицам
вот пример

BasicApp_TexFrame (можно изменить из выподаюшего списка)
Напротив него параметры
Flag = 4 , Entry = 0.0000000000000000

Flag Entry можно заменить из выпадающего списка а числовые естественно набрать самому
я ищу хотя бы пример как это можно сделать если кто знает помогите
Пишу на Delphi 7

Последний раз редактировалось LW1, 22.01.2014 в 14:10.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:04.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter