Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c