TMemo

← →
Nico1a (2002-07-29 19:35) [0]

Короче, траблы в следующем:
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 не помогает :((( А если выравнивание по центру или по правому краю было задано при создании формы, то вместо горизонтального скролбара появляется то,
что под формой :((( т.е. он как-бы на мгновение становится прозрачнымм!!!
Но серая область исчезает при Резайзинге фомы!!!
Вобщем, помогите вылечить Мему :) !!!

← →
VID © (2002-07-29 20:04) [1]

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);

← →
Набережных С. (2002-07-29 22:30) [2]

Можно типа так:
var
A:integer;

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

TMemo Найти похожие ветки