Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

DrawFocusRect   Найти похожие ветки 

 
>|<   (2012-03-17 14:23) [0]

Здравствуйте!
Работает ли данная функция в Windows 7?

Привожу код, который не работает(компилировал в Delphi 7)

procedure TfrmParseImages.imgBlankMouseMove(Sender: TObject;
 Shift: TShiftState; X, Y: Integer);

begin
  if Capturing then
 begin
   DrawFocusRect(imgBlank.Canvas.Handle,MakeRect(StartPlace,EndPlace));
   EndPlace.x := X;
   EndPlace.y := Y;
   DrawFocusRect(imgBlank.Canvas.Handle,MakeRect(StartPlace,EndPlace));
 end;

 if opdScan.FileName = "" then
   Exit;

 sbMain.Panels[3].Text := IntToStr(x) + "," + IntToStr(y);
 sbMain.Panels[5].Text := IntToStr(Round(x / imgBlank.Width * 10000)) + "," + IntToStr(Round(y / imgBlank.Height * 10000));
 sbMain.Panels[6].Text := ColorToString(imgBlank.Canvas.Pixels[x, y])
end;
procedure TfrmParseImages.imgBlankMouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Captured then
   DrawFocusRect(imgBlank.Canvas.Handle,MakeRect(StartPlace, EndPlace));
 StartPlace.x := X;
 StartPlace.y := Y;
 EndPlace.x := X;
 EndPlace.y := Y;
// DrawFocusRect(imgBlank.Canvas.Handle, MakeRect(StartPlace, EndPlace));
 Capturing := true;
 Captured := true;
end;

procedure TfrmParseImages.imgBlankMouseUp(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 Capturing := false;
end;


 
>|<   (2012-03-17 15:03) [1]

Похоже я использую не ту канву, на которой пытаюсь рисовать...
Если использовать канву формы, на которой лежит Image, то FocusRect рисуется, а если использовать канву Image.Picture.Bitmap.Canvas , то прямоугольник не рисуется.

Если на форме лежит ScrollBox и в нем Image, то какую канву нужно использовать, чтобы увидеть FocusRect?


 
begin...end ©   (2012-03-17 15:06) [2]

> >|<   (17.03.12 14:23)
> DrawFocusRect(imgBlank.Canvas.Handle,MakeRect(StartPlace, EndPlace))

(Sender as TImage).Canvas.DrawFocusRect(Rect(StartPlace, EndPlace)) - так тоже не работает?


 
>|<   (2012-03-17 15:23) [3]


> (Sender as TImage).Canvas.DrawFocusRect(Rect(StartPlace,
>  EndPlace)) - так тоже не работает?

Спасибо, работает!



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.067 c
2-1341933433
AndreiPerec
2012-07-10 19:17
2013.03.22
Как проверить есть ли у Компонента свойство?


15-1338461166
Jeer
2012-05-31 14:46
2013.03.22
Хинди-Руси бхай-бхай


2-1332267567
Каныбек
2012-03-20 22:19
2013.03.22
Создание БД на Делфи


15-1338463771
Al2017
2012-05-31 15:29
2013.03.22
Теплообмен в трубах


15-1337866798
Cobalt
2012-05-24 17:39
2013.03.22
Разноцветный многострочный хинт





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский