Пьяный дельфин от 20 апреля 2001

Hi !

Жизнь пошла диетная, жизнь пошла голодная
(с)

Так и живем, отслучая к случаю. Но, правда иногда попадаются перлы, которым и урожайный год позавидует. Как, например, у нашего сегодняшнего победителя, котроым стал Varlamov Ilya

Дельфи вообще не понимает команды rtfm и ShellExecute

Проект доступен в OnLine по адресу: http://podgoretsky.com/DrunkenDolphin.html
(спасибо Анатолию Подгорецкому)

[Почти] все нижеприведенные материалы являются безусловной авторской собственностью соответствующих соавторов

02.04.2001 Alexei Karpov

Господа, объясните мне - убогому, как создать динамический массив из 259 элементов (кол-во взято из головы, главное, что больше 255)

03.04.2001 Овсянников Вдадимир

Как удалить файл после его завершения?

06.04.2000 Vitaly Daniloff

NM> перестали отлаживаться DLL-библиотеки. Отладчик не останавливается на
NM> точках останова и отказывется трассировать модули. С exe-шниками все в

NM> порядке, отлаживаются как и положено.

Project Options\Linker\
    [x] Include TD32 debug info
    [x] Include remote debug symbols

06.04.2000 Klepcha Denis Как за клиентскyю область пеpемещать я знаю, а вот напpимеp за Timer не полyчается...

07.04.2001 Dmitry Lavrentjev

VAR s:string;
    tl:TLabel;
    i:integer;
BEGIN
    for i:=1 to 5 do
    begin
      str(i,s);
      s:='label'+s;  // тут я формирую имя объекта, например 'Label3'
      tl:=tlabel(s); //вот тут при выполнении выдается ошибкаAccess
                     //violation ...
      tl.visible:=false;
    end;
END;

07.04.2001 Artem Gryaznov

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index:Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Bitmap: TImage;
  Offset: Integer;
begin
  Bitmap := TImage.Create( self);
  Bitmap := TImage(ListBox1.Items.Objects[Index]);
  ListBox1.Canvas.FillRect( Rect);
  if Bitmap.Picture.Bitmap <> nil then
  begin
    ListBox1.Canvas.BrushCopy(
    Bounds(Rect.Left+2, Rect.Top, Bitmap.Picture.Bitmap.Width,Bitmap.Picture.Bitmap.Height),
    Bitmap.Picture.Bitmap,
    Bounds(0, 0, Bitmap.Picture.Bitmap.Width,Bitmap.Picture.Bitmap.Height),clRed);
    Offset := Bitmap.Width + 6;
  end
  else Offset := 2;
  ListBox1.Canvas.TextOut( Rect.Left + Offset, Rect.Top,ListBox1.Items[Index]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  img: TImage;
begin
  img := TImage.Create( self);
  img := MyImage;
  img.Width := MyImage.Width;
  img.Height := MyImage.Height;
  img.Picture := MyImage.Picture;
  img.Picture.Bitmap := MyImage.Picture.Bitmap;
  img.Canvas.CopyMode := cmSrcCopy;
  ListBox1.Clear;
  ListBox1.Items.AddObject('Item 1', img);
  ListBox1.Items.AddObject('Item 2', img);
end;

09.04.2001 Varlamov Ilya

> rtfm shellexecute

Дельфи вообще не понимает команды rtfm и ShellExecute

15.04.2001 Varil

Как в Delphi обозначается любой символ (как * в Windows). Как сделать так, что если написано что-нибудь, но имеется опр буквосочетание, то происходило какое-либо событие. Например, определенное буквосочетание - это "ав" значит, если написаны слова АВтомобиль, зАВтрак, канАВа, то это событие будет происходить.

18.04.2001 Andrei Merzlikin

Subj: RESULT

У меня Delphi не понимает сабжа,как модуль нужен?

19.04.2001 Vladimir Otroshenko

Subj: hWnd

Как добраться до переменной, где храниться текущий сабж программы ?

Иконку в system tray (где часы) вставляют функцией Shell_NotifyIcon
Bye ... Тенцер А.Л. tolik@katren.nsk.ru
ICQ 15925834