Надеюсь, я не сидьно надоел, но вопрос на размышление:-)

[Matew]

Мне надо сделать линейку по краям формы, которая показывает положение курсора, как в кореле (или в ворде). На ней дожны быть и цифры, и масштаб она должна менять, и положение курсора какойнить значек(или линия) должен отслеживать. Я вот ума не приложу из каких контролов можно собрать такую линейку?

[tyomitch]

дык, самому рисовать Line-ом...
зачем тут контролы?

[Matew]

А как цифорки на определенном расстоянии друг-от-друга расставлять при изменении масштаба?

[Лёха_Virus]

дык расставляй лейбелы как те нада!

[Matew]

Лана сделаем, спасибо!

[gaidar]

Отставить, расставлять лейблы! Надо рисовать через API функции, и цифры и линии. Такие вещи в ручную не делаются (расставлением контролов).

[Matew]

Ну тогда хоть перечислите апи-функции, которые можно использовать.

[tyomitch]

gaidar, зачем API?
Line, Print - и все дела.

Matew, если слишком много свободного времени - тогда DrawText и CreatePen/SelectObject/MoveToEx/LineTo

[ANDLL]

2tyomitch: И еще DeleteObject, не забудь. В паре с CreatePen.

[tyomitch]

ANDLL, это не я, это Matew должен не забыть...

[Лёха_Virus]

Здравствуйте!
увидел тут у вас интересные апишки и решил над десктопом извратиться: хочу написать текст... но появилась проблема - текта не видно, хотя функция drawtext возвращает ненулевое значение (16)
вот код:

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

//декларации//

Dim R As RECT
Private Sub Command1_Click()
    dtHwnd = GetDesktopWindow
    dthDc = GetDC(dtHwnd)

    hRPen = CreatePen(PS_SOLID, 5, vbBlue)
    DeleteObject SelectObject(dthDc, hRPen)

    SetRect R, 500, 500, 1000, 600
    a = DrawText(dthDc, "Hello World !", Len("Hello World !"), R, DT_CENTER)
   
    DeleteObject hRPen
End Sub



воть... и не работает... скажите, в чём косяк?

[ANDLL]

Попробуй GetDC(0)

[tyomitch]

во-первых, ReleaseDC надо не забывать...
во-вторых, удалять чужое перо крайне невежливо...
в-третьих, текст всё равно рисуется не пером, а текущим цветом (SetTextColor; его потом надо будет вернуть обратно).

ANDLL: разницы между GetDC(0) и GetDC(dthWnd) нет никакой, разве что второе чуть быстрее.

[ANDLL]

Кстати! А какое у тебя оазрешение экрана? Часом не 1500 * 1200? Уж больно много. Параметры указываеться в пикселях а не в твипах. И еще: есть функция TextOut. Тоже аналог. И еще надо вызвать ReleaseDc. и вообще, запоминать, что возвращает SelectOPbject, и в конце действия устанавливать возвращенный объект, а уж потом удалять свой.

[Лёха_Virus]

Кстати! А какое у тебя оазрешение экрана? Часом не 1500 * 1200? Уж больно много. Параметры указываеться в пикселях а не в твипах. И еще: есть функция TextOut. Тоже аналог. И еще надо вызвать ReleaseDc. и вообще, запоминать, что возвращает SelectOPbject, и в конце действия устанавливать возвращенный объект, а уж потом удалять свой.

извини, что-то не понял зачем запоминать результат selectobject
и как и куда устанавливать возвращённый объект?

можно кусочек кода плииз?

------------------------------

всем спасибо! уже разобрался
прост вместо GetDc надо использовать getWindowDc

[ANDLL]

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

hOldPen=SelectObject(hDC,hPen)
...
SelectObject hDC,hOldPen
DeletObject hPen


Вот так. Когда ты меняешь какой-то gdi-объект его всегда нужно возвращать на место.

[Matew]

А я нарисовал линейку Лайнами и TextOut-ом, очень симпатично получилось)))

[tyomitch]

Па-здра-вля-ем!!