Несколько различных вопросов

← →
Unknown (2005-01-08 15:25) [0]

Вот несколько вопросов, с которыми я столкнулся при разработке программы:

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

← →
antonn © (2005-01-08 15:34) [1]

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

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

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

???

← →
olookin © (2005-01-08 15:41) [2]

[1] antonn © (08.01.05 15:34)
>>image1.canvas.copyrect(rect(0,0,320,200), TBitmap.canvas, rect
>>(0,0,1024,768) );

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

← →
SergP © (2005-01-08 15:44) [3]

2. А смысл? Просто выполни те действия что должны выполняться при ручном нажатии. или что тебе нужно?
5. может Application.MainForm.WindowState подойдет?
6. insert + F1

← →
olookin © (2005-01-08 16:09) [4]

Для 5 подойдет проверка IsIconic

← →
Kerk © (2005-01-08 16:12) [5]

antonn © (08.01.05 15:34) [1]

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

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

← →
OlegP © (2005-01-08 16:29) [6]

1. Как программно удалить одну из страниц TabbedNotebook?

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

← →
OlegP © (2005-01-08 16:37) [7]

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

← →
antonn © (2005-01-08 16:47) [8]

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

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

← →
OlegP © (2005-01-08 16:48) [9]

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;

← →
olookin © (2005-01-08 17:03) [10]

[8] antonn © (08.01.05 16:47)

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

У тебя все вопросы или еще есть, выкладывай сюда, чтобы по всем форумам и ветками не бегать.

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

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

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

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

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

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

> 4. Как настроить Delphi так, чтобы он не создавал резервных
> копий файлов (*.~*)?
плигин писал для фара.. удаляет в текущей директории файлы по маске.. настраиваешь комбинацию клавишь и радуешься :) могу дать. до этого юзал макрос, но плачевно закончилось

Несколько различных вопросов Найти похожие ветки