Topic: [РЕШЕНО] Обрамление надписи (Label)
Возможно ли сделать? Честно, не нашла как
Заранее спасибо за ответ.
My Visual Database → Russian → [РЕШЕНО] Обрамление надписи (Label)
Возможно ли сделать? Честно, не нашла как
Заранее спасибо за ответ.
Нашла в интернете пример
var
ww, hh: Integer;
begin
Canvas.Font.Size:=18;
Canvas.Font.Color:=clRed;
Canvas.Brush.Style:=bsClear;
ww:=Canvas.TextWidth('Hello World');
hh:=Canvas.TextHeight('Hello World');
//// Or...
//Canvas.GetTextSize('Hello World', ww, hh);
Canvas.Rectangle(80, 60, 80+ww, 60+hh);
Canvas.TextOut(80,60,'Hello World');
end;
Я так понимаю, нужно в переменные добавить Canvas:TCanvas;
Упс
Исправила ошибки синтаксиса
procedure GLForm_OnShow (Sender: TObject; Action: string);
var
Canvas:TCanvas;
ww, hh: Integer;
begin
GLForm.Canvas.Font.Size:=18;
GLForm.Canvas.Font.Color:=clRed;
GLForm.Canvas.Brush.Style:=bsClear;
ww:=GLForm.Canvas.TextWidth('Hello World');
hh:=GLForm.Canvas.TextHeight('Hello World');
GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
GLForm.Canvas.TextOut(80,60,'Hello World');
end;
но ничего на прорисовалось
Зачем же так усложнять себе жизнь? Если вы будете рисовать скриптами интерфейс, то вся магия быстрой и лёгкой разработки исчезнет )). Для разукрашивания можно использовать свойства компонентов:
Для разукрашивания можно использовать свойства компонентов:
Это у меня есть, если вы заметили мне нужен BorderStyle:=bsSingle для Label. Как это сделать?
В журнале успеваемости студентов колонки: лабораторные, домашние и индивидуальные задания объединены одной шапкой. В TableGrid я могу назначать названия колонок. Объединять из нельзя. В общем, можно выкрутиться либо Panel, либо GroupBox (что не очень по-моему) .
Процедура работает при событии GlForm_Button1_OnClick, а не GLForm_OnShow!!!
Используйте компонент Edit вместо Label
Используйте компонент Edit вместо Label
Точно! Спасибо.
Но опыт пригодится
Можно сделать скриншот заголовка из Excle, обрезать и вставить картинкой
Исправила ошибки синтаксиса
procedure GLForm_OnShow (Sender: TObject; Action: string); var Canvas:TCanvas; ww, hh: Integer; begin GLForm.Canvas.Font.Size:=18; GLForm.Canvas.Font.Color:=clRed; GLForm.Canvas.Brush.Style:=bsClear; ww:=GLForm.Canvas.TextWidth('Hello World'); hh:=GLForm.Canvas.TextHeight('Hello World'); GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh); GLForm.Canvas.TextOut(80,60,'Hello World'); end;
но ничего на прорисовалось
Если мне память не изменяет, вот так должно прорисоваться:
procedure GLForm_OnShow (Sender: TObject; Action: string);
var
Canvas:TCanvas;
ww, hh: Integer;
begin
SendMessage(GLForm.Handle,274,61728,0);
Application.ProcessMessages;
GLForm.Canvas.Font.Size:=18;
GLForm.Canvas.Font.Color:=clRed;
GLForm.Canvas.Brush.Style:=bsClear;
ww:=GLForm.Canvas.TextWidth('Hello World');
hh:=GLForm.Canvas.TextHeight('Hello World');
GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
GLForm.Canvas.TextOut(80,60,'Hello World');
end;
SendMessage(GLForm.Handle,274,61728,0);
Application.ProcessMessages;
Волшебное заклинание подействовало!
А совет от админа быстрее и красивше
Волшебное заклинание подействовало!
Волшебство пропадёт, если форму минимизировать и развернуть.
Можно вынести код в отдельную процедуру и вызывать её в GLForm_OnShow и GLForm_OnResize.
procedure CanvasShow ();
var
Canvas:TCanvas;
ww, hh: Integer;
begin
GLForm.Canvas.Font.Size:=18;
GLForm.Canvas.Font.Color:=clRed;
GLForm.Canvas.Brush.Style:=bsClear;
ww:=GLForm.Canvas.TextWidth('Hello World');
hh:=GLForm.Canvas.TextHeight('Hello World');
GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
GLForm.Canvas.TextOut(80,60,'Hello World');
end;
procedure GLForm_OnResize (Sender: TObject);
begin
Application.ProcessMessages;
CanvasShow;
end;
procedure GLForm_OnShow (Sender: TObject; Action: string);
begin
SendMessage(GLForm.Handle,274,61728,0);
GLForm_OnResize(GLForm);
end;
Но если перетащить форму за пределы экрана, волшебство опять исчезнет.
А совет от админа быстрее и красивше.
Я только показал, что при использовании Canvas надо перерисовывать форму.
Я только показал, что при использовании Canvas надо перерисовывать форму.
И вам спасибо. Когда-нибудь пригодится.
А совет от админа быстрее и красивше
Добрый день!
Можете поделиться проектом с журналом посещений занятий.
Необходимо что-то подобное, для примера рассмотрел бы
Ваш проект. Заранее благодарен.
Проект пока заморожен к сожалению и не доведен до логического конца, но для примера пожалуйста.
База данных MySQL (в setting.ini указать свой host и username)
Ссылку на скачивание пришлю на e-mail
Проект пока заморожен к сожалению и не доведен до логического конца, но для примера пожалуйста.
База данных MySQL (в setting.ini указать свой host и username)Ссылку на скачивание пришлю на e-mail
Большое спасибо!
Скачаю и рассмотрю
Большое спасибо!
Пожалуйста.
My Visual Database → Russian → [РЕШЕНО] Обрамление надписи (Label)
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi