| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
несколько вопросов [D7, XP]
likenoother © (2007-04-03 17:37:00)доброго время суток,хочу спросить совета по поводу нескольких вопросов :
1.по коордиатм в ТImage рисутся фигура,и каждая точка подписывается,а так же расстояние между ними,проблема в том что иногда фигура получается очень маленькая и большое количество текста загораживает её,вот задумал сделать масштабирование,но ник чему не пришол.хотелось бы узнать,может кто то сталкивался с мастабирование TImage.
2.нужно чтобы цикл перелистывая все Tlabel на форме удалял все,кторые начинаются с буквы 'P'.
likenoother (2007-04-03 20:08:00) [1]за второе огромное спасибо,а про первое в какой степи хотя бы искать?
TUser (2007-04-03 19:39:00) [2]1. Смотри в справке - там есть соотвествующие свойства
2.
var s: string;
C: TComponent;
for i := Components.Count - 1 downto 0 do begin
C := Componenets[i];
if C is TCustomLabel then begin
s := TCustomLabel(C).Caption;
if s <> '' then
if s[1] = 'P' then
C.Free;
end;
end;
| |
