Forum Replies Created
-
AuthorPosts
-
plasticut
ParticipantWaterGhost проверьте скины той же версии что и компонент?
plasticut
Participantplasticut
ParticipantИнтересный эффект при extendedborders = true
[attachment=3417:overborder.JPG]
Выходит что тут прийдется учитывать новые clientbounds формы.plasticut
ParticipantПоправил
[attachment=3413:ShadeForm.zip]plasticut
Participantplasticut
ParticipantЭто скорей всего связано с порядком загрузки пакетов и с тем что в дизантайме подбирается другой класс TGraphic.
При загрузке в TPicture класс подбирается автоматически по экстеншену файла, исходя из порядка регистрации классов TGraphic.Решить эту траблу можно уменьшив колво этих классов до одного правильного)))
plasticut
ParticipantЕсли кинуть на фрейм TsFrameAdapter то заработает.
Без него StackOwerflow.Ток вот в демке без фрейм адаптера работает )
plasticut
ParticipantПрикольный скин. На Ableton смахивает.
Только, вроде, альфаскинз не позволяют отрисовывать выделеные айтемы в лист боксе, подобным образом, как изображено на картинке.plasticut
ParticipantДобрый день.
Спаибо, в 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) + $4plasticut
ParticipantUse SendMessage(sButton1.Handle, CM_MOUSEENTER, 0, 0) to activate glowing and SendMessage(sButton1.Handle, CM_MOUSELEAVE, 0, 0) to deactivate.
plasticut
ParticipantProgress 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;Для сетки вроде хватает и этого метода, а для контрола нужно еще бордеры перирисовать…
plasticut
ParticipantЕсть идеи как это сделать? Лук&фил ведь не поддерживается в нем?В классе 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
Могу вечерком их попробывать реализовать.
plasticut
ParticipantВот новая версия:
Добавлен хелпер для класса формы с методами BeginShade и EndShade.
[attachment=3269:ShadeForm.s.zip]plasticut
Participantто Veiron:
А скины у вас той же версии что и AC ?
plasticut
ParticipantПрорисовка прогрессбара нужна!
Т.к. в cxGrid его можно установить в роли редактора колонки.
В варианте который есть на данный моммент выглядит кривовато.AC:
[attachment=3263:acProgress.JPG]DX:
[attachment=3264:dxProgress.JPG]Буду весьма признателен если Вы добавите поддержку этого контрола!
plasticut
ParticipantА в кодегеар писать не пробывали? <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />
plasticut
ParticipantА так не моргает ))
[attachment=3252:SemiTransPanel.zip]plasticut
ParticipantТак в чем была проблема?
Поделитесь опытом!plasticut
Participant[attachment=3246:SemiTransPanel.zip]
plasticut
Participant1. Берешь панель, визибл фалз.
2. Кладеш на нее имэдж.
3. Перед тем как ее показать копируеш с хендла формы прямоугольник в этот timage.bitmap.
4. Накладываешь на битмап маску – типа затенение.
5. Рисуешь сверху на битмапе свою картинку.
6. Показываешь панель.ps: TImage в принципе неможет загородить едиты, тк это не винконтрол
-
AuthorPosts