Buna ziua tuturor!
Sunt nou la FMX.
Am întâmpinat probleme cu diferențele cu VCL.
Unele probleme:
1) Textul din mouse-ul de editare nu poate fi selectat, selecția sare.
Cred că este legată de ascuțirea sub atingere, cum să o rezolv și dacă este posibil - nu am găsit-o nicăieri.
2) Pentru a picta o rețea (linie) în funcție de valoare este posibilă?
În VCL, acest lucru se face pe OnDrawColumnCell
Mulțumesc!
Pentru aplicația FMX a fost necesar să se plaseze butoane cu bitmap-uri în antetul ferestrei OSX:
Am citit-o aici, dar nu am găsit o soluție potrivită pentru Delphi. Orice idei?
În general, în fața unui astfel de dezastru și nu știu cum să o rezolv!
Trebuie să fac într-un anumit container pentru a încărca vieți, butoane, e-mailuri, etichete și așa mai departe.
Apoi, trebuie să faceți tot posibilul să trageți cutia de scroll și să creați o copie a aceluiași container! S-ar părea că totul se poate face, dar aici sunt la un moment dat, de ce?
Am aruncat TCalloutRectangle pe formularul din el, am aranjat cum am nevoie de elementele și am învățat să se miște în caseta de scrolling. Stau aici atât de fericit căutând codul)
procedura TForm1.crtPhaseMouseDown (Expeditor: TObject; Buton: TMouseButton; Shift: TShiftState; X, Y: Single); începe zX: = X; zY: = Y; zIsDragging: = adevărat; (Expeditor ca TControl) .BringToFront; (Expeditor ca TShape) .Fill.Color: = TAlphaColorRec.Lightblue; (Expeditor ca TShape) .Root.Captured: = (Expeditor ca TShape); se încheie; procedura TForm1.crtPhaseMouseMove (Expeditor: TObject; Shift: TShiftState; X, Y: Single); începe în cazul în care zIsDragging și (ssLeft în Shift) începe apoi (Sender ca TControl) .Position.X: = (Sender ca TControl) .Position.X + X - zX; (Expeditor ca TControl) .Position.Y: = (Expeditor ca TControl) .Position.Y + Y - zY; // (Expeditor ca TShape). se încheie; Apoi, am aceeași bucurie și am copiat codul dintr-un alt proiect în care am creat perfect copiile pe care le-am depus.
procedura TForm1.Button1Click (expeditor: TObject); var Dispoziție: TButton; începeți Layout: = TButton.Create (GridLayout1); Layout.Parent: = GridLayout1; Layout.StyleLookup: = 'MainStyle3'; Layout.Position.X: = Layout1.Position.X + 10; Layout.Position.Y: = Layout1.Position.Y + 10; Layout.Visible: = true; GridLayout1.Height: = GridLayout1.Height + Layout.Height; se încheie; Eu stau si cred ca asta a facut el, el este in forma, el este tras de-a lungul rece si il voi invata cum sa se multiplice)))
Dar apoi o maimuță fierbinte aruncă o surpriză)
TCalloutRectangle și altele asemănătoare nu au proprietatea LoockupStyle. Și asta înseamnă că nu-i pot trăda stilul) Dar se mișcă bine în formă)
Ok, fac un buton, e un fel de stil, e stingher, dar e tacul meu) Dar nu se mișcă în formă și când dă clic pe el dă o eroare
Prima excepție la șansă la $ 773ADAE8. Clasa de excepție EInvalidCast cu mesajul "Tip de clasă nevalid". Procesul RPScenarioEditor.exe (4084) Ce trebuie să fac în confuzie. Prompt, vă rog.
Am întâmpinat o astfel de problemă (Delphi Seattle, OSX + WIndows 10) făcând un formular cu titlul său, cu proprietățile Transperency setate la True sau BorderStyle: = None,
tranziție în modul fullscreen nu este lucrat în mod corespunzător prin (forma nu se schimba dimensiunea maximă), a decis să trecerea la modul ecran complet pentru a instala Transperency: = BorderStyle false și diferit de Nici unul, dar se blochează de program, uneori dreapta, uneori, de 2-3 ori schimbarea parametrilor, indiferent de la schimbarea transparenței sau a frontierei. dacă rulați prin intermediul debuggerului atunci cade pe asta -
în System.Internal.ExcUtils;
începe
ridicați GetExceptionObject (ExceptionEIP, FaultAddr, ErrorCode);
se încheie;
sub Windows totul funcționează bine, fără nici o bibelă
pentru verificare puteți face o formă goală, două butoane. și spuneți panoul pentru tragerea formei
și trei manipulanți -
procedura TForm1.Rectangle1MouseDown (Expeditor: TObject; Buton: TMouseButton; Shift: TShiftState; X, Y: Single);
începe
dacă (Button = TMouseButton.mbLeft) și (y <25) then StartWindowDrag;
se încheie;
procedura TForm1.sbExpandClick (expeditor: TObject);
începe
i f BorderStyle = TFmxFormBorderStyle.None atunci
BorderStyle: = TFmxFormBorderStyle.Single
altfel BorderStyle: = TFmxFormBorderStyle.None;
se încheie;
procedura TForm17.sbFullClick (expeditor: TObject);
începe
FullScreen: = nu FullScreen;
se încheie;
Poate că cineva cu experiență în conformitate cu OSX la schimbarea rulării sub forma transparente a frontierei și prin rotație nu este o excepție, sau gestionează, de regulă trecerea la modul ecran complet în prozarchnoy (cu sau fără antet standard) sub forma
Mulțumesc
O zi bună pentru toți!
După actualizarea OSX către El Capitan, a apărut un efect care împiedică puternic. În programul meu, nu folosesc formatul FullScreen pentru formulare. Faptul că ecranul complet OSX cu mai multe ferestre deschise, mai ales în cazul în care unele dintre ele modal există erori, atunci când fereastra non-modal devine brusc peste toate ferestrele, dar inactiv, adică. Pentru a. Au o fereastră modal, care este acum. Anterior, nu am furat acest lucru, deoarece aplicația mea sa desfășurat la fel ca în Windows. Dar, după actualizarea la El Capitan în forma antetul afișează butonul pentru a merge la în FullScreen, indiferent de valorile steagurile corespondente din TForm. Există vreo modalitate de a împiedica trecerea ferestrei în FullScreen?
Vă mulțumim anticipat.
Toată ziua. Confruntată cu următoarea problemă:
Există o aplicație pentru OSX scrisă pe FMX (.app, ambalată în dmg). În cazul în care utilizatorul descarcă aplicația de pe site-ul web (site extern, nu AppStore), atunci când executați OSX spune că această aplicație nu poate rula, t. Pentru a. Necunoscutul editor, și așa mai departe. Deci, ce anume să facă cu ea (înainte de deploem sau deja după), astfel încât OSX nu bâzâi? Vreau doar să știu în prealabil, înainte să plătiți 99 USD pentru a vă conecta la programul pentru dezvoltatori. Vă mulțumim anticipat.
Toată ziua! Am avut următoarea problemă în momentul cel mai inoportun:
Există o aplicație pentru Win și Mac. Funcționează cu SQLite (prin intermediul FDQuery).
Bineînțeles, în baza de date o mulțime de date cu chirilic. Deci, în Win - totul este bine, pe un Mac (10.10) - și totul este bine. Am încercat să pun pe al doilea Mac (10.9.5) - b și deja există probleme cu codificarea. Și citește de la masă
S: = Query.FieldByName ("Titlu") AsString; / / Nici o problemă, dar când scrieți la masă
Query.ParamByName ("Titlu") AsString: = 'Titlu'; Înregistrările de tabel ". "(Și înregistrarea nu merge bine). Când se conectează la baza de date, specificăm că StringFormat = Unicode.
Poate cineva să vină peste asta deja?
Există suspiciuni că la 10.9.5 unele vechi dylib, care nu funcționează corect cu alfabetul chirilic. apoi, probabil, trebuie să vă conectați propria aplicație, dar din nou, unde să o găsiți și cum să o conectați?
Creez un cârlig global pe mai multe evenimente:
var EvtTap: CFMachPortRef; RunLoopSource: CFRunLoopSourceRef; . procedura CreateGlobalHook; var EvtMask: UInt64; începe dacă EvtTap = zero începe apoi EvtMask: = (1 shl kCGEventKeyDown) sau (1 shl kCGEventFlagsChanged) sau (1 shl kCGEventLeftMouseUp); EvtTap: = CGEventTapCreate (kCGAnnotatedSessionEventTap, kCGTailAppendEventTap, kCGEventTapOptionListenOnly, EvtMask, @EventTapHandler, zero); RunLoopSource: = CFMachPortCreateRunLoopSource (kCFAllocatorDefault, EvtTap, 0); CFRunLoopAddSource (CFRunLoopGetCurrent, RunLoopSource, kCFRunLoopCommonModes); se încheie; CGEventTapEnable (EvtTap, 1); se încheie; Funcția EventTapHandler (proxy: CGEventTapProxy; type_: CGEventType; eveniment: CGEventRef; refcon: Pointer): CGEventRef; cdecl; var iKey: Integer; iType: Integer; începe Rezultat: = eveniment; iType: = CGEventGetType (eveniment); iKey: = CGEventGetIntegerValueField (eveniment, kCGKeyboardEventKeycode); cazul iType caz de kCGEventFlagsChanged. ; kCGEventLeftMouseUp. ; kCGEventKeyDown. ; se încheie; se încheie; În procesarea evenimentului există o problemă: toate evenimentele vin cu excepția documentației kCGEventKeyDown găsit kCGEventKeyDown și kCGEventKeyUp vin numai în cazul în care aplicația rulează pe rădăcină-a sau listat ca un sistem Preferințe-> Securitate“ Confidențialitate-> Confidențialitate-> Accesibilitate "
Poate cineva să știe cum pot accesa programatic aceste evenimente?
Spuneți-mi, vă rog, cum să implementați cheile rapide globale pentru aplicația dvs. în OS X