Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Des123
1 / 1 / 0
Регистрация: 24.07.2015
Сообщений: 11
1

Создание своей каретки в lazarus

02.12.2015, 19:25. Просмотров 264. Ответов 6
Метки нет (Все метки)

подскажите как создать свою каретку в lazarus. в Delphi я создаю ее так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm7.FormCreate(Sender: TObject);
begin
  CaretBmp:=TBitmap.Create;
  CaretBmp.Height:=10;
  CaretBmp.Width:=10;
  CaretBmp.Canvas.Brush.Color:=clRed;
  CaretBmp.Canvas.FillRect(Rect(0,0,10,10));
end;
 
procedure TForm7.Button1Click(Sender: TObject);
var
  cw,ch:integer;
begin
  cw := CaretBmp.Width;
  ch := CaretBmp.Height;
  CreateCaret(Handle, CaretBmp.Handle, cw, ch);
  SetCaretPos(50,100);
  ShowCaret(Handle);
end;
В лазарусе точно такой же код не работает, каретка просто не появляется и не мигает, подскажите в чем проблема?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2015, 19:25
Ответы с готовыми решениями:

Создание калькулятора на Lazarus
Сделал калькулятор, но проблема в процентах, он выдаёт не тот результат который...

Lazarus программное создание файла
Мне нужно при нажатии кнопки создать TMemo который объединён в...

Создание RTF в Lazarus (RichMemo)
Приветствую. Подскажите, есть ли какой-нибудь компонент (или библиотека), с...

Создание gif-анимации средствами Lazarus
Привет. Появилась задача создать анимацию генерации меандра из вращающихся...

В Lazarus помогите справиться. Создание мини-игры
Я создал в Lazarus что то наподобе игры. Естественно для ознакомления и...

6
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26127 / 17521 / 6949
Регистрация: 22.10.2011
Сообщений: 30,857
Записей в блоге: 6
02.12.2015, 21:21 2
То, что оно работает в Дельфи - это проблемы Дельфи. В доках на CreateCaret сказано, что:
The bitmap handle must have been created by the CreateBitmap, CreateDIBitmap, or LoadBitmap function.
Если использовать CreateBitmap или LoadBitmap - нормально назначается каретка, только что попробовал.
0
Des123
1 / 1 / 0
Регистрация: 24.07.2015
Сообщений: 11
03.12.2015, 16:12  [ТС] 3
все равно не получается, можно полный код с createbitmap ?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26127 / 17521 / 6949
Регистрация: 22.10.2011
Сообщений: 30,857
Записей в блоге: 6
03.12.2015, 17:30 4
Вот так, например:
0
Вложения
Тип файла: 7z carets.7z (59.0 Кб, 4 просмотров)
Des123
1 / 1 / 0
Регистрация: 24.07.2015
Сообщений: 11
03.12.2015, 17:47  [ТС] 5
твой проект, который ты прислал под виндовс судя по всему, а у меня на линуксе, полный копипаст кода так же не срабатывает, каретка не появляется
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26127 / 17521 / 6949
Регистрация: 22.10.2011
Сообщений: 30,857
Записей в блоге: 6
03.12.2015, 18:35 6
На линуксе это вообще не работает, какой на фиг Линукс, если используются функции из WinAPI?
0
Des123
1 / 1 / 0
Регистрация: 24.07.2015
Сообщений: 11
03.12.2015, 22:59  [ТС] 7
там есть их аналоги, точно также называются
0
03.12.2015, 22:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2015, 22:59

Установка ZEOS в Lazarus, работа с PostgressSQL в Lazarus
Не получается никак установить компонент ZEOS в Lazarus открываю пакет с...

В чём разница между Lazarus Linux i386 RPM и Lazarus Linux i386 DEB
Здравствуйте. Установил в виртуалке Ubuntu и хочу "покрутить" в ней Lazarus....

Создание своей игры
Здравствуйте,хочу сделать свою игру,но не знаю,на чем начать писать,логично ли...


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

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

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