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

Вниз

TStatusBar и OwnerDraw какойто страшный глюк :)   Найти похожие ветки 

← →
Chlavik   (2003-11-07 19:25) [0]

Привет... У меня такая проблема: Есть на окне MainMenu у которого есть менюшки File, About и так далее... и Внизу StatusBar который состоит из двух TPanel обое OWnerDraw вот ниже код который рисует их. В воторой панельке отображается иконка часиков и время. Так вот когда водиш мишкой по окну проги то когда держать мишку в определённых местах окна, на второй панели StatusBara рисуется не то что я рисую а на белом фоне слово &File т.е. Caption TMenuItem галвного меню MainMenu.
Я просто прозреваю как такое может быть... Помогите пожалуйста..

( //******************************************************************************

procedure TfmMain.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var R:TRect;
drFormat:Cardinal;
Icon:TIcon;
begin
R:=Rect;
StatusBar1.Canvas.Brush.Color:=UploadList.Color;
StatusBar1.Canvas.FillRect(Rect);
StatusBar1.Canvas.Font.Color:=UploadList.Font.Color;
if Panel.Index=0 then drFormat:=DT_PATH_ELLIPSIS else drFormat:=DT_WORD_ELLIPSIS;
if Panel.Index=1 then
begin
Icon:=TIcon.Create;
if Scheduler.SUpload.Enabled then
OtherIcons16.GetIcon(0,Icon) else OtherIcons16.GetIcon(1,Icon);
StatusBar1.Canvas.Draw(R.Left,R.Top,Icon);
R.Left:=R.Left+Icon.Width+2;
Icon.Free;
end;

DrawTextEx(StatusBar1.Canvas.Handle,PChar(Panel.Text),-1, R,
DT_SINGLELINE or DT_LEFT or DT_Top or DT_VCENTER or drFormat,nil);
end;

---

← →
Chlavik   (2003-11-07 19:27) [1]

У меня чтоит XP может это с этим связано... но если манифест отключить (//{$R XpStyle.res}) то всё равно глючит...

---

← →
Chlavik   (2003-11-07 20:24) [2]

Короче вроде решил проблему после изменения текста панельки добавил StatusBar1.RePaint;
вроде помогло :) но всё равно откуда там взялся текст MainMenu...??....

---

← →
Dimaz   (2003-11-07 22:24) [3]

Ты попробуй AutoHint := False

---

← →
Chlavik   (2003-11-08 01:30) [4]

А оно так и по умолчанию стоит...

---

← →
Chlavik   (2003-11-08 01:30) [5]

Только вот причём тут это я вообще не доганяю.... :)

---

← →
Chlavik   (2003-11-09 15:47) [6]

Убрал но не совсем реже но появляется что делать???

---

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

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

Наверх

Память: 0.45 MB
Время: 0.01 c