| ← Май 2005 → | ||||||
|
7
|
||||||
|---|---|---|---|---|---|---|
|
15
|
||||||
|
22
|
||||||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Hello comp,
Добрый всем день!
подскажите не сталкивался ли кто с такой вещью- нужно обеспечить
зеркальное отражение дисплея. Т.е. на дисплее информация зеркально
отражена. не для окна пользовательской программы, а для десктопа в
целом.
Спасибо..подскажите куда копать!
спасибо за совет.
но здесь вся изюминка- в постоянном и автоматическом отображении
скрина зеркально.
т.е. нужно отрабатывать событие OnPaint и успевать
в нем зеркально отображать пикселы.
копируя покоординатно зеркально images..ну..не укладываюсь мягко
выражаясь)
Хаю ду ю ду ol?
Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:
Чет я не понял нафига тебе это надо? Ведь если ты перевернешь
изображение, то координаты всех окон не изменятся, т.е., например,
кнопки закрыть, свернуть, развернуть на левую сторону от этого не
переедут. А если будет невозможна нормальная работа то зачем
*постоянное* зеркалирование? Или ты хочешь и мышку зеркалировать?
Но тогда за минуту к такой мышке не привыкнешь.
Объясни зачем тебе все это?
Хаю ду ю ду ol?
Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:
Если на Delphi - тогда держи код получения изображения экрана, за 5
минут сваял :)
На форме Image1 (alClient), Image2, Button1
Сама форма wsMaximized и bsNone
procedure TForm1.Button1Click(Sender: TObject);
var DC: HDC;
begin
Form1.Hide;
Sleep(1000);
DC := GetDC(0);
Image2.Canvas.Handle := DC;
Image1.Canvas.CopyRect(Image1.ClientRect, Image2.Canvas, Image1.ClientRect);
ReleaseDC(0, DC);
Form1.Show;
end;
А вертеть - это мне влом :) да и должен же ты сам свою проблему решать.