Изменить разрешение экрана.

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Гость

Сообщение Гость »

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Yuri Filosofov <yufil@tacis-dipol.ru>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 25 октября 2004 г., 13:49:59
Тема: Изменить разрешение экрана. {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Здравствуйте, господа!

Никто не пришлёт действующей программы, меняющей разрешение экрана? С приличествующими описаниями структур и констант. Вроде сделал всё, как положено.

Код: Выделить всё

DEVMODEA       GROUP,TYPE
dmDeviceName    BYTE,DIM(CCHDEVICENAME)
dmSpecVersion   WORD
dmDriverVersion WORD
dmSize          WORD
dmDriverExtra   WORD
dmFields        DWORD
dmOrientation   SIGNED
dmPaperSize     SIGNED
dmPaperLength   SIGNED
dmPaperWidth    SIGNED
dmScale         SIGNED
dmCopies        SIGNED
dmDefaultSource SIGNED
dmPrintQuality  SIGNED
dmColor         SIGNED
dmDuplex        SIGNED
dmYResolution   SIGNED
dmTTOption      SIGNED
dmCollate       SIGNED
dmFormName      BYTE,DIM(CCHFORMNAME)
dmLogPixels     WORD
dmBitsPerPel    DWORD
dmPelsWidth     DWORD
dmPelsHeight    DWORD
dmDisplayFlags  DWORD
dmDisplayFrequency   DWORD
dmICMMethod     DWORD
dmICMIntent     DWORD
dmMediaType     DWORD
dmDitherType    DWORD
dmReserved1     DWORD
dmReserved2     DWORD
            END



Md          Group(DevModeA)
            End

DM_BITSPERPEL  Ulong(00040000H)
DM_PELSWIDTH   Ulong(00080000H)
DM_PELSHEIGHT  Ulong(00100000H)

    Code 
    Clear(Md)
    md.dmSize = SIZE(md)
    md.dmFields = Bor(DM_PELSWIDTH,DM_PELSHEIGHT)
    md.dmPelsWidth =  800 !  Loc:Width
    md.dmPelsHeight = 600 ! Loc:Height
    If ChangeDisplaySettings(Address(Md),FALSE).
И нихрена...

---------------------------------------
C уважением,
Юрий Философов,
Главный программист
Корпорация "Диполь", Саратов
E-mail yufil@tacis-dipol.ru (служ)
yufil@mail.ru (дом)
ICQ#75924439




=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Alexander Stepanets <clalists@partizansk.com>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 26 октября 2004 г., 8:25:06
Тема: Изменить разрешение экрана. {01} {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Hello Yuri,

Monday, October 25, 2004, 8:49:59 PM, you wrote:

YF> Здравствуйте, господа!

YF> Никто не пришлёт действующей программы, меняющей разрешение
YF> экрана? С приличествующими описаниями структур и констант. Вроде
YF> сделал всё, как положено.

Я, конечно, не пришлю ;), но вроде пару лет тому где-то, может, у
Смелика на сайте, видел ЭТО. Или - уже нету?

--
Best regards,
Alexander mailto:clalists@partizansk.com



=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Evgeny Stefanenko <mixer@clarionlife.net>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 25 октября 2004 г., 14:35:52
Тема: Изменить разрешение экрана. {01} {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Привет, Yuri.

Вы писали 25.10.2004, 20:49:

YF> Здравствуйте, господа!

YF> Никто не пришлёт действующей программы, меняющей разрешение
YF> экрана? С приличествующими описаниями структур и констант. Вроде
YF> сделал всё, как положено.

http://www.clarionlife.net/cgi-bin//bl_ ... app.txt&78

--
Всего хорошего
Evgeny mailto:mixer@clarionlife.net
Сайт для кларионистов: http://www.clarionlife.net
Clarion FAQ: http://www.clarionlife.net/cgi-bin/bl_faq.pl?comm=tree



=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Yuri Filosofov <yufil@tacis-dipol.ru>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 25 октября 2004 г., 14:45:26
Тема: Изменить разрешение экрана. {01} {01} {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Здравствуйте, Evgeny.

Вы писали 25 октября 2004 г., 14:35:52:

ES> Привет, Yuri.

ES> Вы писали 25.10.2004, 20:49:

YF>> Здравствуйте, господа!

YF>> Никто не пришлёт действующей программы, меняющей разрешение
YF>> экрана? С приличествующими описаниями структур и констант. Вроде
YF>> сделал всё, как положено.

ES> http://www.clarionlife.net/cgi-bin//bl_ ... app.txt&78

Там слишком круто :). Архив 400К ...

---------------------------------------
C уважением,
Юрий Философов,
Главный программист
Корпорация "Диполь", Саратов
E-mail yufil@tacis-dipol.ru (служ)
yufil@mail.ru (дом)
ICQ#75924439




=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Сергей Редькин <ClaList@enigmasoft.com.ua>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 25 октября 2004 г., 14:11:04
Тема: Изменить разрешение экрана. {01} {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Hello Yuri,

Monday, October 25, 2004, 12:49:59 PM, you wrote:

YF> Здравствуйте, господа!

YF> Никто не пришлёт действующей программы, меняющей разрешение экрана? С приличествующими описаниями структур и констант. Вроде сделал всё, как положено.

Сейчас нарежу и вышлю на личное мыло

--
Сергей Редькин mailto:SPR@enigmasoft.com.ua
ЧП "Энигма Софт"



=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Yuri Filosofov <yufil@tacis-dipol.ru>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 25 октября 2004 г., 14:44:19
Тема: Изменить разрешение экрана. {01} {01} {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Здравствуйте, Сергей.

Вы писали 25 октября 2004 г., 14:11:04:

СР> Hello Yuri,

СР> Monday, October 25, 2004, 12:49:59 PM, you wrote:

YF>> Здравствуйте, господа!

YF>> Никто не пришлёт действующей программы, меняющей разрешение
YF>> экрана? С приличествующими описаниями структур и констант. Вроде
YF>> сделал всё, как положено.

СР> Сейчас нарежу и вышлю на личное мыло

Взял описание DevMode - и получилось. Похоже, что в Examples\WinAPI что-то напутано ...

---------------------------------------
C уважением,
Юрий Философов,
Главный программист
Корпорация "Диполь", Саратов
E-mail yufil@tacis-dipol.ru (служ)
yufil@mail.ru (дом)
ICQ#75924439




=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
От: Yuri Filosofov <yufil@tacis-dipol.ru>
Кому: "clalist List Member" <clalist@clarion.ru>
Написано: 25 октября 2004 г., 14:12:41
Тема: Изменить разрешение экрана. {01} {01} {01}
Файлы: <none>
--====----====----====----====----====----====----====----====----====----===--
Здравствуйте, Сергей.

Вы писали 25 октября 2004 г., 14:11:04:

СР> Hello Yuri,

СР> Monday, October 25, 2004, 12:49:59 PM, you wrote:

YF>> Здравствуйте, господа!

YF>> Никто не пришлёт действующей программы, меняющей разрешение
YF>> экрана? С приличествующими описаниями структур и констант. Вроде
YF>> сделал всё, как положено.

СР> Сейчас нарежу и вышлю на личное мыло

Заранее спасибо!

---------------------------------------
C уважением,
Юрий Философов,
Главный программист
Корпорация "Диполь", Саратов
E-mail yufil@tacis-dipol.ru (служ)
yufil@mail.ru (дом)
ICQ#75924439
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


Написал: ClaList(2)
Вернуться к началу
Ответить

Вернуться в «CLARION for Windows»