Forum Replies Created
-
Posts
-
Интересный эффект при extendedborders = true
[attachment=3417:overborder.JPG]
Выходит что тут прийдется учитывать новые clientbounds формы.Это скорей всего связано с порядком загрузки пакетов и с тем что в дизантайме подбирается другой класс TGraphic.
При загрузке в TPicture класс подбирается автоматически по экстеншену файла, исходя из порядка регистрации классов TGraphic.Решить эту траблу можно уменьшив колво этих классов до одного правильного)))
Если кинуть на фрейм TsFrameAdapter то заработает.
Без него StackOwerflow.Ток вот в демке без фрейм адаптера работает )
Прикольный скин. На Ableton смахивает.
Только, вроде, альфаскинз не позволяют отрисовывать выделеные айтемы в лист боксе, подобным образом, как изображено на картинке.Добрый день.
Спаибо, в 6.33 версии этот глюк отсутствует.Но, к сожалению, присутствует новый (
После окончания перетягивания картинки за пределы видимой области листвью, при отпущеной кнопке мыши, скролл продолжает реагировать на перемещение мыши. И после этого начинает выбивать эксепшены:На открытие дизантайм редактора:
CODE[2000A2E8]{rtl100.bpl } System.TInterfacedObject.BeforeDestruction (Line 17951, “syssystem.pas” + 1) + $2
[20003FC6]{rtl100.bpl } System.ErrorAt (Line 3291, “syssystem.pas” + 3) + $4
[2000A2E8]{rtl100.bpl } System.TInterfacedObject.BeforeDestruction (Line 17951, “syssystem.pas” + 1) + $2
[20006BE5]{rtl100.bpl } System.@BeforeDestruction (Line 9548, “syssystem.pas” + 7) + $0
[20006784]{rtl100.bpl } System.TObject.Destroy (Line 8826, “syssystem.pas” + 0) + $0
[2000679C]{rtl100.bpl } System.TObject.Free (Line 8832, “syssystem.pas” + 1) + $4
[2001ADF4]{rtl100.bpl } SysUtils.FreeAndNil (Line 16958, “syssysutils.pas” + 2) + $2
[03DD5A6E]{acnt2007.bpl} Simglisteditor. + $0
[03DD6987]{acnt2007.bpl} Simglisteditor.TFormImgListEditor.ListView1MouseUp + $3
[2013BADB]{vcl100.bpl } Controls.TControl.MouseUp (Line 5349, “Controls.pas” + 1) + $23
[20199359]{vcl100.bpl } ComCtrls.TCustomListView.MouseUp (Line 16279, “ComCtrls.pas” + 2) + $C
[2013BB14]{vcl100.bpl } Controls.TControl.DoMouseUp (Line 5355, “Controls.pas” + 2) + $1DНа закрытие:
CODE[20006754]{rtl100.bpl } System.TObject.FreeInstance (Line 8813, “syssystem.pas” + 2) + $2
[20003FC6]{rtl100.bpl } System.ErrorAt (Line 3291, “syssystem.pas” + 3) + $4
[20006754]{rtl100.bpl } System.TObject.FreeInstance (Line 8813, “syssystem.pas” + 2) + $2
[20006B86]{rtl100.bpl } System.@ClassDestroy (Line 9513, “syssystem.pas” + 0) + $2
[20193441]{vcl100.bpl } ComCtrls.TSubItems.Destroy (Line 13126, “ComCtrls.pas” + 3) + $6
[2000679C]{rtl100.bpl } System.TObject.Free (Line 8832, “syssystem.pas” + 1) + $4
[20193682]{vcl100.bpl } ComCtrls.TListItem.Destroy (Line 13224, “ComCtrls.pas” + 6) + $3
[2000679C]{rtl100.bpl } System.TObject.Free (Line 8832, “syssystem.pas” + 1) + $4Use SendMessage(sButton1.Handle, CM_MOUSEENTER, 0, 0) to activate glowing and SendMessage(sButton1.Handle, CM_MOUSELEAVE, 0, 0) to deactivate.
Progress bar painter modification for cxGrid
CODEclass procedure TcxACLookAndFeelPainter.DrawProgressBarChunk(ACanvas: TcxCanvas; ARect: TRect; AVertical: Boolean);
var
s: string;
si: integer;
b: TBitmap;
CI: TCacheInfo;
begin
if Skinned then
begin
if AVertical then s := s_ProgressV else s := s_ProgressH;
si := DefaultManager.GetSkinIndex(s);
b := CreateBmp24(WidthOf(ARect), HeightOf(ARect));
try
CI := MakeCacheInfo(<img src="style_emoticons//cool.gif” style=”vertical-align:middle” emoid=”:cool:” border=”0″ alt=”cool.gif” />;
PaintItem(si, s, ci, True, 0, aRect, Point(0, 0), b.Canvas.Handle, DefaultManager);
BitBlt(ACanvas.Handle, aRect.Left, aRect.Top, b.Width, b.Height, b.Canvas.Handle, 0, 0, SRCCOPY);
finally
b.Free
end;
end
else inherited;
end;Для сетки вроде хватает и этого метода, а для контрола нужно еще бордеры перирисовать…
Есть идеи как это сделать? Лук&фил ведь не поддерживается в нем?В классе TcxCustomLookAndFeelPainter методы
class procedure DrawProgressBarBorder(ACanvas: TcxCanvas; ARect: TRect; AVertical: Boolean); virtual;
class procedure DrawProgressBarChunk(ACanvas: TcxCanvas; ARect: TRect; AVertical: Boolean); virtual;
class function ProgressBarBorderSize(AVertical: Boolean): TRect; virtual;
class function ProgressBarTextColor: TColor; virtual;Версия dx .42
Могу вечерком их попробывать реализовать.
Вот новая версия:
Добавлен хелпер для класса формы с методами BeginShade и EndShade.
[attachment=3269:ShadeForm.s.zip]Прорисовка прогрессбара нужна!
Т.к. в cxGrid его можно установить в роли редактора колонки.
В варианте который есть на данный моммент выглядит кривовато.AC:
[attachment=3263:acProgress.JPG]DX:
[attachment=3264:dxProgress.JPG]Буду весьма признателен если Вы добавите поддержку этого контрола!
А в кодегеар писать не пробывали? <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />
1. Берешь панель, визибл фалз.
2. Кладеш на нее имэдж.
3. Перед тем как ее показать копируеш с хендла формы прямоугольник в этот timage.bitmap.
4. Накладываешь на битмап маску – типа затенение.
5. Рисуешь сверху на битмапе свою картинку.
6. Показываешь панель.ps: TImage в принципе неможет загородить едиты, тк это не винконтрол
