0 / 0 / 0
Регистрация: 29.10.2012
Сообщений: 12
1

Рисовалка на рабочем столе

14.12.2012, 22:12. Показов 2094. Ответов 2
Метки нет (Все метки)

Вот написал программку, что бы рисовать в форме, а теперь мне нужно сделать так, что бы то что я рисую в форме, дублировалось на рабочий стол, т.е не просто рисовать на рабочем столе, а рисовать на нем с помощью рисования в форме... как это исполнить??? очень нужно!
вот код рисовалки:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Point: boolean = false;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Point then Canvas.LineTo(X,Y);
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Canvas.MoveTo(X,Y);
  Point:=not Point;
end;
 
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2012, 22:12
Ответы с готовыми решениями:

Рисуем на Рабочем столе
Помогите решить задачу на "Delphi". Есть программа, (код приведён ниже) суть которой заключается в...

Txt-файлы на рабочем столе
Задача: 1. Взять txt файлы с рабочего стола (любые, какие есть) 2. Спарсить содержимое 3....

Размещения окна на рабочем столе
Как сделать так, чтобы при открытии программы она открывалась в определённых координатах на рабочем...

Закрепить программу на рабочем столе
Здравствуйте. Не знаю как корректно задать вопрос, но все же. Как закрепить (если можно) программу...

2
2475 / 1851 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
14.12.2012, 22:35 2
Получить контекст "стола" - GetDC(0) и рисовать на нём.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  DC : HDC;
 
procedure TForma1.FormCreate(Sender: TObject);
begin
  DC := GetDC(0);
end;
 
procedure TForma1.FormDestroy(Sender: TObject);
begin
  ReleaseDC(0, DC);
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Point then
  begin
    Canvas.LineTo(X,Y);
    Windows.LineTo(DC, X, Y);
  end;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Canvas.MoveTo(X,Y);
  Windows.MoveToEx(DC, X, Y, NIL);
  Point:=not Point;
end;
1
0 / 0 / 0
Регистрация: 29.10.2012
Сообщений: 12
14.12.2012, 22:43  [ТС] 3
Уух легко то как=) спасибо огромное!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2012, 22:43

Размещение формы на рабочем столе
Подскажите пожалуйста каким образом задать размещение не перемещаемой формы (пользователь не будет...

Как создать файл на рабочем столе?
каким образом? Добавлено через 3 минуты как просто создать файл я знаю, а вот как именно на...

Определение выбранного файла на рабочем столе
Как определить какой файл выбран на рабочем столе или в explorer? Мне нужно открывать некоторый...

Панель для ярлыков на рабочем столе
Всем привет хочу сделать такую панельку для ярлыков . Чтоб по нажатию на кнопку "Игры" выезжала...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.