[Neon]

Я бы поставил на последнее

[Neon]

Ну насчет последнего я бы поспорил… Ресторатор в помощь.

[Neon]

да по-моему можно и LoadFromFile циклом пробежать

in reply to: Using TJsDialog with Alphacontrols #39741

[Neon]

Yeah, that's really good question. The AdvTaskDialog from TMS has the same problem and I suppose that can't be done right now…

P.S. I'm done with Delphi now, so my advices are not always correct <img src="style_emoticons//rolleyes.gif” style=”vertical-align:middle” emoid=”:roll:” border=”0″ alt=”rolleyes.gif” />

[Neon]

You can try this code, maybe this is what you need:

CODE

sSkinManager1.SkinningRules := sSkinManager1.SkinningRules – [srDialogs];
JsDialog1.ShowModal();
sSkinManager1.SkinningRules := sSkinManager1.SkinningRules + [srDialogs];

[Neon]

Ну навскидку: пробел перед “(internal)” надо бы поставить.

[Neon]

Единственное что – а не “тяжеловат” ли компонент для такой задачи? Помню ставил EmbeddedWB, так размер исполняемого файла вырос существенно <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

Автор не указал среду, в которой работает, но для версии по Delphi 7 включительно был бесплатный набор CoolControls, в состав которого входил компонент для т.н. “титров”. Им и управлять можно было программно. Правда не вспомню уже, дружил ли он с форматированным текстом, то есть был ли отнаследован от RichEdit, или же от обычного Memo.

[Neon]

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

Получилось наподобие

CODE

procedure TForm1.ActionCloseTabExecute(Sender: TObject);
begin
  closetab(Pager.ActivePageIndex);
end;

И при нажатии на кнопку закрытия мышкой вызывал ее же:

CODE

procedure TForm1.PagerCloseBtnClick(Sender: TComponent;
  TabIndex: Integer; var CanClose: Boolean; var Action: TacCloseAction);
begin
  CanClose:=false;
  closetab(TabIndex);
end;

[Neon]

А это уже виндовое наследие <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” /> И альфаконтролы тут ни при чем

[Neon]

Position проверьте все-таки. Я могу воспроизвести такое поведение только если оно равно poScreenCenter.

[Neon]

Есть мнение, что при этом Position у формы выставлено в poScreenCenter. Если вернуть poDefault, то все будет хорошо.

[Neon]

А какие версии AC использовались на D5, какие на D7?

[Neon]

Не, на Ableton мало похож, если честно <img src="style_emoticons//rolleyes.gif” style=”vertical-align:middle” emoid=”:roll:” border=”0″ alt=”rolleyes.gif” />

[Neon]

CODE

  sSkinManager1.SkinningRules := sSkinManager1.SkinningRules – [srStdForms];
  //capture the object here…
  sSkinManager1.SkinningRules := sSkinManager1.SkinningRules + [srStdForms];

[Neon]

С вашего позволения, заюзаю.
Только уж очень медленно перерисовывается, если форму таскать поверх…
В самой первой версии от plasticut было лучше на порядок.

[Neon]

Студия просто отладчиком по умолчанию используется. <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />
Не надо думать, что я не отличаю делфи от других сред разработки.

Upd. Не запустилась потому что у меня дельфя не в Program Files установлена.

[Neon]

Хотел просто посмотреть на демку, не ковыряя исходники. Запустил exe. Получил сразу же окошко Visual Studio с милым сообщением Unhandled Win32 Exception. <img src="style_emoticons//rolleyes.gif” style=”vertical-align:middle” emoid=”:roll:” border=”0″ alt=”rolleyes.gif” />

[Neon]

Не воспроизвелось <img src="style_emoticons//blink.gif” style=”vertical-align:middle” emoid=”:eek:” border=”0″ alt=”blink.gif” /> Пробовал и на скомпилированной демке, и пересобрал ее. *задумался*

[Neon]

georgettank,

I didn't mess with frames but controls on main form are aligned properly. Hope you'll get the idea.

And by the way, Align is one of the basic things that everyone should know… <img src="style_emoticons//huh.gif” style=”vertical-align:middle” emoid=”:huh:” border=”0″ alt=”huh.gif” />

[Neon]

I agree, aligning is sufficient for most tasks.

[Author]

Posts