Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TMemo [D6, WinXP]

Nico1a © (2002-07-29 19:35:00)
Короче, траблы в следующем:
1. Есть TMemo(вернее TdxDNMemo из dxPack, но ф-ции и св-ва у них идентичные).
Нужно сохранить в реестре стиль шрифта Мемы и потом загрузить, но не получается :(((
С цветом делал так:
Reg.WriteInteger("TXT","Color",Integer(Form1.Memo.Font.Color));
Form1.Memo.Font.Color:=TColor(Reg.ReadInteger("TXT","Color",1)); , и все работало, а со стилем не хочет:(((
Может, кто знает :) как это все организовать??? Помогите!!!

2. При установке у Мемы выравнивания по центру или по правому краю вместо горизонтального скролбара (у Мемы установлено два ssboth) появляется серая область,
Repaint не помогает :((( А если выравнивание по центру или по правому краю было задано при создании формы, то вместо горизонтального скролбара появляется то,
что под формой :((( т.е. он как-бы на мгновение становится прозрачнымм!!!
Но серая область исчезает при Резайзинге фомы!!!
Вобщем, помогите вылечить Мему :) !!!

Набережных С. (2002-07-29 22:30:00) [1]
Можно типа так:
var
A:integer;

A:=Byte(Font.Style);
Font.Style:=TFontStyles((@A)^);

VID (2002-07-29 20:04:00) [2]
1. Скорее всего придётся создавать в реестре, в ветке твоей проги, доп. ключ (например, ".../MyProg/Settings/Memo/FontStyle", и в этом ключе, хранить 4 свойства стиля шрифта.
Т.е. при записи(сохранении) настроек стиля, делать так:
if fsbold in memo1.Font.style then {сохранить в указанном ключе реестра значение: fsBold = true}
И так пройтись по всем четырём свойствам стиля шрифта.

Вполне возможно, что есть и более красивый вариант.

2. Такой проблемы у меня с обычным MEMО не возникло.
Но попробуй:
a) Form1.Repaint;
b) Form1.Refresh;
c) Memo1.Refresh;
d) SendMessage(memo1.handle, wm_paint, 0, 0);
e) SendMessage(FORM1.handle, wm_paint, 0, 0);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »