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

Вниз

Компонента   Найти похожие ветки 

 
Ivolg ©   (2004-05-03 09:26) [0]

Здрасьте ещё раз! Мож кто знает едн достать компоненты PopupMenu чтоб у него было с севой стороны надпись какая нибудь! Как в проге в кладовке Cool Editor! СПАСИБО!


 
Gero ©   (2004-05-03 09:28) [1]

Лучше конечно, сделать самому, используя событие OnAdvancedDrawItem MenuItem"a.
Но можно сходить на http://www.torry.net и взять готовый компонент.


 
Ivolg ©   (2004-05-03 09:32) [2]

Gero

А как он называется?


 
TUser ©   (2004-05-03 09:45) [3]


> Как в проге в кладовке Cool Editor!

А в исходниках этой проги покопать не судьба?


 
Gero ©   (2004-05-03 09:46) [4]


Ivolg ©   (03.05.04 09:32)
А как он называется?

Откуда я знаю?
Зайди и посмотри. Там куча компонент валяется, наверняка есть и такой.


 
Ivolg ©   (2004-05-03 16:16) [5]

Эй разрабочик Cool Editor"a ОТЗОВИСЬ!


 
Mim1 ©   (2004-05-03 17:11) [6]

Ivolg ©   (03.05.04 16:16) [5]

Ну нахал(!), щас разработчик прибежит на твой клик и тапочки принесет :).


procedure TForm1.test0051MeasureItem(Sender: TObject; ACanvas: TCanvas;
 var Width, Height: Integer);
var rc:trect;
   mi :TMenuItem absolute sender;
begin
 FillChar(rc,sizeof(trect),#0);
     windows.DrawText(
                      ACanvas.Handle,
                      pchar(mi.Caption),
                      -1,
                      rc,
                      DT_CALCRECT);
  with rc do
    begin
      if mi.Parent = PopupMenu1.Items then
          Width := (Right - left) + Image1.Picture.Bitmap.Width
        else Width := (Right - left);
      Height := (Bottom - top);
    end;
end;

procedure TForm1.test0081AdvancedDrawItem(Sender: TObject;
 ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
 var i : integer;
     mi :TMenuItem absolute sender;
begin
 aCanvas.Brush.Color := clMenu;
 aCanvas.FillRect(ARect);

 if mi.Parent = PopupMenu1.Items then
   begin
     i := PopupMenu1.Items.IndexOf(mi);
     ACanvas.CopyRect(rect(ARect.left,
                           ARect.Top,
                           Image1.Picture.Bitmap.Width,
                           ARect.Bottom),
                      Image1.Picture.Bitmap.Canvas,
                      rect(0,
                           i*(ARect.Bottom-ARect.Top),
                           Image1.Picture.Bitmap.Width,
                           i*(ARect.Bottom-ARect.Top)+(ARect.Bottom-ARect.Top)));

     inc(ARect.Left,Image1.Picture.Bitmap.Width);
   end;

 if odGrayed in State then aCanvas.Font.Color := clGray;
 if odSelected in State then aCanvas.Brush.Color := clHighlight;
 aCanvas.FillRect(ARect);

  windows.DrawText(
                      ACanvas.Handle,
                      pchar(TMenuItem(Sender).Caption),
                      -1,
                      ARect,
                      DT_SINGLELINE+DT_VCENTER);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.038 c
1-1083651731
$tranger
2004-05-04 10:22
2004.05.16
Запуск с параметрами


14-1083049988
JibSkeart
2004-04-27 11:13
2004.05.16
Генеалогическое дерево языков :)


1-1083569600
Петро
2004-05-03 11:33
2004.05.16
Отчеты Rave


14-1082599283
miwa
2004-04-22 06:01
2004.05.16
А что, дайджестов больше не будет?!?


6-1080149734
hexbat
2004-03-24 20:35
2004.05.16
Как можно закачать xml запрос на сайт?





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