Forum Replies Created
-
Posts
-
Я больше скажу, что писать на FX под андроид
а) геморойно
б) бесполезно – поддержка новых девайсов и версий выходит с задержкой на полгода-год. Исключить своё приложение из использования любителей новых железок навсегда и без шансов?
в) качество самого приложения ещё то.
Хуже будет если EC сделают поддержку Linux в FX, но они это как-то не собираются делать.
Так что пока VCL+wine и есть много счастья для любителей Ubuntu. Ну и скины AC здесь уже просто необходимы.
сейчас не в попыхах напишу
Модуль sDBNavigator, 87 строчка похоже в моём коде была.
Решил косяк просто – выкинув TsDBNavigator.
Косяк судя по всему вызывался тем что:
2 – sDBNavigator на 2х sPanel одна из которых visible:=false.
При входе в режим редактирования AV. Скинирование включено.
Вы проверяете работу Event если у компонента visible:=true, а какой-нибудь из parent.parent.parent…parent.parent.visible:=false?
Думал будет безобразно:
'Support' wrote:BoundLabel.Layout в sclLeftTop и оставить Margins как есть.
но нет, вполне. Спасибо.
'mediv' wrote:1) Можно добавить набор св-в:
ParentControl – указывается компонент на форме
IsTop, IsLeft, IsWidth – булевские св-ва
mediv, попробуй реализовать сам в виде хелперов к TComponents
'mediv' wrote:2) Можно добавить скинирование LookUp из библиотеки Ehlib.
Присоединяюсь к просьбе
'TCount' wrote:Забавное явление 🙄
Установите свойство Align у TsDateEdit в alNone.
Чтоб обойти ошибку, можно, вместо BoundLabel свойства, использовать независимый sLabel
но хотелось бы получить исправление ошибки.
Затем и пишу… (а не на жизнь пожаловаться 🙄 )
с TsBitBtn не помогло
после всех деструкторов фрейма возвражается в TsBitBtn здесь
procedure TsBitBtn.WndProc(var Message: TMessage);
в 873 строку
inherited;
case Message.Msg of
где Message.Msg=48401
но здесь я кнопки явно в деструкторе убиваю
while i <= btnG.Count - 1 do begin try TsBitBtn(btnG).Hide; //Обходим прикол AC – когда она отрисовывает нажатие кнопки (и её отпускание) после обработки нажатия и обращается к ней, а мы её уже удалили.
// Application.ProcessMessages;
TsBitBtn(btnG).free;
btnG.Delete(i);
except
Inc(i);
end;
procedure TsButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Assigned(FCommonData) and FCommonData.Skinned and Enabled and not (csDesigning in ComponentState) {and FDown} then begin
вроде дало счастье
вот простенькая демка что это косяк AC (включенность скинов не влияет)
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sButton, ExtCtrls, sPanel;
type
TForm2 = class(TForm)
pnl1: TsPanel;
pnl2: TPanel;
btn1: TsButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.btn1Click(Sender: TObject);
begin
pnl1.free;
end;
procedure TForm2.btn2Click(Sender: TObject);
begin
pnl2.free;
end;
end.
object Form2: TForm2
Left = 0
Top = 0
Caption = 'Form2'
ClientHeight = 290
ClientWidth = 554
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object pnl1: TsPanel
Left = 40
Top = 72
Width = 185
Height = 41
Caption = 'pnl1'
TabOrder = 0
SkinData.SkinSection = 'PANEL'
object btn1: TsButton
Left = 48
Top = 8
Width = 75
Height = 25
Caption = 'btn1'
TabOrder = 0
OnClick = btn1Click
SkinData.SkinSection = 'BUTTON'
end
end
object pnl2: TPanel
Left = 304
Top = 72
Width = 185
Height = 41
Caption = 'pnl2'
TabOrder = 1
object btn2: TButton
Left = 48
Top = 8
Width = 75
Height = 25
Caption = 'btn2'
TabOrder = 0
OnClick = btn2Click
end
end
end
уже на АС7.32
procedure TsButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if FCommonData.Skinned and Enabled and not (csDesigning in ComponentState) {and FDown} then begin
if (Button = mbLeft) and ShowHintStored then begin
Application.ShowHint := AppShowHint;
ShowHintStored := False;
end;
Уточняю – вот отсюда
при отключеных скинах таже фигня (
Есть мысли как обойти/поправить побыстрому?
Flat=True стоит. Но есть картинка или текст + стандартные хоть как-то да видны (контуром). А сейчас просто исчезают.
TsDBComboBox
и мой TsDBComboBox2 (с id+текст) работают действительно, правильно. Но это нужно переделать довольно много кода.
Но пока похоже другого варианта и не видно ;(
