Цитата:
|
Сообщение от Alegun
Повторил подобную ситуацию - сохранил "слово полученное из результата некой процедуры" и "вот после выполнения image1.canvas.textout();" на полотне имиджа появилась надпись, что в textout была послана с координатами заданными там же и изменений в status_text не наблюдалось - вывод: что-то происходит в тельце "некой процедуры", а что именно, неведомо
|
Код:
with Form1.Image1.Canvas do
begin
font.Color := $00A7A7A9; // connected
font.Size := 36;
font.Name := 'Tahoma';
font.Quality := fqAntialiased;
font.Style := [fsbold];
font.Height := -48;
//showmessage(status_text);
if ( status_text = 'Connected!' ) then
begin
TextOut(38, 19, status_text);
end;
Эта процедура выполняется всего один раз
если разрешить выполнение showmessage первый раз вижу слово Connected! а на второй уже оно такое как у Form1.Caption