Собственно тематика основная игрострои. Тема с ним тут: gcup.ru/forum/13-15033-1. Сам адрес вот: helpdev.dx8.ru
Добавлено (29.05.2011, 19:41) --------------------------------------------- Так может и найдуться энтузиасты:) Сайт сырой, конечно, так как создан недавно.
Добавлено (29.05.2011, 19:43) --------------------------------------------- Кстати говоря, еще требуются компетентные люди на должности модераторов тем для форума. Какие разделы смотрим на сайте:)
Собственно 2 пункт... Кто нибудь такие встречал? Допустим тот же самый алавар, есть специальная страница для разработчиков игр. Я в нете только натыкался на сайт, которые размещают бесплатные программы.
Добавлено (28.05.2011, 18:20) --------------------------------------------- Вообщем издатель только не для игр, а софта.
Допустим написал я программу, даже тот же самый конструктор игр. Все хорошо в ней оформлено, интерфейс и т.д. Где и как можно продать эту самую программу?
а пошагово проходил по коду, когда он проходит по этому участку?
Пробовал, все нормально
Добавлено (28.05.2011, 06:55) --------------------------------------------- Собственно справился с проблемой через ActivePageIndex = 0. Тему можно закрывать.
На форме PageControl итри кнопки. При нажатии на кнопку 1, создается новая вкладка, кнопка 2 это удаление активной вкладки PageControl и свойство Enable Кнопки 3 становится False. Собственно интересует вопрос по Кнопке 2 ибо ибо свойство Enable кнопки 3 так и остается True КНОПКА 1:
Code
var Page : TsTabSheet; begin Page := TsTabSheet.Create(PageControl1); with Page do PageControl := PageControl1; Page.Caption:= 'Пустой файл'; PageControl1.ActivePageIndex := PageControl1.PageCount - 1; end;
КНОПКА 2:
Code
begin AllowClose := True; begin if PageControl1.PageCount < 0 then Button3.Enable := False; end; end;
ЗАКАЗ: Нужен логотип для сайта Help Development Ширина: 960 Высота: 225 Тона логотипа должны соответствовать стилю сайта, то есть цвета: черный, серый, зеленый, желтый. Желательно чтобы на логотипе присутствовали слова Help Development
Сообщение отредактировал slagusev - Четверг, 26 Мая 2011, 12:54
procedure TForm1.Save; var E : TSynEdit; control : TControl; begin control := PageControl1.ActivePage.FindChildControl('E'); if control <> nil then begin TSynEdit(control).Lines.SaveToFile(OpenDialog1.FileName); end;
Сообщение отредактировал slagusev - Среда, 25 Мая 2011, 07:42
Я только за, но я не хочу писать ети уроки, а учится по них. Например я б с удовольствием почитал о глсл шейдерах.
Принято на заметку, по мере возможностей будет добавлено))
Добавлено (24.05.2011, 21:22) --------------------------------------------- Кому не лень зайдите на сайт. Интересует его правильное отображение. Стало известно что на некоторых компьютерах кнопочная панель сразу после логотипа, двоиться стала (хотя соответственно должна быть одна). И прошу отписаться в этой теме если у кого-то также отображает
Собственно говоря решил пойти другим путем (теперь это не MDI). Добавил на форму PageControl и SynEdit. Добавил пункты меню создать и открыть. При нажатии на "создать", создается динамически страница в PageControl со встроенным в него SynEdit. При нажатии "открыть" все тоже самое практически, только соответственно в Созданный SynEdit загружается текст. Но все так же не могу дойти своим умом как сделать сохранить и сохранить как для активного SynEdit. Вот код:
procedure TForm1.CreateNewEditor; //Процедура создания PageControl и SynEdit var Page: TRzTabSheet; E: TSynEdit; begin Page := TRzTabSheet.Create(Page); Page.PageControl:=PageControl1; E:=TSynEdit.Create(Page); with E do begin Parent := Page; Align:=alClient; Gutter.ShowLineNumbers:=True; Gutter.Font.Size:=10; end; PageControl1.ActivePage:=Page; Page.Caption:='Файл.lua'; end;
procedure TForm1.OpenFile; //Процедура открытия файла var Page : TRzTabSheet; E : TSynEdit; begin if OpenDialog1.Execute then begin Page := TRzTabSheet.Create(self); Page.Caption:=ExtractFileName(OpenDialog1.FileName); Page.PageControl:=PageControl1; E := TSynEdit.Create(self); e.Parent:=Page; E.Align:=alClient; E.Lines.LoadFromFile(OpenDialog1.FileName); PageControl1.ActivePage:=Page; end;
end;
procedure TForm1.N2Click(Sender: TObject); //Пункт меню Создать begin CreateNewEditor; end;
procedure TForm1.N3Click(Sender: TObject); //Пункт меню Открыть begin OpenFile; end;
end.
Сообщение отредактировал slagusev - Вторник, 24 Мая 2011, 18:32
Создал MDI приложение, окна переключаются за счет закладок динамически создаваемых в PageControl. Собственно не получается сделать сохранение файла и сохранить как.
