Вопрос № 142789: Здравствуйте Эксперты возникла такая проблема - программа выводит текст поверх всех окон с заданным уровнем прозрачности - все работает, но есть одна проблема - текст не видно на белом фоне. подскажите - как побороть? или может какой то...Вопрос № 142814: Здравствуйте! Код в приложении. Для Edit1.text и Edit2.text строка выбирается через OpenDialog, SaveDialog. Если сразу нажимать кнопку Button4, то файл появляется, а
если прежде через диалоги выбрать файлы, то нет. В чём может быть дело?...
Вопрос № 142.789
Здравствуйте Эксперты возникла такая проблема - программа выводит текст поверх всех окон с заданным уровнем прозрачности - все работает, но есть одна проблема - текст не видно на белом фоне. подскажите - как побороть? или может какой то другой метод вывода прозрачного текста поверх всех окон?
Приложение:
Отправлен: 01.09.2008, 09:51
Вопрос задал: Аркадий (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: monah
Здравствуйте, Аркадий! Измините canvas.Brush.Style := bsClear на bsXor, bsNot или bsXorNot, в этих случаях цвет будет отображен инверсным по отношению к изображению на экране.
--------- festina lente
Ответ отправил: monah (статус: Студент)
Ответ отправлен: 01.09.2008, 09:58 Оценка за ответ: 3 Комментарий оценки: эта строка нужна чтоб у текста не было фона
и чего то не могу найти у TBrushStyle таких вариантов - принимает только значения:
bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross
Вопрос № 142.814
Здравствуйте! Код в приложении. Для Edit1.text и Edit2.text строка выбирается через OpenDialog, SaveDialog. Если сразу нажимать кнопку Button4, то файл появляется, а если прежде через диалоги выбрать файлы, то нет. В чём может быть дело?
Приложение:
Отправлен: 01.09.2008, 16:42
Вопрос задал: Yadovit (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 12)
Отвечает: Шичко Игорь
Здравствуйте, Yadovit! Посмотрите такой код. Вроде все работает. Можно строки if OpenDialog1.Execute then Edit1.text:= OpenDialog1.FileName; if SaveDialog1.Execute then Edit2.Text:= SaveDialog1.FileName; перенести на отдельную кнопку
Приложение:
Ответ отправил: Шичко Игорь (статус: 1-ый класс)
Ответ отправлен: 02.09.2008, 09:20