FShowFrame:= True;
end;
procedure TVSProgressBar.SetShowFrame(Value: boolean);
begin
if FShowFrame <> Value then begin
FShowFrame:= Value;
RecreateWnd;
end;
end;
procedure TVSProgressBar.WMNCPAINT(var Msg: TMessage);
var
DC: HDC;
RC: TRect;
begin
if ShowFrame then begin
Inherited; // если рамка – родитель сам разберется
Invalidate;
end else begin
DC := GetWindowDC(Handle);
try
Windows.GetClientRect(Handle, RC); // площадка под ProgressBar
with RC do begin // учтем 3D эффект
Right:= Right + 2;
Bottom:= Bottom + 2;
end;
Windows.FillRect(DC, RC, Brush.Handle); // зальем площадку цветом подложки
finally
ReleaseDC(Handle, DC);
end;
end;
end;
procedure Register;
begin
RegisterComponents('Controls', [TVSProgressBar]);
end;
end.
Теперь ProgressBar может появиться на форме «неожиданно», как бы из ничего, если ShowFrame:= False.
C уважением, VS
Query
Можно ли использовать результаты выполнения одного TQuery для другого TQuery?
Nomadic отвечает:
Если Вы работаете с локальными БД, то Вам поможет –
DbiMakePermanent(SourceQuery.Handle, RName, false);
Можно ли вызвать хранимую процедуру через TQuery, если она не возвращает курсора?
Nomadic отвечает:
В случае MS SQL нужно написать:
Query1.Sql := 'declare @res' + #13#10 + 'exec MyFunc :Param1, :Param2, @res OUTPUT';
Query1.Open;
Result := Query1.FieldByName( 'Column1' ).Value;
Query1.Close;
TQUERY и TDBGRID
Delphi 1
1. После ключевого слова where используйте оператор order
Select fname, lname, title
from T_EMPLOYEE
where title = 'MGR'
order by lname, fname
2. Попробуйте использовать событие ColEnter.
Две и более команд в свойстве TQUERY.SQL
Delphi 1
Я предлагаю вас попытаться подключить новый запрос к существующему TQuery.
Query1.Sql.Clear;
Query1.Close;
Query1.Sql.Add('select * from «monitor.dbf» order by location,dept');
Query1.Open;
Query1.Refresh;
Хитрость кроется в закрытии вашего запроса перед назначением нового.
RichEdit
Как вставить в нужное место Rich Text в TRichEdit?
Nomadic советует:
Вы можете послать сообщение EM_STREAMIN с параметром SFF_SELECTION методом Perform для замены текущего Selection. Выдержка из Help:
EM_STREAMIN
wParam = (WPARAM)(UINT) uFormat; // Integer
lParam = (LPARAM)(EDITSTREAM FAR *) lpStream; // EDITSTREAM^
The EM_STREAMIN message replaces the contents of a rich edit control with the specified data stream.
Parameters
uFormat
One of the following data formats, optionally combined with the SFF_SELECTION flag:
Value Meaning SF_TEXT Text SF_RTF Rich-text format
If the SFF_SELECTION flag is specified, the stream replaces the contents of the current selection. Otherwise, the stream replaces the entire contents of the control.
lpStream
Pointer to an EDITSTREAM structure. The control reads (streams in) the data by repeatedly calling the function specified by the structure's pfnCallback member.
Return Value
Returns the number of characters read.
Как указать максимальный размер текста для TRichEdit?
Nomadic советует:
У этого компонента есть свойство MaxLength, которое работает некорректно. Поэтому лучше пользоваться
RichEdit.Perform(EM_LIMITTEXT, нужный размер, 0);
Причем перед каждом открытии файла это действие необходимо повторять.
Если Вы передаете в качестве размера 0, то ОС ограничивает размер OS Specific Default Value. Реально, по результатам моих экспериментов, поставить можно размер, чуть меньший доступной виртуальной памяти. Я ограничился 90% от свободной виртуалки.
Для того, чтобы не повторять этот вызов (EM_LIMITTEXT), можно воспользоваться сообщением EM_EXLIMITTEXT.
Позиция курсора в TRichEdit
Delphi 2
Procedure TForm1.GetPosition(Sender: TRichEdit);
var
iX, iY: Integer;
TheRichEdit: TRichEdit;
begin
iX:= 0;
iY:= 0;
TheRichEdit:= TRichEdit(Sender);
iY:= SendMessage(TheRichEdit.Handle, EM_LINEFROMCHAR, TheRichEdit.SelStart, 0);
iX:= TheRichEdit.SelStart - SendMessage(TheRichEdit.Handle, EM_LINEINDEX, iY, 0);
Panel1.Caption:= IntToStr(iY + 1) + ':' + IntToStr(iX + 1);
end;
procedure TForm1.RichEditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GetPosition(RichEdit);
end;
procedure TForm1.RichEditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
GetPosition(RichEdit);
end;
RadioGroup
Группа радиокнопок и ActiveControl
На форме я имею группу радиокнопок. Я хотел бы вызывать контекстно-зависимую подсказку, если пользователь нажал F1. Для данной конкретной группы радиокнопок я установил HelpContext равным 22, но при любом вызове ActiveControl.HelpContext это возвращает (0). Все другие элементы управления работают как положено. Что я делаю неправильно?
Нет. Проблема в том, что ActiveControl – RadioButton, а не RadioButtonGroup. Поместите следующий код в обработчик события формы OnShow, он должен решить вашу проблему:
procedure TForm1.FormShow(Sender: TObject);
var c: integer;
begin
with RadioGroup1 do begin
for c := 0 to ControlCount – 1 do TRadioButton(Controls[c]).HelpContext := HelpContext;
end;
end;
– Ralph Friedman
ScrollBar
Мерцание ScrollBar
TScrollBar в Delphi мигает при получении фокуса. Как избежать этого мерцания?
Такая же проблема и при перемещении стандартного бегунка полосы прокрутки. Лечится одинаково: установкой свойства TabStop в False.
– Rick Rogers
SpeedButton
Speedbutton и Glyph
Могу ли я из ресурсов поочередно загружать глифы для кнопок speedbutton и, если да, то как это сделать?
Например, если в вашем проекте используется TDBGrid, то иконки кнопок компонента DBNavigator могут линковаться вашей программой, и их можно загрузить для использования в ваших speedbutton следующим образом:
SpeedButton.Caption := '';
SpeedButton1.Glyph.LoadFromResourcename(HInstance,'DBN_REFRESH');
SpeedButton1.NumGlyphs := 2;
Другие зарезервированные имена:
DBN_PRIOR, DBN_DELETE, DBN_CANCEL, DBN_EDIT, DBN_FIRST, DBN_INSERT, DBN_LAST, DBN_NEXT, DBN_POST
Все имена должны использовать верхний регистр.
– Dennis Passmore
StringGrid
Обновление картинки в ячейке StringGrid
SottNick советует:
Если в таблице вы используете событие OnDrawCell для помещения в ячейку рисунка, причем различного, в зависимости, например, от соответствующего значения в двумерном массиве, и вам надо, чтобы после изменения значения в массиве обновилось изображение (Refresh не подходит, т.к. будет мелькать), то измените значение у ячейки (DrawGrid не годится):
StringGrid1.Cells[i,j]:='';
или
StringGrid1.Cells[i,j]:=StringGrid1.Cells[i,j];
если там что-то хранится.
Многострочность в заголовках колонок StringGrid
У меня есть StringGrid, который выглядит очень красивым, за исключением заголовков колонок, где я хотел бы иметь их размер равным 1 ячейке, но с заголовком, размещенным в нескольких строках, например,
Индекс Фондовой Биржи
показывалось бы как
Индекс
Фондовой
Биржи
было бы классно, если можно было этот заголовок размещать еще и по центру.
Рисовать сами ячейки вы можете в обработчике события OnDrawCell. Для определения ячейки (заголовок?), обрабатываемой в текущий момент, используйте параметр GridState.
Я выводил тест с помощью обычных методов рисования (которые хорошо "приживаются" в данном компоненте), с поддержкой вертикального выравнивания, полей и переноса слов. Вот сам код:
TFTVerticalAlignment = (vaTop, vaMiddle, vaBottom);
procedure DrawTextAligned(const Text: string; Canvas: TCanvas; var Rect: TRect; Alignment: TAlignment; VerticalAlignment: TFTVerticalAlignment; WordWrap: Boolean);
var
P : array[0..255] of Char;
