Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Несколько различных вопросов [D6, WinXP]

Unknown © (2005-01-08 15:25:00)
Вот несколько вопросов, с которыми я столкнулся при разработке программы:

1. Как программно удалить одну из страниц TabbedNotebook?
2. Как программно эмулировать нажатие на один из пунктов PopupMenu?
3. В переменной типа TBitmap хранится некое изображение размером, например, 1024 х 768. Как сделать миниатюрную копию этой картинки, допустим с размером 320 х 200?
4. Как настроить Delphi так, чтобы он не создавал резервных копий файлов (*.~*)?
5. Как узнать, свёрнута ли программа, и если да, то развернуть её.
6. Как вставить подстроку в строку?

Kerk (2005-01-08 17:33:00) [1]
> 4. Как настроить Delphi так, чтобы он не создавал резервных
> копий файлов (*.~*)?
плигин писал для фара.. удаляет в текущей директории файлы по маске.. настраиваешь комбинацию клавишь и радуешься :) могу дать. до этого юзал макрос, но плачевно закончилось

SergP (2005-01-08 17:31:00) [2]

> 4. Как настроить Delphi так, чтобы он не создавал резервных
> копий файлов (*.~*)?

А зачем? не нравятся резервные копии?
Если уж очень мешают, то сделай батник, в который напиши del *.~*
и запускай его когда нужно....

SergP (2005-01-08 17:07:00) [3]

> [9] OlegP © (08.01.05 16:48)

Есть же готовая процедура:

Insert(Substr:String;var Dest:String;Index:Integer)

Вставляет подстроку Substr в строку Dest, начиная с символа с номером Index

Kerk (2005-01-08 17:04:00) [4]
Anatoly Podgoretsky © (08.01.05 17:03) [11]
респект! :)

olookin (2005-01-08 17:03:00) [5]
[8] antonn © (08.01.05 16:47)

Что же, я был не прав.

Anatoly Podgoretsky (2005-01-08 17:03:00) [6]
У тебя все вопросы или еще есть, выкладывай сюда, чтобы по всем форумам и ветками не бегать.

OlegP (2005-01-08 16:48:00) [7]
6. Как вставить подстроку в строку?
function TForm1.Ins(s:string;subs:string;position: integer):string; var i: integer; begin if position>length(s) then begin result:=s; for i:=1 to position-length(s)-1 do result:=result+' '; result:=result+subs; end else result:=copy(s,1,position-1)+subs+copy(s,position,length(s)-position+1); end;

antonn (2005-01-08 16:47:00) [8]

> olookin © (08.01.05 15:41) [2]

да-ну? я думал скопирует из 1024*768 в картинку размером 320*200...

OlegP (2005-01-08 16:37:00) [9]
2. Как программно эмулировать нажатие на один из пунктов PopupMenu?
TabbedNotebook1.PopupMenu.Popup(ClientToScreen(Point(10,10)).X,ClientToScreen(Point(10,10)).Y); TabbedNotebook1.PopupMenu.Items[2].OnClick(sender); // ???

OlegP (2005-01-08 16:29:00) [10]
1. Как программно удалить одну из страниц TabbedNotebook?

TabbedNotebook1.Pages.Delete(2); TabbedNotebook1.Pages.Delete(TabbedNotebook1.Pages.IndexOfName('q'));

Kerk (2005-01-08 16:12:00) [11]
antonn © (08.01.05 15:34) [1]

> image1.canvas.copyrect(rect(0,0,320,200),
> TBitmap.canvas, rect(0,0,1024,768) );

Canvas.StretchDraw
очень популярный вопрос. четвертый раз за сутки. неужели в факе нету?

olookin (2005-01-08 16:09:00) [12]
Для 5 подойдет проверка IsIconic

SergP (2005-01-08 15:44:00) [13]
2. А смысл? Просто выполни те действия что должны выполняться при ручном нажатии. или что тебе нужно?
5. может Application.MainForm.WindowState подойдет?
6. insert + F1

olookin (2005-01-08 15:41:00) [14]
[1] antonn © (08.01.05 15:34)
>>image1.canvas.copyrect(rect(0,0,320,200), TBitmap.canvas, rect
>>(0,0,1024,768) );

По-моему, это просто вырежет кусок из большой картинки.

antonn (2005-01-08 15:34:00) [15]

> В переменной типа TBitmap хранится некое изображение размером,
> например, 1024 х 768. Как сделать миниатюрную копию этой
> картинки, допустим с размером 320 х 200?

image1.canvas.copyrect(rect(0,0,320,200), TBitmap.canvas, rect(0,0,1024,768) );

> 6. Как вставить подстроку в строку?

???

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »