Главная страница
    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.065 c
2-1336072088
Глеб
2012-05-03 23:08
2013.03.22
Склеивание форм в дельфи


2-1340098118
leklerk
2012-06-19 13:28
2013.03.22
Как сделать, чтобы приложение висело?


1-1299075890
pvr
2011-03-02 17:24
2013.03.22
Заполнение странички с помощью TWebBrowser


15-1338582602
Юрий
2012-06-02 00:30
2013.03.22
С днем рождения ! 2 июня 2012 суббота


2-1345561687
toropoff
2012-08-21 19:08
2013.03.22
как понять case в описании записи?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский