Вопрос № 162560: Здравствуйте уважаемые эксперты. Написал функцию сохранения части изображения окна в файл по хэндлу окна. Но вот проблема если эта часть окна например находиться за пределами окна то просто сохраняется белый прямоугольник. Если окно перекрыто другим ...
Вопрос № 162568: Здравствуйте, уважаемые эксперты. Нуждаюсь вашей помощи, в таком вопросе: Есть почти сделанная программа. Программа преобразует слово в 10 систему, а потом
из 10 в 2 систему. Потом идет шаг, преобразования наоборот, из 2 в 10, и из 10 в слово...
Вопрос № 162.560
Здравствуйте уважаемые эксперты. Написал функцию сохранения части изображения окна в файл по хэндлу окна. Но вот проблема если эта часть окна например находиться за пределами окна то просто сохраняется белый прямоугольник. Если окно перекрыто другим окном то сохраняется часть верхнего окна. Как получить изображение именно того окна которое мне нужно??? Не зависимо в каком состоянии оно находиться… Код функции в приложении. Заранее спасибо!
Приложение:
Отправлен: 17.03.2009, 12:01
Вопрос задал: PaTiFoN (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Armad
Здравствуйте, PaTiFoN!
procedure TForm1.Button1Click(Sender: TObject); var fImage : TBitmap; begin fImage := GetFormImage; fImage.SaveToFile('c: est.bmp'); fImage.Free; end;
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 17.03.2009, 14:09
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245492 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 3 Комментарий оценки: Возможно я неправильно задал вопрос. Но из кода это видно. Мне нужно получить часть изображения от окна и второе мне нужно получить изображение не своего окна. GetFormImage здесь не подходит
Вопрос № 162.568
Здравствуйте, уважаемые эксперты. Нуждаюсь вашей помощи, в таком вопросе: Есть почти сделанная программа. Программа преобразует слово в 10 систему, а потом из 10 в 2 систему. Потом идет шаг, преобразования наоборот, из 2 в 10, и из 10 в слово. проблема в том, что не могу понять, как из 10 системы преобразовать обратно слово. К сообщению прикрепляю саму программу, а также код.
Приложение:
Отправлен: 17.03.2009, 13:44
Вопрос задал: Kreaman (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Armad
Здравствуйте, Kreaman!
procedure TForm1.Button4Click(Sender: TObject); var slovo : String; i: integer; begin memo5.Text := ''; for i := 1 to length(memo4.Text) do begin if memo4.Text[i] <> ' ' then slovo:= slovo + memo4.Text[i] else begin memo5.Text := memo5.Text + chr(StrToInt(slovo)); slovo:= ''; end; end; end;
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 17.03.2009, 14:50
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245497 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Благодарен за помощь. Ставлю 5, потому что, эксперт помог очень оперативно, просто и на понятном языке.
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.