несколько вопросов

← →
likenoother (2007-04-03 17:37) [0]

доброго время суток,хочу спросить совета по поводу нескольких вопросов :
1.по коордиатм в ТImage рисутся фигура,и каждая точка подписывается,а так же расстояние между ними,проблема в том что иногда фигура получается очень маленькая и большое количество текста загораживает её,вот задумал сделать масштабирование,но ник чему не пришол.хотелось бы узнать,может кто то сталкивался с мастабирование TImage.
2.нужно чтобы цикл перелистывая все Tlabel на форме удалял все,кторые начинаются с буквы "P".

← →
TUser © (2007-04-03 19:39) [1]

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;

← →
likenoother (2007-04-03 20:08) [2]

за второе огромное спасибо,а про первое в какой степи хотя бы искать?

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